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/ml-nlffigen/main.sml
ViewVC logotype

Diff of /sml/trunk/src/ml-nlffigen/main.sml

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

revision 1077, Tue Feb 19 15:48:50 2002 UTC revision 1078, Tue Feb 19 21:26:48 2002 UTC
# Line 12  Line 12 
12          RegExpFn (structure P = AwkSyntax          RegExpFn (structure P = AwkSyntax
13                    structure E = DfaEngine)                    structure E = DfaEngine)
14    
15      fun tgt (n, sz, sh, cc) =      fun tgt (n, sz, sh) =
16          { name  = n, sizes = sz, shift = sh, stdcall = cc }          { name  = n, sizes = sz, shift = sh }
17    
18      val default_target =      val default_target =
19          tgt (DefaultName.name,          tgt (DefaultName.name, DefaultSizes.sizes, DefaultEndian.shift)
              DefaultSizes.sizes, DefaultEndian.shift, DefaultCC.stdcall)  
20    
21      val target_table =      val target_table =
22          [tgt ("sparc-unix",          [tgt ("sparc-unix", SizesSparc.sizes, EndianBig.shift),
23                SizesSparc.sizes, EndianBig.shift, CC_ccall.stdcall),           tgt ("x86-unix", SizesX86.sizes, EndianLittle.shift),
24           tgt ("x86-unix",           tgt ("x86-win32", SizesX86.sizes, EndianLittle.shift)
              SizesX86.sizes, EndianLittle.shift, CC_ccall.stdcall),  
          tgt ("x86-win32",  
               SizesX86.sizes, EndianLittle.shift, CC_stdcall.stdcall)  
25           (* needs to be extended ... *)           (* needs to be extended ... *)
26           ]           ]
27    

Legend:
Removed from v.1077  
changed lines
  Added in v.1078

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