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/compiler/Semant/statenv/prim.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/Semant/statenv/prim.sml

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

revision 1369, Sat Sep 13 23:11:20 2003 UTC revision 1370, Mon Sep 15 03:38:25 2003 UTC
# Line 813  Line 813 
813        fun mkVarElement((name, p, t),(symbols,elements,dacc,offset)) =        fun mkVarElement((name, p, t),(symbols,elements,dacc,offset)) =
814          let val s = S.varSymbol name          let val s = S.varSymbol name
815              val sp = M.VALspec{spec=t, slot=offset}              val sp = M.VALspec{spec=t, slot=offset}
816              val d = II.mkPrimInfo(p, t)              val d = II.mkPrimInfo p  (* PRIMOP *)
817           in (s::symbols, (s,sp)::elements, d::dacc, offset+1)           in (s::symbols, (s,sp)::elements, d::dacc, offset+1)
818          end          end
819    
# Line 840  Line 840 
840                    properties = PropList.newHolder (),                    properties = PropList.newHolder (),
841                    (* lambdaty=ref(NONE), *)                    (* lambdaty=ref(NONE), *)
842                    rpath=IP.IPATH[S.strSymbol "inLine"]},                    rpath=IP.IPATH[S.strSymbol "inLine"]},
843              access=A.nullAcc, info= II.mkStrInfo infList}              access=A.nullAcc,
844                info= II.mkStrInfo infList}
845    end    end
846    
847  (* priming structures: PrimTypes and InLine *)  (* priming structures: PrimTypes and InLine *)

Legend:
Removed from v.1369  
changed lines
  Added in v.1370

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