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/trunk/src/runtime/gc/import-heap.c
ViewVC logotype

Diff of /sml/trunk/src/runtime/gc/import-heap.c

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

revision 3, Sat Oct 4 23:33:46 1997 UTC revision 8, Sun Jan 18 01:01:29 1998 UTC
# Line 167  Line 167 
167  #endif  #endif
168        /* read the ML heap */        /* read the ML heap */
169          ReadHeap (&inBuf, &heapHdr, msp, externs);          ReadHeap (&inBuf, &heapHdr, msp, externs);
170          /* GC message are on by default for interactive images */
171            GCMessages = TRUE;
172      }      }
173      else {  /* EXPORT_FN_IMAGE */      else {  /* EXPORT_FN_IMAGE */
174          ml_val_t        funct, cmdName, args;          ml_val_t        funct, cmdName, args;
# Line 190  Line 192 
192  /*  /*
193  SayDebug("arg = %#x : [%#x, %#x]\n", msp->ml_arg, REC_SEL(msp->ml_arg, 0), REC_SEL(msp->ml_arg, 1));  SayDebug("arg = %#x : [%#x, %#x]\n", msp->ml_arg, REC_SEL(msp->ml_arg, 0), REC_SEL(msp->ml_arg, 1));
194  */  */
195          /* GC message are off by default for exportFn images */
196            GCMessages = FALSE;
197      }      }
198    
199      FREE (externs);      FREE (externs);
# Line 369  Line 373 
373    
374                      if (DumpObjectStrings && (j == CODE_INDX)) {                      if (DumpObjectStrings && (j == CODE_INDX)) {
375                        /* dump the comment string of the code object */                        /* dump the comment string of the code object */
                         Byte_t          *lastByte =  
                                             (Byte_t *)(bdp->obj) + bdp->sizeB - 1;  
                         int             len = *lastByte;  
376                          char            buf[256];                          char            buf[256];
377                          strncpy (buf, lastByte-len, len);                          if (BO_GetCodeObjTag(bdp, buf, sizeof(buf)) != NIL(char *))
                         buf[len] = '\0';  
378                          SayDebug ("[%6d bytes] %s\n", bdp->sizeB, buf);                          SayDebug ("[%6d bytes] %s\n", bdp->sizeB, buf);
379                      }                      }
380                  }                  }
# Line 528  Line 528 
528                                  __aid, __obj);                                  \                                  __aid, __obj);                                  \
529                          *__p = PTR_CtoML((__obj - __dp->oldAddr)                \                          *__p = PTR_CtoML((__obj - __dp->oldAddr)                \
530                                  + __dp->newObj->obj);                           \                                  + __dp->newObj->obj);                           \
531                          __gg = __dp->newObj->gen;                               \                          __gg = __dp->newObj->gen-1;                             \
532                      }                                                           \                      }                                                           \
533                      else {                                                      \                      else {                                                      \
534                          __gg = EXTRACT_GEN(__aid)-1;                            \                          __gg = EXTRACT_GEN(__aid)-1;                            \

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

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