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/SMLNJ/src/runtime/c-libs/ml-c.h
ViewVC logotype

Diff of /sml/branches/SMLNJ/src/runtime/c-libs/ml-c.h

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

revision 7, Sun Jan 18 00:59:30 1998 UTC revision 8, Sun Jan 18 01:01:29 1998 UTC
# Line 36  Line 36 
36    
37    
38  #ifdef SYSCALL_RET_ERR  #ifdef SYSCALL_RET_ERR
39  ml_val_t RaiseSysError (ml_state_t *msp, int err, const char *alt_msg);  ml_val_t RaiseSysError (ml_state_t *msp, int err, const char *alt_msg, const char *at);
40  #define RAISE_SYSERR(msp, sts)  RaiseSysError((msp), (sts), NIL(char *))  #define RAISE_SYSERR(msp, sts)  \
41  #define RAISE_ERROR(msp, msg)   RaiseSysError((msp), 0, (msg))          RaiseSysError((msp), (sts), NIL(char *), "<" __FILE__ ">")
42    #define RAISE_ERROR(msp, msg)   \
43            RaiseSysError((msp), 0, (msg), "<" __FILE__ ">")
44    
45  #else  #else
46  ml_val_t RaiseSysError (ml_state_t *msp, const char *alt_msg);  ml_val_t RaiseSysError (ml_state_t *msp, const char *alt_msg, const char *at);
47  #define RAISE_SYSERR(msp, sts)  RaiseSysError((msp), NIL(char *))  #define RAISE_SYSERR(msp, sts)  \
48  #define RAISE_ERROR(msp, msg)   RaiseSysError((msp), (msg))          RaiseSysError((msp), NIL(char *), "<" __FILE__ ">")
49    #define RAISE_ERROR(msp, msg)   \
50            RaiseSysError((msp), (msg), "<" __FILE__ ">")
51    
52  #endif  #endif
53    

Legend:
Removed from v.7  
changed lines
  Added in v.8

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