/[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.14 by mjthomas, Fri Jul 11 06:33:53 2003 UTC revision 1.15 by camm, Wed Jul 30 15:15:58 2003 UTC
# Line 95  bool ovm_process_created; Line 95  bool ovm_process_created;
95    
96  static int gc_time         = -1;  static int gc_time         = -1;
97  static int gc_start        = 0;  static int gc_start        = 0;
98    static int gc_recursive    = 0;
99  int sgc_enabled            = 0;  int sgc_enabled            = 0;
100  int first_protectable_page = 0;  int first_protectable_page = 0;
101    
# Line 1084  GBC(enum type t) { Line 1085  GBC(enum type t) {
1085      fflush(stdout);      fflush(stdout);
1086    }    }
1087  #endif  #endif
1088    if (gc_time >=0) {gc_start=runtime();}    if (gc_time >=0 && !gc_recursive++) {gc_start=runtime();}
1089        
1090    maxpage = page(heap_end);    maxpage = page(heap_end);
1091        
# Line 1319  GBC(enum type t) { Line 1320  GBC(enum type t) {
1320    if (in_sgc && sgc_enabled==0)    if (in_sgc && sgc_enabled==0)
1321      sgc_start();      sgc_start();
1322        
1323    if(gc_time>=0) {gc_time=gc_time+(gc_start=(runtime()-gc_start));}    if(gc_time>=0 && !--gc_recursive) {gc_time=gc_time+(gc_start=(runtime()-gc_start));}
1324        
1325    if (sSAnotify_gbcA->s.s_dbind != Cnil) {    if (sSAnotify_gbcA->s.s_dbind != Cnil) {
1326            
1327      fprintf(stdout, "(T=%d).GC finished]\n",      if (gc_recursive)
1328              gc_start        fprintf(stdout, "(T=...).GC finished]\n");
1329              );      else
1330          fprintf(stdout, "(T=%d).GC finished]\n",gc_start);
1331      fflush(stdout);      fflush(stdout);
1332    
1333    }    }
1334        
1335        

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

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