Branch: Tag:

1999-07-01

1999-07-01 22:12:56 by Henrik Grubbström (Grubba) <grubba@grubba.org>

Minor change.

Rev: src/program.c:1.131

5:   \*/   /**/   #include "global.h" - RCSID("$Id: program.c,v 1.130 1999/07/01 22:09:38 hubbe Exp $"); + RCSID("$Id: program.c,v 1.131 1999/07/01 22:12:56 grubba Exp $");   #include "program.h"   #include "object.h"   #include "dynamic_buffer.h"
39:   #define ATTRIBUTE(X)       - /* #define COMPILER_DEBUG */ + #define COMPILER_DEBUG      #ifdef COMPILER_DEBUG   #define CDFPRINTF(X) fprintf X
984:       exit_threads_disable(NULL);    -  CDFPRINTF((stderr, "th(%ld),end_first_pass(): compilation_depth:%d\n", -  (long)th_self(),compilation_depth)); +  CDFPRINTF((stderr, +  "th(%ld),end_first_pass(): compilation_depth:%d, compiler_pass:%d\n", +  (long)th_self(), compilation_depth, compiler_pass));       free_all_nodes();    if(!compiler_frame && compiler_pass==2 && resolve_cache)
2440:    compiler_pass=1;    lex.pos=prog->str;    +  CDFPRINTF((stderr, "compile(): First pass\n")); +     yyparse(); /* Parse da program */       p=end_first_pass(0);
2458:    p=0;    compiler_pass=2;    lex.pos=prog->str; +  +  CDFPRINTF((stderr, "compile(): Second pass\n")); +     yyparse(); /* Parse da program again */    p=end_program();    }