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

Diff of /gcl/o/gbc.c

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

revision 1.29 by camm, Thu Aug 5 22:32:07 2004 UTC revision 1.30 by camm, Sat May 7 02:44:56 2005 UTC
# Line 180  enum type what_to_collect; Line 180  enum type what_to_collect;
180  void  void
181  enter_mark_origin(object *p)  enter_mark_origin(object *p)
182  {  {
   unsigned long np=page(p);  
183  /*   if (np>=MAXPAGE) */  /*   if (np>=MAXPAGE) */
184  /*     error("Address supplied to enter_mar_origin out of range"); */  /*     error("Address supplied to enter_mar_origin out of range"); */
185    if (mark_origin_max >= MARK_ORIGIN_MAX)    if (mark_origin_max >= MARK_ORIGIN_MAX)
186      error("too many mark origins");      error("too many mark origins");
187  #ifdef SGC  #ifdef SGC
188    if (np<MAXPAGE)   {
189      sgc_type_map[np] |= SGC_PERM_WRITABLE ;     unsigned long np=page(p);
190       if (np<MAXPAGE)
191         sgc_type_map[np] |= SGC_PERM_WRITABLE ;
192     }
193  #endif    #endif  
194    mark_origin[mark_origin_max++] = p;    mark_origin[mark_origin_max++] = p;
195  }  }
# Line 1103  GBC(enum type t) { Line 1105  GBC(enum type t) {
1105             (sgc_enabled ? sgc_count_type(t) : tm_of(t)->tm_npage),             (sgc_enabled ? sgc_count_type(t) : tm_of(t)->tm_npage),
1106             (tm_table[(int)t].tm_name)+1);             (tm_table[(int)t].tm_name)+1);
1107  #else  #else
1108      printf("[%s for %d %s pages..",      printf("[%s for %ld %s pages..",
1109             ("GC"),             ("GC"),
1110             (tm_of(t)->tm_npage),             (tm_of(t)->tm_npage),
1111             (tm_table[(int)t].tm_name)+1);             (tm_table[(int)t].tm_name)+1);

Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30

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