Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/branches/SMLNJ/src/runtime/gc/major-gc.c
ViewVC logotype

Diff of /sml/branches/SMLNJ/src/runtime/gc/major-gc.c

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

revision 7, Sun Jan 18 00:59:30 1998 UTC revision 8, Sun Jan 18 01:01:29 1998 UTC
# Line 90  Line 90 
90                case OBJC_pair:                case OBJC_pair:
91                case OBJC_string:                case OBJC_string:
92                case OBJC_array:                case OBJC_array:
               case OBJC_unmapped:  
93                  break;                  break;
94                default:                default:
95                    if (id != AID_UNMAPPED)
96                  SayDebug ("** [%d/%d]: %#x --> %#x; strange object class %d\n",                  SayDebug ("** [%d/%d]: %#x --> %#x; strange object class %d\n",
97                    gen, objKind, start, w, EXTRACT_OBJC(id));                    gen, objKind, start, w, EXTRACT_OBJC(id));
98                  break;                  break;
# Line 201  Line 201 
201  #endif  #endif
202    
203  #ifndef PAUSE_STATS     /* don't do messages when collecting pause data */  #ifndef PAUSE_STATS     /* don't do messages when collecting pause data */
204        if (GCMessages) {
205  SayDebug ("GC #");  SayDebug ("GC #");
206  for (i = heap->numGens-1;  i >= 0; i--) {  for (i = heap->numGens-1;  i >= 0; i--) {
207      SayDebug ("%d.", heap->gen[i]->numGCs);      SayDebug ("%d.", heap->gen[i]->numGCs);
208  }  }
209  SayDebug ("%d:  ", heap->numMinorGCs);  SayDebug ("%d:  ", heap->numMinorGCs);
210        }
211  #endif  #endif
212    
213      HeapMon_StartGC (heap, maxCollectedGen);      HeapMon_StartGC (heap, maxCollectedGen);
# Line 378  Line 380 
380  numBO1, numBO2, numBO3);  numBO1, numBO2, numBO3);
381  #endif  #endif
382  #ifndef PAUSE_STATS     /* don't do timing when collecting pause data */  #ifndef PAUSE_STATS     /* don't do timing when collecting pause data */
383      {      if (GCMessages) {
384          long    gcTime;          long    gcTime;
385          StopGCTimer (msp->ml_vproc, &gcTime);          StopGCTimer (msp->ml_vproc, &gcTime);
386          SayDebug (" (%d ms)\n", gcTime);          SayDebug (" (%d ms)\n", gcTime);
387      }      }
388        else
389            StopGCTimer (msp->ml_vproc, NIL(long *));
390  #endif  #endif
391    
392  #ifdef VM_STATS  #ifdef VM_STATS

Legend:
Removed from v.7  
changed lines
  Added in v.8

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0