/[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.13.4.2.2.11.4.1.2.1 by camm, Thu Aug 5 22:31:39 2004 UTC revision 1.13.4.2.2.11.4.1.2.1.4.1 by camm, Fri May 6 21:56:56 2005 UTC
# Line 189  enum type what_to_collect; Line 189  enum type what_to_collect;
189  void  void
190  enter_mark_origin(object *p)  enter_mark_origin(object *p)
191  {  {
   unsigned long np=page(p);  
192  /*   if (np>=MAXPAGE) */  /*   if (np>=MAXPAGE) */
193  /*     error("Address supplied to enter_mar_origin out of range"); */  /*     error("Address supplied to enter_mar_origin out of range"); */
194    if (mark_origin_max >= MARK_ORIGIN_MAX)    if (mark_origin_max >= MARK_ORIGIN_MAX)
195      error("too many mark origins");      error("too many mark origins");
196  #ifdef SGC  #ifdef SGC
197    if (np<MAXPAGE)   {
198      sgc_type_map[np] |= SGC_PERM_WRITABLE ;     unsigned long np=page(p);
199       if (np<MAXPAGE)
200         sgc_type_map[np] |= SGC_PERM_WRITABLE ;
201     }
202  #endif    #endif  
203    mark_origin[mark_origin_max++] = p;    mark_origin[mark_origin_max++] = p;
204  }  }
# Line 1112  GBC(enum type t) { Line 1114  GBC(enum type t) {
1114             (sgc_enabled ? sgc_count_type(t) : tm_of(t)->tm_npage),             (sgc_enabled ? sgc_count_type(t) : tm_of(t)->tm_npage),
1115             (tm_table[(int)t].tm_name)+1);             (tm_table[(int)t].tm_name)+1);
1116  #else  #else
1117      printf("[%s for %d %s pages..",      printf("[%s for %ld %s pages..",
1118             ("GC"),             ("GC"),
1119             (tm_of(t)->tm_npage),             (tm_of(t)->tm_npage),
1120             (tm_table[(int)t].tm_name)+1);             (tm_table[(int)t].tm_name)+1);

Legend:
Removed from v.1.13.4.2.2.11.4.1.2.1  
changed lines
  Added in v.1.13.4.2.2.11.4.1.2.1.4.1

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