alloc.h:/* ---------------------------------------------------------- 
alloc.h:----------------------------------------------------------- */
alloc.h:  (s) = maketype(heapbottom -= (words));\
alloc.h:  real_heaplimit -= (words);\
asyncio.h:/* ---------------------------------------------------------- 
asyncio.h:----------------------------------------------------------- */
atomstuffs.h:/* ---------------------------------------------------------- 
atomstuffs.h:----------------------------------------------------------- */
atomstuffs.h:#define functoratomname(f) atomname[functoratom(f) - ATOMNUMBERBASE]
atomstuffs.h:#define namestringof(a) atomname[symval(a) - ATOMNUMBERBASE]
basic.h:/* ---------------------------------------------------------- 
basic.h:----------------------------------------------------------- */
bb.h:/* ---------------------------------------------------------- 
bb.h:----------------------------------------------------------- */
bb.h:{ z = (q)((unsigned long)(x) + (unsigned long)(y) - INT); }
bb.h:{ z = (q)((unsigned long)(x) - ((unsigned long)(y) - INT)); }
bb.h:{ z = (q)(((long)(x) - INT) * (intval(y)) + INT); }
bb.h:{ z = makeint(((long)(x) - INT)/((long)(y) - INT)); }
bb.h:{ z = (q)(((long)(x) - INT) % ((long)(y) - INT) + INT); }
bb.h:{ z = (q)((((long)(x) - INT) << intval(y)) + INT); }
bb.h:{ z = makeint((long)(x) ^ ((-1l) << ATAGBITS)); }
bb.h:{ z = (q)(2*INT-(long)(x)); }
config.h:/* CPU name for locking shared-memory parallel */
config.h:#define KLICBIN "/project/KL1/DH7-5/bin"
config.h:#define KLICLIB "/project/KL1/DH7-5/lib"
config.h:#define KLICINCLUDE "/project/KL1/DH7-5/include"
config.h:#define KLIC_COMPILER "/project/KL1/DH7-5/lib/klic/kl1cmp"
config.h:#define KLIC_DBMAKER "/project/KL1/DH7-5/lib/klic/klicdb"
config.h:#define LIBRARIES "-lklic -L/usr/local/lib -L/usr/lib -L/lib   -lm -lelf -lsocket -lnsl"
config.h:#define LIBRARIES_T "-lklict -L/usr/local/lib -L/usr/lib -L/lib   -lm -lelf -lsocket -lnsl"
config.h:#define LIBRARIES_D "-lklicd -L/usr/local/lib -L/usr/lib -L/lib   -lm -lelf -lsocket -lnsl"
config.h:#define LIBRARIES_S "-lklics -L/usr/local/lib -L/usr/lib -L/lib   -lm -lelf -lsocket -lnsl"
config.h:#define LIBRARIES_O "-lklicsc -L/usr/local/lib -L/usr/lib -L/lib   -lm -lelf -lsocket -lnsl"
config.h:#define LIBRARIES_OT "-lklicsct -L/usr/local/lib -L/usr/lib -L/lib   -lm -lelf -lsocket -lnsl"
control.h:/* ---------------------------------------------------------- 
control.h:----------------------------------------------------------- */
control.h:  long prio = current_prio-intval(x);			\
control.h:  long prio = current_prio-intval(x);			\
control.h:#define switch_on_pred()	switch (toppred->pred)
control.h:		struct threadrec *newqp = rsmt->next; \
control.h:		rsmt->next = qp; \
control.h:		qp->stack->top=stackp; \
control.h:		stackp = qp->stack->top; \
control.h:  	toppred = (struct predicate *)*--stackp; \
control.h:	if ((func = toppred->func) == (f)){ \
control.h:  if ((func = (toppred = qp->pred)->func) == (f)) \
distio.h:/* ---------------------------------------------------------- 
distio.h:----------------------------------------------------------- */
distpkt.h:/* ---------------------------------------------------------- 
distpkt.h:----------------------------------------------------------- */
distpkt.h:/* PVM dependent inter-pe communication library */
distpkt.h:#define IS_BUFFER_EMPTY(inbuf)	((inbuf)->rd_index == (inbuf)->wt_index)
distpkt.h:#define GET_BUFFER(inbuf)	((inbuf)->buffer[(inbuf)->rd_index++])
distpkt.h:    (outbuf)->buffer[(outbuf)->wt_index] = (long)(data);	\
distpkt.h:    (outbuf)->wt_index++;					\
distpkt.h:    if ((outbuf)->wt_index >= (outbuf)->buf_size){		\
distpkt.h:    if ((outbuf)->wt_index + 2 >= (outbuf)->buf_size)		\
distpkt.h:    (outbuf)->buffer[(outbuf)->wt_index] = (long)(data);	\
distpkt.h:    (outbuf)->buffer[(outbuf)->wt_index+1] = (long)(data1);	\
distpkt.h:    (outbuf)->wt_index += 2;					\
distpkt.h:    if ((outbuf)->wt_index + 3 >= (outbuf)->buf_size)		\
distpkt.h:    (outbuf)->buffer[(outbuf)->wt_index] = (long)(data);	\
distpkt.h:    (outbuf)->buffer[(outbuf)->wt_index + 1] = (long)(data1);	\
distpkt.h:    (outbuf)->buffer[(outbuf)->wt_index + 2] = (long)(data2);	\
distpkt.h:    (outbuf)->wt_index += 3;					\
distpkt.h:    if ((outbuf)->wt_index + 4 >= (outbuf)->buf_size)		\
distpkt.h:    (outbuf)->buffer[(outbuf)->wt_index] = (long)(data);	\
distpkt.h:    (outbuf)->buffer[(outbuf)->wt_index + 1] = (long)(data1);	\
distpkt.h:    (outbuf)->buffer[(outbuf)->wt_index + 2] = (long)(data2);	\
distpkt.h:    (outbuf)->buffer[(outbuf)->wt_index + 3] = (long)(data3);	\
distpkt.h:    (outbuf)->wt_index += 4;					\
distproc.h:/* ---------------------------------------------------------- 
distproc.h:----------------------------------------------------------- */
distproc.h:/* PVM dependent inter-pe communication library */
distproc.h:    "-noitimer: disable itimer interrupt",				\
distproc.h:    "-I <timer value>: specify interrupt timer interval",
distproc.h:    "-noprocbind: disable procbind",
distproc.h:    "-rmon <rmonitor node>: runtime monitor node name", 		\
distproc.h:    "-relsp: spawn using relative path",				\
distproc.h:    "-msgbw: busy waiting message arrival in idle loop",        	\
distproc.h:    "-e: transfer all level",						\
distproc.h:    "-E <level>: specify transfer level",				\
distproc.h:    "-useconfig:  preliminary option, don't use!",                      \
distproc.h:    "-n: gather network statistics",					\
distproc.h:    "-S: disable sendsig",						\
functorstuffs.h:/* ---------------------------------------------------------- 
functorstuffs.h:----------------------------------------------------------- */
functorstuffs.h:#define functoratom(f) functors[symval(f) - FUNCTORNUMBERBASE]
functorstuffs.h:#define arityof(f) arities[symval(f) - FUNCTORNUMBERBASE]
g_basic.h:/* ---------------------------------------------------------- 
g_basic.h:----------------------------------------------------------- */
g_basic.h:/* convertion. C->KLIC. */
g_basic.h:#define G_MAKEATOMIC(adr) makeatomic(adr) /* for non-heap addr */
g_basic.h:/* convertion. KLIC->C. */
g_basic.h:#define G_SIZE_IN_Q(type) ((sizeof(type)+sizeof(q)-1)/sizeof(q))
g_extern.h:/* ---------------------------------------------------------- 
g_extern.h:----------------------------------------------------------- */
g_extern_inline.h:/* ---------------------------------------------------------- 
g_extern_inline.h:----------------------------------------------------------- */
g_extinl.h:/* ---------------------------------------------------------- 
g_extinl.h:----------------------------------------------------------- */
g_float.h:/* ---------------------------------------------------------- 
g_float.h:----------------------------------------------------------- */
g_float.h:#define float_value(x) (((float_structure_type *)functorp(x))->value)
g_methtab.h:/* ---------------------------------------------------------- 
g_methtab.h:----------------------------------------------------------- */
g_methtab.h:     ((struct data_object *)(((unsigned long)(obj)) - FUNCTOR))
g_pointer.h:/* ---------------------------------------------------------- 
g_pointer.h:----------------------------------------------------------- */
g_string.h:/* ----------------------------------------------------------
g_string.h:----------------------------------------------------------- */
g_string.h:  unsigned int index:(8*sizeof(int)-2); /* size or index */
g_string.h:#define IS_SHALLOW_STRING(s)	((s)->next == STRING_SHALLOW_MARK)
g_termarray.h:/* ---------------------------------------------------------- 
g_termarray.h:----------------------------------------------------------- */
g_vector.h:/* ---------------------------------------------------------- 
g_vector.h:----------------------------------------------------------- */
g_vector.h:  int index:(8*sizeof(int)-1); /* size or index */
g_vector.h:#define IS_SHALLOW_VECTOR(v)	((v)->next == VECTOR_SHALLOW_MARK)
gb.h:/* ---------------------------------------------------------- 
gb.h:----------------------------------------------------------- */
gb.h:    z =  (q)((((long)(x) - INT) << intval(y)) + INT);
gb.h:    z = (q)((unsigned long)(x) + ((unsigned long)(y) - INT));
gb.h:    z = (q)((unsigned long)(x) - ((unsigned long)(y) - INT)); 
gb.h:    z = (q)(((long)(x) - INT) * (intval(y)) + INT);
gb.h:  long macrotemp = (long)(y) - INT; \
gb.h:  z = makeint(((long)(x) - INT)/macrotemp); \
gb.h:  long macrotemp = (long)(y) - INT; \
gb.h:  z = (q)(((long)(x) - INT) % macrotemp + INT); \
gb.h:    z = makeint((long)(x) ^ ((-1l) << ATAGBITS));
gb.h:    z = (q)(2*INT-(long)(x));
gb.h:    } else if (!isref(functorp(x)->functor)) { \
gb.h:      f = makesym(functoratom(functorp(x)->functor)); \
gb.h:    } else if (!isref(functorp(x)->functor)) { \
gb.h:      a = makeint(arityof(functorp(x)->functor)); \
gb.h:    } else if (!isref(functorp(x)->functor)) { \
gb.h:      if (temp <= 0 || temp > arityof(functorp(x)->functor)) goto fail; \
gb.h:      a = arg(x, temp-1); \
gc_macro.h:/* ----------------------------------------------------------
gc_macro.h:----------------------------------------------------------- */
gc_macro.h:  newgobj->method_table = &GC_method_table; \
gc_macro.h:  newgobj->method_table = &GC_method_table; \
gc_macro.h:    newgobj->method_table = GC_SELF->method_table; \
gc_macro.h:    *g_allocp = (q) GC_SELF->method_table; \
gc_macro.h:      GC_SELF->stream = GC_TERM;				\
gc_macro.h:	GC_SELF->stream = GC_TERM;				\
gc_macro.h:	GC_SELF->stream = GC_TERM;				\
gc_macro.h:  gp->pred = &predicate_unify__term__dcode_xunify__goal_2; \
gc_macro.h:  gp->args[0] = x; \
gc_macro.h:  gp->args[1] = y; \
gc_methtab.h:/* ---------------------------------------------------------- 
gc_methtab.h:----------------------------------------------------------- */
gcobject.h:/* ---------------------------------------------------------- 
gcobject.h:----------------------------------------------------------- */
gd_macro.h:/* ---------------------------------------------------------- 
gd_macro.h:----------------------------------------------------------- */
gd_macro.h:  newgobj->method_table = &GD_method_table; \
gd_macro.h:  newgobj->method_table = &GD_method_table; \
gd_macro.h:  newgobj->method_table = GD_SELF->method_table; \
gd_macro.h:  newgobj->method_table = GD_SELF->method_table; \
gd_macro.h:    newobj->method_table = GD_SELF->method_table; \
gd_macro.h:  switch(functors[g_method_functor - FUNCTORNUMBERBASE])
gd_macro.h:      GD_ERROR_IN_NEW("Non-integer parameter"); \
gd_macro.h:      GD_ERROR_IN_METHOD("Non-integer paramter", 0); \
gd_macro.h:    if (!G_ISREF(arg)) GD_ERROR_IN_NEW("Non-atom paramter"); \
gd_macro.h:    if (!G_ISREF(arg)) GD_ERROR_IN_METHOD("Non-atom paramter", 0); \
gd_macro.h:    if (!G_ISREF(argv_i)) GD_ERROR_IN_METHOD("Non-integer paramter", 0); \
gd_macro.h:     (q)((((struct data_object *)functorp(obj))->method_table)->g_generic) \
gd_macro.h:     g_allocp = ((((struct data_object *)functorp(obj))-> \
gd_macro.h:		  method_table)->body_generic) \
gd_methtab.h:/* ---------------------------------------------------------- 
gd_methtab.h:----------------------------------------------------------- */
gdobject.h:/* ---------------------------------------------------------- 
gdobject.h:----------------------------------------------------------- */
ge_exref.h:/* ----------------------------------------------------------
ge_exref.h:----------------------------------------------------------- */
generic.h:/* ---------------------------------------------------------- 
generic.h:----------------------------------------------------------- */
generic.h:                  (*obj))->g_generic( obj, (mf), generic_arg); \
gg_macro.h:/* ---------------------------------------------------------- 
gg_macro.h:----------------------------------------------------------- */
gg_macro.h:  newgobj->method_table = &GG_method_table; \
gg_macro.h:  newgobj->method_table = &GG_method_table; \
gg_macro.h:  newgobj->method_able = GG_SELF->method_table; \
gg_macro.h:    *g_allocp = (q) GG_SELF->method_table; \
gg_macro.h:  gp->pred = &predicate_unify__term__dcode_xunify__goal_2; \
gg_macro.h:  gp->args[0] = x; \
gg_macro.h:  gp->args[1] = y; \
gg_methtab.h:/* ---------------------------------------------------------- 
gg_methtab.h:----------------------------------------------------------- */
gmodule.h:/* ---------------------------------------------------------- 
gmodule.h:----------------------------------------------------------- */
gobj.h:/* ---------------------------------------------------------- 
gobj.h:----------------------------------------------------------- */
gobj.h:#define method_table_of(obj) ((obj)->method_table)
gobj.h:  (method_table_of(obj)->passive_unify(obj, anothor))
gobj.h:  allocp = (method_table_of(obj)->active_unify(obj, anothor, allocp)); \
gobj.h:  (method_table_of(obj)->print(obj, stream, depth, length))
gobj.h:  (method_table_of(obj)->gc(obj, allocp, sp))
gobj.h:  (method_table_of(obj)->regist(obj))
gobj.h:  (method_table_of(obj)->deallocate(obj))
gobj.h:  (method_table_of(obj)->close(obj))
gobj.h:  (method_table_of(obj)->generate(obj, allocp))
gobj.h:  (method_table_of(obj)->suspend(ref, goal))
gobj.h:  (method_table_of(obj)->encode(obj, pe, depth))
gobj.h:/*** for Shared-memory KLIC system ***/
gobj.h:  (method_table_of(obj)->shmcopy(obj))
gobj.h:  (((struct data_object_method_table *)(class))->new((n), (args)))
gobjutil.h:/* ---------------------------------------------------------- 
gobjutil.h:----------------------------------------------------------- */
index.h:/* ---------------------------------------------------------- 
index.h:----------------------------------------------------------- */
interpe.h:/* ---------------------------------------------------------- 
interpe.h:----------------------------------------------------------- */
interpe.h:#define END_IMP_FREELIST	(-1)
interpe.h:#define END_IMP_TABLE		(-1)
klichdr.h:/* ---------------------------------------------------------- 
klichdr.h:----------------------------------------------------------- */
msgfmt.h:/* ---------------------------------------------------------- 
msgfmt.h:----------------------------------------------------------- */
newatom.h:/* ---------------------------------------------------------- 
newatom.h:----------------------------------------------------------- */
newatom.h:#define functoratom(f) functors[symval(f) - FUNCTORNUMBERBASE]
newatom.h:#define arityof(f) arities[symval(f) - FUNCTORNUMBERBASE]
newatom.h:#define YET  -1
newatom.h:#define AtomError -1
newatom.h:#define namearea  (shm_namep->namea0)
newatom.h:#define nameareap (shm_namep->namep0)
options.h:/* ---------------------------------------------------------- 
options.h:----------------------------------------------------------- */
options.h:  (enum argtype)(ARG_SHOULD_NOT_COPY(X)?(int)(X)-(int)ARG_NOT_USED:(int)(X))
options.h:    "-p <# of workers>: number of worker processes ",
options.h:    "-S <shared-memory heap size>: shared-memory heap size, never expand",
options.h:    "-D: display child process number on UNIX",
options.h:    "-a <ratio>: active cell ratio to triger heap extension\n\t  <ratio> should be a floating point number >0 and <1",
options.h:    "-h <initial heap size>: initial size of heap",
options.h:    "-H <max heap size>: maximum possible heap size",
options.h:    "-i <increment>: gap between heap top and bottom\n\t  for -h, -H and -i, 32k means 32KW and 2m means 2MW",
options.h:    "-g: set garbage collection measurement on",
options.h:    "-v: display KLIC runtime version",
options.h:    "-t: start execution with tracing",
options.h:    "-s: count suspension",
options.h:			"-sst: stack size",
options.h:			"-nst: the number of stack",
options.h:    "deadlock-detection-interval",
options.h:    "-deadlock-detection-interval <interval>:\n\t  specify deadlock detect interval in micro sec.\n\t  Set <interval> to 0 to supress early deadlock detection completely.",
param.h:/* ---------------------------------------------------------- 
param.h:----------------------------------------------------------- */
param.h:#define MAXKLICINT	(1L<<(sizeof(long)*8-ATAGBITS-1)-1)
param.h:#define MINKLICINT	(-(1L<<(sizeof(long)*8-ATAGBITS-1))
predinfo.h:/* ---------------------------------------------------------- 
predinfo.h:----------------------------------------------------------- */
primitives.h:/* ---------------------------------------------------------- 
primitives.h:----------------------------------------------------------- */
rmon.h:/* ---------------------------------------------------------- 
rmon.h:---------------------------------------------------------- */
sched.h:	thread->stack = stq; \
sched.h:	stq = stq->next; \
sched.h:	thread->next = (struct threadrec*)qp; \
sched.h:	thread->stack = stq; \
sched.h:	stq = stq->next; \
sched.h:	if((stackp + put_num) > qp->stack->limit){ \
sched.h:	  expand_stack(qp->stack); \
sched.h:		*stackp++ = *--(gs_stack.stp); \
schedule.h:/* ---------------------------------------------------------- 
schedule.h:----------------------------------------------------------- */
shm.h:/* ---------------------------------------------------------- 
shm.h:----------------------------------------------------------- */
shm.h:#define currid (glbl->par.aux.shm.currid0)
shm.h:#define oldid  (glbl->par.aux.shm.oldid0)
shm.h:#define SHM_HEAP_TOP (glbl->par.aux.shm.shm_htop0)
shm.h:#define SHP_SIZE     (glbl->par.aux.shm.shm_hbyte0)
shm.h:  /* size of 1 Shared-memory plane */
shm.h:    ( (unsigned long)((long)(X)-(long)heaptop) < real_heapbytesize )
shm.h:  /* Shared-memory address or no */
shm.h:    ( (unsigned long)((long)(X)-(long)SHM_HEAP_TOP ) < SHP_SIZE )
shm.h:  /* allocating shared-memory */
shm.h:  /* updating the shared-memory management table */
shm.h:#define untag_genhook(X) ((Sinfo*)((long)(X)-1))
shm.h:#define untag_local(x)	((q)((char *)(x) - ATOMIC))
shm.h:#define ext_queued (glbl->par.aux.shm.queued0)
shm.h:#define ex_qp (glbl->par.aux.shm.ex_qp0)
shm.h:#define reckon(sz) ((long)((((sz)+sizeof(long)-1)/sizeof(long))*sizeof(long)))
shm.h:      (sl->prev)->next = sl->next; \
shm.h:      (sl->next)->prev = sl->prev; \
shm.h:      sl->next = ADDRtbl_free;    \
shm.h:      vcell->backpt = (q)svar;\
shm.h:      vcell->u.o = tag_generator_susp(pSHM_VAR);\
shm.h:      if ( (unsigned long)((long)(X)-(long)(PLNE_ptr[cid]->top_addr)) < SHM_SIZE ) \
shm.h:    } while( (cid = PLNE_ptr[cid]->direct) != (-1) ); \
shm.h:    while ( (cid = PLNE_ptr[cid]->direct) != (-1) ) { \
shm.h:       if ( (unsigned long)((long)(X)-(long)(PLNE_ptr[cid]->top_addr) ) < SHM_SIZE ) { new_galloc(cid); break; }\
shm.h:    (unsigned long)((long)(X)-(long)(PLNE_ptr[currid]->top_addr) ) < SHM_SIZE )
shm.h:    while ( (cid = PLNE_ptr[cid]->direct) != (-1) ) {\
shm.h:       if ( (unsigned long)((long)(X)-(long)(PLNE_ptr[cid]->top_addr) ) < SHM_SIZE ) {\
shm.h:       if ( (unsigned long)((long)(X)-(long)(PLNE_ptr[cid]->top_addr) ) < SHM_SIZE ) {\
shm.h:    } while ( (cid = PLNE_ptr[cid]->direct) != (-1) ) ;\
shm.h:    while( (cid=PLNE_ptr[cid]->direct) != -1 ) { \
shm.h:       if ( PLNE_ptr[cid]->proc[num] ) {new_galloc(cid);} \
shm_machine.h:/* ---------------------------------------------------------- 
shm_machine.h:----------------------------------------------------------- */
shm_machine.h:  /* lock-unlock */
shm_machine.h:        mov -1,%%g2;         \
sighndl.h:/* ---------------------------------------------------------- 
sighndl.h:----------------------------------------------------------- */
struct.h:/* ---------------------------------------------------------- 
struct.h:----------------------------------------------------------- */
struct.h:  UNIVERSAL ONE-WORD DATA
struct.h:  All the one-word data is represented as type "q".
struct.h:    self-referencing variables.
struct.h:    a two-word pointer loop,
struct.h:#define functor_of(s)		(functorp(s)->functor)
struct.h:#define arg(s, k)		(functorp(s)->args[k])
struct.h:#define car_of(x)		(consp(x)->car)
struct.h:#define cdr_of(x)		(consp(x)->cdr)
struct.h:  long prio;			/* signed, to use -1 as sentinel */
struct.h:  long prio;			/* signed, to use -1 as sentinel */
struct.h:#define refp(x)		((q *)((char *)(x) - VARREF))
struct.h:#define consp(x)	((struct cons *)((char *)(x) - CONS))
struct.h:#define functorp(x)	((struct functor *)((char *)(x) - FUNCTOR))
struct.h:#define goalp(x)	((struct goalrec *)((char *)(x) - ATOMIC))
struct.h:#define predp(x)	((struct predicate *)((char *)(x) - ATOMIC))
struct.h:/* for non-heap addr */
struct.h:#define current_queue	(glbl->current_queue0)
struct.h:#define resumed_threads	(glbl->resumed_threads0)
struct.h:#define resumed_goals	(glbl->resumed_goals0)
struct.h:#define prioq		(glbl->prioq0)
struct.h:#define current_prio	(glbl->current_prio0)
struct.h:#define top_prio	(glbl->top_prio0)
struct.h:#define heapp		(glbl->heapp0)
struct.h:#define heaptop		(glbl->heaptop0)
struct.h:#define heaplimit	(glbl->heaplimit0)
struct.h:#define real_heaplimit	(glbl->real_heaplimit0)
struct.h:#define heapbottom	(glbl->heapbottom0)
struct.h:#define heapsize	(glbl->heapsize0)
struct.h:#define maxheapsize	(glbl->maxheapsize0)
struct.h:#define real_heapbytesize (glbl->real_heapbytesize0)
struct.h:#define incrementsize	(glbl->incrementsize0)
struct.h:#define maxactiveratio	(glbl->maxactiveratio0)
struct.h:#define new_space_top	(glbl->new_space_top0)
struct.h:#define old_space_top	(glbl->old_space_top0)
struct.h:#define new_space_size	(glbl->new_space_size0)
struct.h:#define old_space_size	(glbl->old_space_size0)
struct.h:#define this_more_space	(glbl->this_more_space0)
struct.h:#define gcstack		(glbl->gcstack0)
struct.h:#define gcsp		(glbl->gcsp0)
struct.h:#define gcmax		(glbl->gcmax0)
struct.h:#define gcstack_size	(glbl->gcstack_size0)
struct.h:#define interrupt_off   (glbl->interrupt_off0)
struct.h:#define interrupt_qp    (glbl->interrupt_qp0)
struct.h:#define program_name	(glbl->program_name0)
struct.h:#define command_argc	(glbl->command_argc0)
struct.h:#define command_argv	(glbl->command_argv0)
struct.h:#define gc_hook_table	(glbl->gc_hook_table0)
struct.h:#define gc_hooktab_size (glbl->gc_hooktab_size0)
struct.h:#define num_gc_hooks	(glbl->num_gc_hooks0)
struct.h:#define after_gc_hook_table (glbl->after_gc_hook_table0)
struct.h:#define after_gc_hooktab_size (glbl->after_gc_hooktab_size0)
struct.h:#define num_after_gc_hooks (glbl->num_after_gc_hooks0)
struct.h:#define suspensions	(glbl->suspensions0)
struct.h:#define	resumes		(glbl->resumes0)
struct.h:#define copied_susp	(glbl->copied_susp0)
struct.h:#define cum_susps	(glbl->cum_susps0)
struct.h:#define	cum_resumps	(glbl->cum_resumps0)
struct.h:#define suspended_goal_list (glbl->suspended_goal_list0)
struct.h:#define postmortem_pred (glbl->postmortem_pred0)
struct.h:#define postmortem_args (glbl->postmortem_args0)
struct.h:#define generic_argc	(glbl->generic_argc0)
struct.h:#define generic_arg	(glbl->generic_arg0)
struct.h:#define reasons		(glbl->reasons0)
struct.h:#define my_node		(glbl->par.my_num0)
struct.h:#define total_node	(glbl->par.num_pes0)
struct.h:#define current_thread (glbl->current_thread0)
struct.h:#define stacksize (glbl->stacksize0)
struct.h:#define number_of_stack (glbl->number_of_stack0)
struct.h:#define stackp (glbl->stackp0)
struct.h:#define stq    (glbl->stackq0)
struct.h:      /* shared-memory Imp. */
struct.h:      /* dist-memory Imp. */
struct.h:      /* shared-memory Imp. */
struct.h:      /* dist-memory Imp. */
susp.h:/* ---------------------------------------------------------- 
susp.h:----------------------------------------------------------- */
susp.h:    a two-word pointer loop,
susp.h:  ((struct consumer_object *)((long)(obj)-CONSUMER_HOOK_TAG))
susp.h:#define suspp(x)	((struct susprec *)((unsigned long)(x) - VARREF))
susp.h:  srec->backpt = var;							\
susp.h:  srec->u.first_hook.next = &srec->u.first_hook;			\
susp.h:  (newhook)->next= (oldhook)->next;					\
susp.h:  (oldhook)->next = (newhook);						\
susp.h:  ((struct generator_object *)((long)(obj) - GENERATOR_OBJECT_TAG))
susp.h:  gsusp->backpt = var; \
timer.h:/* ---------------------------------------------------------- 
timer.h:----------------------------------------------------------- */
timer.h:if ((x).tv_usec-(y).tv_usec >= 0) {			\
timer.h:  (z).tv_sec = (x).tv_sec - (y).tv_sec;			\
timer.h:  (z).tv_usec = (x).tv_usec - (y).tv_usec;		\
timer.h:  (z).tv_sec = (x).tv_sec - (y).tv_sec - 1;		\
timer.h:  (z).tv_usec = Million + (x).tv_usec - (y).tv_usec;	\
timer.h:  (z).tv_usec = (x).tv_usec + (y).tv_usec - Million;	\
timing.h:/* ---------------------------------------------------------- 
timing.h:----------------------------------------------------------- */
timing.h:#define  field_diff(field)	(after.field - before.field)
trace.h:/* ---------------------------------------------------------- 
trace.h:----------------------------------------------------------- */
trace.h:#define Leaping(info)		((info)->leaping)
trace.h:#define Spying(info)		((info)->spying)
trace.h:#define EnabledPorts(info)	((info)->enabled)
trace.h:#define LeashedPorts(info)	((info)->leashed)
trace.h:#define Verbose(info)		((info)->verbose)
trace.h:#define Depth(info)		((info)->print_depth)
trace.h:#define Length(info)		((info)->print_length)
trace.h:#define InStream(info)		((info)->in)
trace.h:#define OutStream(info)		((info)->out)
traceio.h:/* ---------------------------------------------------------- 
traceio.h:----------------------------------------------------------- */
unify.h:/* ---------------------------------------------------------- 
unify.h:----------------------------------------------------------- */
