pike.git/ src/ program.c

1998-11-06

1998-11-06 03:08:03 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• fb2f660744c6e2270e14096fa4e2fdf3eb956210 (10 lines) (+5/-5) ^{[ Show | Annotate ]}
  Branch: 7.9

bugfix + more debug

Rev: src/compilation.h:1.11
Rev: src/pike_types.c:1.48
Rev: src/pike_types.h:1.15
Rev: src/program.c:1.101

4:   ||| See the files COPYING and DISCLAIMER for more information.   \*/   #include "global.h" - RCSID("$Id: program.c,v 1.100 1998/10/22 19:44:06 hubbe Exp $"); + RCSID("$Id: program.c,v 1.101 1998/11/06 03:08:03 hubbe Exp $");   #include "program.h"   #include "object.h"   #include "dynamic_buffer.h"
531:    id=add_constant(name, &s, flags);    }    +  init_type_stack(); +    #define PUSH   #include "compilation.h"       num_used_modules=0; -  init_type_stack(); +     -  +     if(p && (p->flags & PROGRAM_FINISHED))    {    yyerror("Pass2: Program already done");
917:       pop_compiler_frame(); /* Pop __INIT local variables */    -  exit_type_stack(); -  +     if(num_parse_error > 0)    {    prog=0;
947:   #define POP   #include "compilation.h"    +  exit_type_stack();       compilation_depth--;