===================================================================
RCS file: RCS/allocate.h,v
retrieving revision 1.5
diff -r1.5 allocate.h
===================================================================
RCS file: RCS/bootstrap.h,v
retrieving revision 1.2
diff -r1.2 bootstrap.h
===================================================================
RCS file: RCS/bvf.h,v
retrieving revision 1.3
diff -r1.3 bvf.h
rcsdiff error: RCS/bytec.raw.h,v: No such file or directory
===================================================================
===================================================================
RCS file: RCS/calls.h,v
retrieving revision 1.2
diff -r1.2 calls.h
===================================================================
RCS file: RCS/ccc.h,v
retrieving revision 1.2
diff -r1.2 ccc.h
===================================================================
RCS file: RCS/class.h,v
retrieving revision 1.3
diff -r1.3 class.h
===================================================================
RCS file: RCS/copy.h,v
retrieving revision 1.8
diff -r1.8 copy.h
===================================================================
RCS file: RCS/defs.h,v
retrieving revision 1.2
diff -r1.2 defs.h
===================================================================
RCS file: RCS/error.h,v
retrieving revision 1.4
diff -r1.4 error.h
===================================================================
RCS file: RCS/format.h,v
retrieving revision 1.2
diff -r1.2 format.h
===================================================================
RCS file: RCS/funcalls.h,v
retrieving revision 1.6
diff -r1.6 funcalls.h
===================================================================
RCS file: RCS/garbage.h,v
retrieving revision 1.5
diff -r1.5 garbage.h
===================================================================
RCS file: RCS/generics.h,v
retrieving revision 1.2
diff -r1.2 generics.h
===================================================================
RCS file: RCS/global.h,v
retrieving revision 1.10
diff -r1.10 global.h
rcsdiff error: RCS/interp.raw.h,v: No such file or directory
===================================================================
RCS file: RCS/interpret.h,v
retrieving revision 1.6
diff -r1.6 interpret.h
2,3c2,3
<  * Defines of bytecode junk
<  */
---
>   * Defines of bytecode junk
>   */
24,27c24,27
< BC_BUG({			%%\
<   fprintf(stderr,"{Doing: [%x, %x, %d] %d}\n",pc,sp,(int) (sp-oldsp),*pc); %%\
<   oldsp=sp;	%%\
<   }) %%\
---
> BC_BUG({			\
>   fprintf(stderr,"{Doing: [%x, %x, %d] %d}\n",pc,sp,(int) (sp-oldsp),*pc); \
>   oldsp=sp;	\
>   }) \
32c32
<   vref(statics[n],m)
---
>   statics[n][m]
71,77c71,77
< #define MAKE_ENV(sp,size)		%%\
< {					%%\
<   LispObject tmp;			%%\
< /**/					%%\
<   tmp=allocate_vector(sp+1, size+1);	%%\
<   vref(tmp,0)= PEEK_VAL(sp);		%%\
<   SHOVE_VAL(sp,tmp);			%%\
---
> #define MAKE_ENV(sp,size)		\
> {					\
>   LispObject tmp;			\
> /**/					\
>   tmp=allocate_vector(sp+1, size+1);	\
>   vref(tmp,0)= PEEK_VAL(sp);		\
>   SHOVE_VAL(sp,tmp);			\
88,91c88,91
<   into= (int)(*(stream++));		%%\
<   into=(into<<8)+((int)(*(stream++)));		%%\
<   into=(into<<8)+((int)(*(stream++)));		%%\
<   into= *(stream++) ? -into: into;		%%\
---
>   into= (int)(*(stream++));		\
>   into=(into<<8)+((int)(*(stream++)));		\
>   into=(into<<8)+((int)(*(stream++)));		\
>   into= *(stream++) ? -into: into;		\
100c100
< #define read_byte_arg(into,stream) %%\
---
> #define read_byte_arg(into,stream) \
110c110
< #define PC_VAL_WIDTH 18
---
> #define PC_VAL_WIDTH 20
117,120c117,120
< #define REIFY_PC(pc)						%%\
< ((LispObject)							%%\
<  ((this_vector<<(PC_VAL_WIDTH+PC_FLAG_WIDTH))			%%\
<   | (((pc)-bytevector_start(this_vector)) << PC_FLAG_WIDTH) 	%%\
---
> #define REIFY_PC(pc)						\
> ((LispObject)							\
>  ((this_vector<<(PC_VAL_WIDTH+PC_FLAG_WIDTH))			\
>   | (((pc)-bytevector_start(this_vector)) << PC_FLAG_WIDTH) 	\
123,126c123,126
< #define SET_PC(this_vector,reified_pc) %%\
< ((this_vector=((int)reified_pc)>>(PC_VAL_WIDTH+PC_FLAG_WIDTH)),	%%\
<  reified_pc=((LispObject) (((int)(reified_pc))&PC_VECT_MASK)),	%%\
<  bytevector_start(this_vector)+((((int)reified_pc)>>PC_FLAG_WIDTH))		%%\
---
> #define SET_PC(this_vector,reified_pc) \
> ((this_vector=((int)reified_pc)>>(PC_VAL_WIDTH+PC_FLAG_WIDTH)),	\
>  reified_pc=((LispObject) (((int)(reified_pc))&PC_VECT_MASK)),	\
>  bytevector_start(this_vector)+((((int)reified_pc)>>PC_FLAG_WIDTH))		\
130c130
< #define ADJUST_PC(pc,x)		%%\
---
> #define ADJUST_PC(pc,x)		\
134,135c134,135
<   (this_vector=intval(bytefunction_codenum(x)),		%%\
<    bytevector_start(intval(bytefunction_codenum(x)))	%%\
---
>   (this_vector=intval(bytefunction_codenum(x)),		\
>    bytevector_start(intval(bytefunction_codenum(x)))	\
156,168c156,168
< {				%%\
<   int i,j;			%%\
<   for (i=0, j=0; i<256; i++)	%%\
<     {				%%\
<       if (exec_counts[i]!=0)	%%\
< 	{ 				%%\
< 	  fprintf(stderr,"%3d: %7d ",i,exec_counts[i]); 	%%\
< 	  j++;			%%\
< 	  if ( (j%6) == 0)	%%\
< 	    fputc('\n',stderr);	%%\
< 	}			%%\
<     }				%%\
<   if (j%6!=0) fputc('\n',stderr); %%\
---
> {				\
>   int i,j;			\
>   for (i=0, j=0; i<256; i++)	\
>     {				\
>       if (exec_counts[i]!=0)	\
> 	{ 				\
> 	  fprintf(stderr,"%3d: %7d ",i,exec_counts[i]); 	\
> 	  j++;			\
> 	  if ( (j%6) == 0)	\
> 	    fputc('\n',stderr);	\
> 	}			\
>     }				\
>   if (j%6!=0) fputc('\n',stderr); \
179c179
< #  define BC_CASE(name) %%\
---
> #  define BC_CASE(name) \
182c182
< #  define  BC_CASE(name)%%\
---
> #  define  BC_CASE(name)\
187c187
< #  define BC_CASE(name) %%\
---
> #  define BC_CASE(name) \
191c191
< #  define BC_CASE(name) %%\
---
> #  define BC_CASE(name) \
197,201d196
< #define N_GLOBALS 10
< #define GLOBAL_REF(n) vref(global_vector,(n))
< #define Generic_Lookup_Fn 0
< #define Generic_Apply_Fn 1
< 
203,209c198,200
<   static LispObject boot_modules[MAX_BOOT_MODULES]; \
<   static int boot_module_count=1;		       \
<   static bytecode exit_bytes[] = { BC_EXIT };		\
<   static SYSTEM_GLOBAL(int,static_count);	\
<   static LispObject *statics;	\
<   static LispObject static_vectors;	\
<   static LispObject global_vector;
---
>   static int static_count;	\
>   static LispObject *statics[MAX_MODS];	\
>   static LispObject static_vectors[MAX_MODS];	\
211c202
<   static bytecode **bytevectors;	\
---
>   static bytecode *bytevectors[MAX_MODS];	\
215,220c206,211
< #define BC_INITIALISE_GLOBALS()		%%\
<   BCnil=nil;				%%\
<   BCtrue=lisptrue;			%%\
<   BC_BUG(oldsp=sp);			%%\
<   sp=stacktop-1; 	/* stackpointer[0]= top elt */ %%\
<   pc=start_pc;			%%\
---
> #define BC_INITIALISE_GLOBALS()		\
>   BCnil=nil;				\
>   BCtrue=lisptrue;			\
>   BC_BUG(oldsp=sp);			\
>   sp=stacktop-1; 	/* stackpointer[0]= top elt */ \
>   pc=start_pc;			\
223,224c214,215
< #define BC_NOINSTRUCT(pc)	%%\
<  default:			%%\
---
> #define BC_NOINSTRUCT(pc)	\
>  default:			\
===================================================================
RCS file: RCS/irun.h,v
retrieving revision 1.2
diff -r1.2 irun.h
===================================================================
RCS file: RCS/iset.h,v
retrieving revision 1.4
diff -r1.4 iset.h
===================================================================
RCS file: RCS/lamport.h,v
retrieving revision 1.1
diff -r1.1 lamport.h
===================================================================
RCS file: RCS/lex_global.h,v
retrieving revision 1.1
diff -r1.1 lex_global.h
===================================================================
RCS file: RCS/listops.h,v
retrieving revision 1.2
diff -r1.2 listops.h
===================================================================
RCS file: RCS/lists.h,v
retrieving revision 1.2
diff -r1.2 lists.h
===================================================================
RCS file: RCS/macros.h,v
retrieving revision 1.2
diff -r1.2 macros.h
===================================================================
RCS file: RCS/modboot.h,v
retrieving revision 1.4
diff -r1.4 modboot.h
1,2d0
< #ifndef MODBOOT_H
< #define MODBOOT_H
53d50
< #endif
===================================================================
RCS file: RCS/modops.h,v
retrieving revision 1.2
diff -r1.2 modops.h
===================================================================
RCS file: RCS/modules.h,v
retrieving revision 1.4
diff -r1.4 modules.h
===================================================================
RCS file: RCS/ngenerics.h,v
retrieving revision 1.4
diff -r1.4 ngenerics.h
===================================================================
RCS file: RCS/objects.h,v
retrieving revision 1.1
diff -r1.1 objects.h
===================================================================
RCS file: RCS/root.h,v
retrieving revision 1.2
diff -r1.2 root.h
===================================================================
RCS file: RCS/runtime.h,v
retrieving revision 1.2
diff -r1.2 runtime.h
===================================================================
RCS file: RCS/semaphores.h,v
retrieving revision 1.2
diff -r1.2 semaphores.h
===================================================================
RCS file: RCS/sio.h,v
retrieving revision 1.3
diff -r1.3 sio.h
===================================================================
RCS file: RCS/slots.h,v
retrieving revision 1.2
diff -r1.2 slots.h
===================================================================
RCS file: RCS/sockets.h,v
retrieving revision 1.2
diff -r1.2 sockets.h
===================================================================
RCS file: RCS/specials.h,v
retrieving revision 1.3
diff -r1.3 specials.h
===================================================================
RCS file: RCS/state.h,v
retrieving revision 1.3
diff -r1.3 state.h
===================================================================
RCS file: RCS/structs.h,v
retrieving revision 1.11
diff -r1.11 structs.h
379d378
<   int           local_count;   /* Number of local slots */
390a390
>   int           local_count;   /* Number of local slots */
===================================================================
RCS file: RCS/symboot.h,v
retrieving revision 1.2
diff -r1.2 symboot.h
===================================================================
RCS file: RCS/syssockets.h,v
retrieving revision 1.2
diff -r1.2 syssockets.h
===================================================================
RCS file: RCS/system_p.h,v
retrieving revision 1.3
diff -r1.3 system_p.h
===================================================================
RCS file: RCS/system_t.h,v
retrieving revision 1.3
diff -r1.3 system_t.h
===================================================================
RCS file: RCS/table.h,v
retrieving revision 1.3
diff -r1.3 table.h
===================================================================
RCS file: RCS/threads.h,v
retrieving revision 1.4
diff -r1.4 threads.h
===================================================================
RCS file: RCS/toplevel.h,v
retrieving revision 1.2
diff -r1.2 toplevel.h
===================================================================
RCS file: RCS/vectors.h,v
retrieving revision 1.2
diff -r1.2 vectors.h
===================================================================
RCS file: RCS/version.h,v
retrieving revision 1.5
diff -r1.5 version.h
2c2
<  * $Id: version.h,v 1.5 1992/05/02 12:38:18 pab Exp $
---
>  * $Id: version.h,v 1.4 1992/03/14 14:36:26 pab Exp $
5,7d4
<  * Revision 1.5  1992/05/02  12:38:18  pab
<  * More changes
<  *
===================================================================
RCS file: RCS/y.tab.h,v
retrieving revision 1.1
diff -r1.1 y.tab.h
