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 1547, Wed Jul 14 19:40:35 2004 UTC revision 1548, Wed Jul 14 21:25:43 2004 UTC
# Line 1  Line 1 
1  (*  (*
2   * main.sml - Driver routine ("main") for ml-ffigen.   * main.sml - Driver routine ("main") for ml-ffigen.
3   *   *
4   *  (C) 2001, Lucent Technologies, Bell Labs   *  (C) 2004  The Fellowship of SML/NJ
5   *   *
6   * author: Matthias Blume (blume@research.bell-labs.com)   * author: Matthias Blume (blume@tti-c.org)
7   *)   *)
8  structure Main = struct  structure Main = struct
9    local    local
# Line 21  Line 21 
21      val target_table =      val target_table =
22          [tgt ("sparc-unix", SizesSparc.sizes, EndianBig.shift),          [tgt ("sparc-unix", SizesSparc.sizes, EndianBig.shift),
23           tgt ("x86-unix", SizesX86.sizes, EndianLittle.shift),           tgt ("x86-unix", SizesX86.sizes, EndianLittle.shift),
24           tgt ("x86-win32", SizesX86.sizes, EndianLittle.shift)           tgt ("x86-win32", SizesX86.sizes, EndianLittle.shift),
25             tgt ("ppc-unix", SizesPPC.sizes, EndianLittle.shift)
26           (* needs to be extended ... *)           (* needs to be extended ... *)
27           ]           ]
28    

Legend:
Removed from v.1547  
changed lines
  Added in v.1548

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