/[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 by camm, Sat Feb 15 00:38:28 2003 UTC revision 1.13.4.1 by camm, Wed Jul 30 15:11:12 2003 UTC
# Line 96  bool ovm_process_created; Line 96  bool ovm_process_created;
96  bool saving_system;  bool saving_system;
97  static int gc_time = -1;  static int gc_time = -1;
98  static int gc_start = 0;  static int gc_start = 0;
99    static int gc_recursive = 0;
100  int runtime(void);  int runtime(void);
101  int sgc_enabled=0;  int sgc_enabled=0;
102  int  first_protectable_page =0;  int  first_protectable_page =0;
# Line 1091  GBC(enum type t) { Line 1092  GBC(enum type t) {
1092      fflush(stdout);      fflush(stdout);
1093    }    }
1094  #endif  #endif
1095    if (gc_time >=0) {gc_start=runtime();}    if (gc_time >=0 && !gc_recursive++) {gc_start=runtime();}
1096        
1097    maxpage = page(heap_end);    maxpage = page(heap_end);
1098        
# Line 1326  GBC(enum type t) { Line 1327  GBC(enum type t) {
1327    if (in_sgc && sgc_enabled==0)    if (in_sgc && sgc_enabled==0)
1328      sgc_start();      sgc_start();
1329        
1330    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));}
1331        
1332    if (sSAnotify_gbcA->s.s_dbind != Cnil) {    if (sSAnotify_gbcA->s.s_dbind != Cnil) {
1333            
1334      fprintf(stdout, "(T=%d).GC finished]\n",      if (gc_recursive)
1335              gc_start        fprintf(stdout, "(T=...).GC finished]\n");
1336              );      else
1337          fprintf(stdout, "(T=%d).GC finished]\n",gc_start);
1338      fflush(stdout);      fflush(stdout);
1339    
1340    }    }
1341        
1342        

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

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