Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Annotation of /sml/trunk/src/cm/main/specific-symval-fn.sml
ViewVC logotype

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 336 - (view) (download)

1 : blume 336 functor SpecificSymValFn (structure MachDepVC: MACHDEP_VC
2 :     val os: SMLofNJ.SysInfo.os_kind) =
3 :     struct
4 :     local
5 :     val (arch, extra_arch, big, size) =
6 :     case MachDepVC.architecture of
7 :     "sparc" => ("SPARC", NONE, true, 32)
8 :     | "alpha32" => ("ALPHA", NONE, false, 32)
9 :     | "alpha32x" => ("ALPHA", SOME "ALHPA_OLD", false, 32)
10 :     | "mipsel" => ("MIPS", NONE, false, 32)
11 :     | "mipseb" => ("MIPS", NONE, true, 32)
12 :     | "x86" => ("X86", NONE, false, 32)
13 :     | "hppa" => ("HPPA", NONE, false, 32)
14 :     | "rs6000" => ("RS6000", NONE, false, 32)
15 :     | "ppc" => ("PPC", NONE, false, 32)
16 :     | arch => GenericVC.ErrorMsg.impossible
17 :     ("unknown architecture: " ^ arch)
18 :     in
19 :     val env =
20 :     SymVal.default { arch = arch,
21 :     extra_arch = extra_arch,
22 :     big = big,
23 :     size = size,
24 :     os = os,
25 :     version = #version_id GenericVC.version }
26 :     end
27 :     end

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