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/kernel/boot.c
ViewVC logotype

Diff of /sml/trunk/src/runtime/kernel/boot.c

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

revision 223, Sat Apr 17 16:27:01 1999 UTC revision 227, Sat Apr 17 17:15:03 1999 UTC
# Line 455  Line 455 
455    
456        /* allocate space and read code object */        /* allocate space and read code object */
457          codeObj = ML_AllocCode (msp, thisSzB+extraLen);          codeObj = ML_AllocCode (msp, thisSzB+extraLen);
458          ReadBinFile (file, STR_MLtoC(codeObj), thisSzB, binDir, fname);          ReadBinFile (file, PTR_MLtoC(char, codeObj), thisSzB, binDir, fname);
459    
460        /* tack on the bin-file name as a comment string. */        /* tack on the bin-file name as a comment string. */
461          memcpy (STR_MLtoC(codeObj)+thisSzB+padLen, fname, strLen);          memcpy (PTR_MLtoC(char, codeObj)+thisSzB+padLen, fname, strLen);
462          *(GET_SEQ_DATAPTR(Byte_t, codeObj)+thisSzB+extraLen-1) = (Byte_t)strLen;          *(PTR_MLtoC(Byte_t, codeObj)+thisSzB+extraLen-1) = (Byte_t)strLen;
463    
464          FlushICache (STR_MLtoC(codeObj), thisSzB);          FlushICache (PTR_MLtoC(char, codeObj), thisSzB);
465    
466        /* create closure */        /* create closure */
467          REC_ALLOC1 (msp, closure, GET_SEQ_DATA(codeObj));          REC_ALLOC1 (msp, closure, codeObj);
468    
469        /* apply the closure to the import PerID vector */        /* apply the closure to the import PerID vector */
470          SaveCState (msp, &BinFileList, NIL(ml_val_t *));          SaveCState (msp, &BinFileList, NIL(ml_val_t *));

Legend:
Removed from v.223  
changed lines
  Added in v.227

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