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/config/gen-offsets.c
ViewVC logotype

Diff of /sml/trunk/src/runtime/config/gen-offsets.c

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

revision 250, Sat Apr 17 18:57:03 1999 UTC revision 569, Tue Mar 7 04:01:07 2000 UTC
# Line 15  Line 15 
15  #define VOFFSET(fld)    (((Addr_t)&(V.s.fld)) - (Addr_t)&(V.b[0]))  #define VOFFSET(fld)    (((Addr_t)&(V.s.fld)) - (Addr_t)&(V.b[0]))
16    
17  #define PVOFFSET(sym, fld)      \  #define PVOFFSET(sym, fld)      \
18      fprintf(f, "#define %sOffVSP %d\n", (sym), VOFFSET(fld))      fprintf(f, "#define %sOffVSP %ld\n", (sym), (long int) VOFFSET(fld))
19  #define PMOFFSET(sym, fld)      \  #define PMOFFSET(sym, fld)      \
20      fprintf(f, "#define %sOffMSP %d\n", (sym), MOFFSET(fld))      fprintf(f, "#define %sOffMSP %ld\n", (sym), (long int) MOFFSET(fld))
21    
22    
23  main ()  int main (void)
24  {  {
25      union {      union {
26          vproc_state_t   s;          vproc_state_t   s;
# Line 30  Line 30 
30          ml_state_t      s;          ml_state_t      s;
31          char            b[sizeof(ml_state_t)];          char            b[sizeof(ml_state_t)];
32      }           M;      }           M;
     int         i;  
33      FILE        *f;      FILE        *f;
34    
35      f = OpenFile ("mlstate-offsets.h", "_MLSTATE_OFFSETS_");      f = OpenFile ("mlstate-offsets.h", "_MLSTATE_OFFSETS_");

Legend:
Removed from v.250  
changed lines
  Added in v.569

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