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/cm/main/specific-symval-fn.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/main/specific-symval-fn.sml

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

revision 878, Wed Jul 18 17:43:27 2001 UTC revision 879, Thu Jul 19 18:59:38 2001 UTC
# Line 5  Line 5 
5   *   *
6   * Author: Matthias Blume (blume@kurims.kyoto-u.ac.jp)   * Author: Matthias Blume (blume@kurims.kyoto-u.ac.jp)
7   *)   *)
8  functor SpecificSymValFn (structure MachDepVC: MACHDEP_VC  functor SpecificSymValFn (val arch: string
9                            val os: SMLofNJ.SysInfo.os_kind) =                            val os: SMLofNJ.SysInfo.os_kind) =
10      struct      struct
11          local          local
12              val (arch, big, size) =              val (arch, big, size) =
13                  case MachDepVC.architecture of                  case arch of
14                      "sparc" => ("SPARC", true, 32)                      "sparc" => ("SPARC", true, 32)
15                    | "alpha32" => ("ALPHA", false, 32)                    | "alpha32" => ("ALPHA", false, 32)
16                    | "mipsel" => ("MIPS", false, 32)                    | "mipsel" => ("MIPS", false, 32)
# Line 19  Line 19 
19                    | "hppa" => ("HPPA", false, 32)                    | "hppa" => ("HPPA", false, 32)
20                    | "rs6000" => ("RS6000", false, 32)                    | "rs6000" => ("RS6000", false, 32)
21                    | "ppc" => ("PPC", false, 32)                    | "ppc" => ("PPC", false, 32)
22                    | arch => GenericVC.ErrorMsg.impossible                    | arch => ErrorMsg.impossible
23                          ("unknown architecture: " ^ arch)                          ("unknown architecture: " ^ arch)
24              val env0 =              val env0 = SymVal.default
25                  SymVal.default { arch = arch,                             { arch = arch, big = big, size = size, os = os,
26                                   big = big,                               version = #version_id CompilerVersion.version }
                                  size = size,  
                                  os = os,  
                                  version = #version_id GenericVC.version }  
27              val er = ref env0              val er = ref env0
28          in          in
29              fun symval s = let              fun symval s = let

Legend:
Removed from v.878  
changed lines
  Added in v.879

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