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/compiler/ElabData/basics/primopid.sml
ViewVC logotype

Diff of /sml/trunk/compiler/ElabData/basics/primopid.sml

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

revision 2008, Thu Aug 3 18:10:26 2006 UTC revision 2009, Sun Aug 6 06:05:09 2006 UTC
# Line 46  Line 46 
46    (* Select the prim id for a value component *)    (* Select the prim id for a value component *)
47    fun selValPrimFromStrPrim([], slot) = NonPrim    fun selValPrimFromStrPrim([], slot) = NonPrim
48      | selValPrimFromStrPrim(elems, slot) =      | selValPrimFromStrPrim(elems, slot) =
49        (print ("selValPrim "^(Int.toString slot)^"\n"); (case List.nth(elems, slot)        (case List.nth(elems, slot)
50          of PrimE(id) => id          of PrimE(id) => id
51           | _ =>           | _ =>
52             bug "PrimOpId.selValPrimFromStrPrim: unexpected StrE"             bug "PrimOpId.selValPrimFromStrPrim: unexpected StrE"
53        ) handle Subscript => bug "PrimOpId.selValPrimFromStrPrim Subscript")        ) handle Subscript => bug "PrimOpId.selValPrimFromStrPrim Subscript"
54             (* This bug occurs if we got a substructure's             (* This bug occurs if we got a substructure's
55                strPrimElem instead of an expected value component's                strPrimElem instead of an expected value component's
56                primId *)                primId *)

Legend:
Removed from v.2008  
changed lines
  Added in v.2009

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