/[gcl]/gcl/o/main.c
ViewVC logotype

Diff of /gcl/o/main.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.64 by camm, Thu Sep 29 17:54:33 2005 UTC revision 1.65 by camm, Thu Oct 6 20:30:08 2005 UTC
# Line 465  initlisp(void) { Line 465  initlisp(void) {
465          if (NOT_OBJECT_ALIGNED(a))          if (NOT_OBJECT_ALIGNED(a))
466            error("Ct is not properly aligned");            error("Ct is not properly aligned");
467    
468          a=(fixnum)Dotnil;  /*      a=(fixnum)Dotnil; */
469          if (NOT_OBJECT_ALIGNED(a))  /*      if (NOT_OBJECT_ALIGNED(a)) */
470            error("Dotnil is not properly aligned");  /*        error("Dotnil is not properly aligned"); */
471    
472          if (NULL_OR_ON_C_STACK(&j) == 0          if (NULL_OR_ON_C_STACK(&j) == 0
473              || NULL_OR_ON_C_STACK(Cnil) != 0              || NULL_OR_ON_C_STACK(Cnil) != 0
# Line 479  initlisp(void) { Line 479  initlisp(void) {
479    
480          gcl_init_alloc();          gcl_init_alloc();
481    
482          Dotnil->c.c_cdr=Dotnil;  /*      Dotnil->c.c_cdr=Dotnil; */
483          Dotnil->s.s_dbind = Dotnil;  /*      Dotnil->s.s_dbind = Dotnil; */
484          Dotnil->s.s_sfdef = NOT_SPECIAL;  /*      Dotnil->s.s_sfdef = NOT_SPECIAL; */
485          Dotnil->s.s_fillp = 6;  /*      Dotnil->s.s_fillp = 6; */
486          Dotnil->s.s_self = "DOTNIL";  /*      Dotnil->s.s_self = "DOTNIL"; */
487          Dotnil->s.s_gfdef = OBJNULL;  /*      Dotnil->s.s_gfdef = OBJNULL; */
488          Dotnil->s.s_plist = Cnil;  /*      Dotnil->s.s_plist = Cnil; */
489          Dotnil->s.s_hpack = Cnil;  /*      Dotnil->s.s_hpack = Cnil; */
490          Dotnil->s.s_stype = (short)stp_constant;  /*      Dotnil->s.s_stype = (short)stp_constant; */
491          Dotnil->s.s_mflag = FALSE;  /*      Dotnil->s.s_mflag = FALSE; */
492          Dotnil->s.s_hash = ihash_equal1(Dotnil,0);  /*      Dotnil->s.s_hash = ihash_equal1(Dotnil,0); */
493                    
494          Cnil->c.c_cdr=Cnil;          Cnil->c.c_cdr=Cnil;
495          Cnil->s.s_dbind = Cnil;          Cnil->s.s_dbind = Cnil;

Legend:
Removed from v.1.64  
changed lines
  Added in v.1.65

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26