Branch: Tag:

2000-06-24

2000-06-24 00:48:31 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

changed some data structures in the compiler, this should allow for
some major code cleanups

Rev: src/builtin_functions.c:1.283
Rev: src/compilation.h:1.15
Rev: src/docode.c:1.74
Rev: src/encode.c:1.60
Rev: src/language.yacc:1.191
Rev: src/las.c:1.180
Rev: src/las.h:1.39
Rev: src/modules/Gmp/mpz_glue.c:1.78
Rev: src/modules/Parser/parser.c:1.7
Rev: src/object.c:1.127
Rev: src/object.h:1.48
Rev: src/pike_types.c:1.131
Rev: src/pike_types.h:1.39
Rev: src/program.c:1.243
Rev: src/program.h:1.92
Rev: src/threads.c:1.130

5:   \*/      /* -  * $Id: program.h,v 1.91 2000/06/10 11:52:44 mast Exp $ +  * $Id: program.h,v 1.92 2000/06/24 00:48:13 hubbe Exp $    */   #ifndef PROGRAM_H   #define PROGRAM_H
17:   #include "svalue.h"   #include "time_stuff.h"    +  + #define STRUCT + #include "compilation.h" +  + #define EXTERN + #include "compilation.h" +  +    #ifdef PIKE_DEBUG   #define PROGRAM_LINE_ARGS int line, char *file   #else
296:      extern struct object *error_handler;    - extern struct object *fake_object; - extern struct program *new_program; +    extern struct program *first_program; - extern int compiler_pass; - extern long local_class_counter; - extern int catch_level; - extern INT32 num_used_modules; +    extern struct program *pike_trampoline_program;   extern struct program *gc_internal_program;   
518:      #define START_NEW_PROGRAM_ID(ID) do { \    start_new_program(); \ -  new_program->id=PIKE_CONCAT3(PROG_,ID,_ID); \ +  Pike_compiler->new_program->id=PIKE_CONCAT3(PROG_,ID,_ID); \    }while(0)      #ifdef DEBUG_MALLOC   #define end_program() ((struct program *)debug_malloc_pass(debug_end_program())) - #define end_class(NAME, FLAGS) (debug_malloc_touch(new_program), debug_end_class(NAME, CONSTANT_STRLEN(NAME), FLAGS)) + #define end_class(NAME, FLAGS) (debug_malloc_touch(Pike_compiler->new_program), debug_end_class(NAME, CONSTANT_STRLEN(NAME), FLAGS))   #else   #define end_class(NAME,FLAGS) debug_end_class(NAME, CONSTANT_STRLEN(NAME), FLAGS)   #define end_program debug_end_program
541:   #define gc_cycle_check_program_weak(X) \    enqueue_lifo(&gc_mark_queue, (queue_call) real_gc_cycle_check_program_weak, (X))    + /* This can be used for backwards compatibility +  * (if added to program.h in Pike 0.6 and Pike 7.0 +  * -Hubbe +  */ + #define Pike_new_program Pike_compiler->new_program    -  +    #endif /* PROGRAM_H */