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/c-libs/posix-procenv/time.c
ViewVC logotype

Diff of /sml/branches/num64/runtime/c-libs/posix-procenv/time.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 17  Line 17 
17  ml_val_t _ml_P_ProcEnv_time (ml_state_t *msp, ml_val_t arg)  ml_val_t _ml_P_ProcEnv_time (ml_state_t *msp, ml_val_t arg)
18  {  {
19      time_t      t;      time_t      t;
     ml_val_t    res;  
20    
21      t = time (NIL(time_t*));      t = time (NIL(time_t*));
22    
23  /* 64BIT: 32-bit integers are not heap allocated */      return INT32_CtoML(msp, t);
     INT32_ALLOC(msp, res, t);  
     return res;  
24    
25  } /* end of _ml_P_ProcEnv_time */  } /* end of _ml_P_ProcEnv_time */
26    

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