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/num64/runtime/gc/build-literals.c
ViewVC logotype

Diff of /sml/branches/num64/runtime/gc/build-literals.c

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

revision 5228, Thu May 30 17:51:06 2019 UTC revision 5229, Thu May 30 18:15:17 2019 UTC
# Line 583  Line 583 
583  #ifdef DEBUG_LITERALS  #ifdef DEBUG_LITERALS
584              SayDebug("[%2d]: INT32(%d)\n", startPC, arg32.iArg);              SayDebug("[%2d]: INT32(%d)\n", startPC, arg32.iArg);
585  #endif  #endif
586  #ifdef SIZES_C64_ML64              res = INT32_CtoML(msp, arg32.iArg);
           /* on 64-bit systems 32-bit integers are unboxed (i.e., tagged) */  
             LIST_cons(msp, stk, INT_CtoML(arg32.iArg), stk);  
 #else  
           /* on 32-bit systems, 32-bit ints are boxed */  
             INT32_ALLOC(msp, res, arg32.iArg);  
587              LIST_cons(msp, stk, res, stk);              LIST_cons(msp, stk, res, stk);
588              availSpace -= 2*WORD_SZB;              availSpace -= 2*WORD_SZB;
 #endif  
589              break;              break;
590    
591            case INT64:            case INT64:

Legend:
Removed from v.5228  
changed lines
  Added in v.5229

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