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/c-libs/smlnj-date/gmtime.c
ViewVC logotype

Diff of /sml/trunk/src/runtime/c-libs/smlnj-date/gmtime.c

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

revision 651, Thu Jun 1 18:34:03 2000 UTC revision 1572, Fri Jul 30 22:55:23 2004 UTC
# Line 7  Line 7 
7  #include "ml-base.h"  #include "ml-base.h"
8  #include "ml-objects.h"  #include "ml-objects.h"
9  #include "cfun-proto-list.h"  #include "cfun-proto-list.h"
10    #include "ml-c.h"
11    
12  /* _ml_Date_gmtime : Int32.int -> (int * int * int * int * int * int * int * int * int)  /* _ml_Date_gmtime : Int32.int -> (int * int * int * int * int * int * int * int * int)
13   *   *
# Line 21  Line 22 
22    
23      tm = gmtime (&t);      tm = gmtime (&t);
24    
25        if (tm == NULL) return RAISE_SYSERR(msp,0);
26    
27      ML_AllocWrite(msp, 0, MAKE_DESC(DTAG_record, 9));      ML_AllocWrite(msp, 0, MAKE_DESC(DTAG_record, 9));
28      ML_AllocWrite(msp, 1, INT_CtoML(tm->tm_sec));      ML_AllocWrite(msp, 1, INT_CtoML(tm->tm_sec));
29      ML_AllocWrite(msp, 2, INT_CtoML(tm->tm_min));      ML_AllocWrite(msp, 2, INT_CtoML(tm->tm_min));

Legend:
Removed from v.651  
changed lines
  Added in v.1572

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