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-runtime/sysinfo.c
ViewVC logotype

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

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

revision 691, Tue Jul 25 07:20:24 2000 UTC revision 692, Thu Jul 27 08:34:53 2000 UTC
# Line 9  Line 9 
9  #include "ml-values.h"  #include "ml-values.h"
10  #include "ml-objects.h"  #include "ml-objects.h"
11  #include "cfun-proto-list.h"  #include "cfun-proto-list.h"
12    #include "machine-id.h"
13    
14  #if defined(OPSYS_UNIX)  #if defined(OPSYS_UNIX)
15  #  include "ml-unixdep.h"  /* for OS_NAME */  #  include "ml-unixdep.h"  /* for OS_NAME */
# Line 32  Line 33 
33   *   "TARGET_ARCH"   *   "TARGET_ARCH"
34   *   "HAS_SOFT_POLL"   *   "HAS_SOFT_POLL"
35   *   "HAS_MP"   *   "HAS_MP"
36     *   "HEAP_SUFFIX"      -- added by Blume (7/2000)
37   */   */
38  ml_val_t _ml_RunT_sysinfo (ml_state_t *msp, ml_val_t arg)  ml_val_t _ml_RunT_sysinfo (ml_state_t *msp, ml_val_t arg)
39  {  {
# Line 42  Line 44 
44          res = ML_CString(msp, OS_NAME);          res = ML_CString(msp, OS_NAME);
45      else if (STREQ("OS_VERSION", name))      else if (STREQ("OS_VERSION", name))
46          res = ML_CString(msp, "<unknown>");          res = ML_CString(msp, "<unknown>");
47        else if (STREQ("HEAP_SUFFIX", name))
48            res = ML_CString(msp, MACHINE_ID "-" OPSYS_ID);
49      else if (STREQ("HOST_ARCH", name))      else if (STREQ("HOST_ARCH", name))
50  #if   defined(HOST_ALPHA32)  #if   defined(HOST_ALPHA32)
51          res = ML_CString(msp, "ALPHA32");          res = ML_CString(msp, "ALPHA32");

Legend:
Removed from v.691  
changed lines
  Added in v.692

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