Fix
authorceriel <none@none>
Wed, 11 Sep 2002 13:32:57 +0000 (13:32 +0000)
committerceriel <none@none>
Wed, 11 Sep 2002 13:32:57 +0000 (13:32 +0000)
util/LLgen/src/main.c

index 1334509..82b88d3 100644 (file)
@@ -192,12 +192,12 @@ main(argc,argv) register string   argv[]; {
        do_compute();
        conflchecks();
        if (nerrors) comfatal();
+       fclose(fact);
        if (argc-- == 1) {
                fputs("No code generation for input from standard input\n",
                      stderr);
        }
        else    gencode(argc);
-       fclose(fact);
        UNLINK(f_temp);
        UNLINK(f_pars);
        if (verbose) {