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

Diff of /gcl/o/structure.c

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

revision 1.12 by camm, Thu Nov 6 16:08:11 2003 UTC revision 1.13 by camm, Fri Jun 10 15:14:01 2005 UTC
# Line 114  structure_set(object x, object name, int Line 114  structure_set(object x, object name, int
114    
115  #ifdef SGC  #ifdef SGC
116   /* make sure the structure header is on a writable page */   /* make sure the structure header is on a writable page */
117   if (x->d.m) FEerror("bad gc field",0); else  x->d.m = 0;   if (is_marked(x)) FEerror("bad gc field",0); else  unmark(x);
118  #endif    #endif  
119    
120   s_pos= & SLOT_POS(x->str.str_def,0);   s_pos= & SLOT_POS(x->str.str_def,0);

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

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