CVS: sml-dist/src/compiler/Semant/statenv prim.sml, 1.18.4.5, 1.18.4.6

Update of /cvsroot/smlnj/sml-dist/src/compiler/Semant/statenv
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv30801/src/compiler/Semant/statenv

Modified Files:
      Tag: primop-branch-2
	prim.sml 
Log Message:
fixes for new primop scheme

Index: prim.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/compiler/Semant/statenv/prim.sml,v
retrieving revision 1.18.4.5
retrieving revision 1.18.4.6
diff -C2 -d -r1.18.4.5 -r1.18.4.6
*** prim.sml	12 Jul 2006 15:43:13 -0000	1.18.4.5
--- prim.sml	13 Jul 2006 20:12:25 -0000	1.18.4.6
***************
*** 514,518 ****
        fun mkVarElement(name,(symbols,elements,primElems,offset)) =
          let val s = S.varSymbol name
!             val sp = M.VALspec{spec=bottom, slot=offset}
                      (* using universal generic type bottom for all components *)
              val p = PrimOpId.PrimE(PrimOpId.Prim name) (* the primop code *)
--- 514,519 ----
        fun mkVarElement(name,(symbols,elements,primElems,offset)) =
          let val s = S.varSymbol name
!             val ty = PrimOpTypeMap.primopTypeMap name (* the intrinsic type *)
!             val sp = M.VALspec{spec=ty, slot=offset}
                      (* using universal generic type bottom for all components *)
              val p = PrimOpId.PrimE(PrimOpId.Prim name) (* the primop code *)



-------------------------------------------------------------------------
Using Tomcat but need to do more? Need to support web services, security?
Get stuff done quickly with pre-integrated technology to make your job easier
Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642