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/symval.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/main/symval.sml

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

revision 432, Fri Sep 10 05:44:08 1999 UTC revision 433, Mon Sep 13 06:57:29 1999 UTC
# Line 11  Line 11 
11    
12      val look : env -> string -> int option      val look : env -> string -> int option
13      val empty : env      val empty : env
14        val define : env * string * int option -> env
15    
16      val default : { arch: string,      val default : { arch: string,
17                      big: bool,                      big: bool,
# Line 28  Line 29 
29    
30      val empty = StringMap.empty      val empty = StringMap.empty
31    
32        fun define (e, s, NONE) =
33            (#1 (StringMap.remove (e, s))
34             handle LibBase.NotFound => e)
35          | define (e, s, SOME v) = StringMap.insert (e, s, v)
36    
37      fun default { arch, big, size, os, version } = let      fun default { arch, big, size, os, version } = let
38          val arch_sym = "ARCH_" ^ arch          val arch_sym = "ARCH_" ^ arch
39          val endian_sym = if big then "BIG_ENDIAN" else "LITTLE_ENDIAN"          val endian_sym = if big then "BIG_ENDIAN" else "LITTLE_ENDIAN"

Legend:
Removed from v.432  
changed lines
  Added in v.433

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