pike.git / src / program.h

version» Context lines:

pike.git/src/program.h:1:   /*\   ||| This file a part of Pike, and is copyright by Fredrik Hubinette   ||| Pike is distributed as GPL (General Public License)   ||| See the files COPYING and DISCLAIMER for more information.   \*/      /* -  * $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      #include <stdarg.h>   #include "global.h"   #include "pike_types.h"   #include "pike_macros.h"   #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   #define PROGRAM_LINE_ARGS void   #endif      extern struct pike_string *this_program_string;      #define LFUN___INIT 0   #define LFUN_CREATE 1
pike.git/src/program.h:289:   #define PROG_FROM_INT(P,X) PROG_FROM_PTR(P,(P)->identifier_references+(X))   #define ID_FROM_INT(P,X) ID_FROM_PTR(P,(P)->identifier_references+(X))      #define FIND_LFUN(P,N) ( dmalloc_touch(struct program *,(P))->flags & PROGRAM_FIXED?((P)->lfuns[(N)]):low_find_lfun((P), (N)) )      #define free_program(p) do{ struct program *_=(p); debug_malloc_touch(_); if(!--_->refs) really_free_program(_); }while(0)         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;      /* Flags for identifier finding... */   #define SEE_STATIC 1   #define SEE_PRIVATE 2         #define COMPILER_IN_CATCH 1   
pike.git/src/program.h:511:    free_string(_t); \    } \   } while (0)      #ifndef NO_PIKE_SHORTHAND   #define add_function pike_add_function   #endif      #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   #endif         #ifdef PIKE_DEBUG   #define start_new_program() debug_start_new_program(__LINE__,__FILE__)   #else   #define start_new_program() debug_start_new_program()   #endif      #define gc_cycle_check_program(X) \    enqueue_lifo(&gc_mark_queue, (queue_call) real_gc_cycle_check_program, (X))   #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 */