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

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

Modified Files:
      Tag: primop-branch-2
	prim.sml 
Log Message:
sigmatch is still functorized because of PLambda Types, the compiler builds now but does not bootstrap

Index: prim.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/compiler/Semant/statenv/prim.sml,v
retrieving revision 1.18.4.4
retrieving revision 1.18.4.5
diff -C2 -d -r1.18.4.4 -r1.18.4.5
*** prim.sml	10 Jul 2006 22:27:13 -0000	1.18.4.4
--- prim.sml	12 Jul 2006 15:43:13 -0000	1.18.4.5
***************
*** 129,133 ****
  		 (* lambdaty=ref NONE,  *)
  		 rpath=IP.IPATH[S.strSymbol "primTypes"]},
! 	   access=A.nullAcc, info= II.mkStrInfo []}
     in M.STR strrec
  
--- 129,133 ----
  		 (* lambdaty=ref NONE,  *)
  		 rpath=IP.IPATH[S.strSymbol "primTypes"]},
! 	   access=A.nullAcc, prim= []}
     in M.STR strrec
  
***************
*** 478,483 ****
       "rawupdatef64"]
  
- end (* local *)
- 
  (* uList structure *)
  val uList =
--- 478,481 ----
***************
*** 506,510 ****
  		  (* lambdaty=ref(NONE), *)
  		  rpath=IP.IPATH[S.strSymbol "uList"]},
!             access=A.nullAcc, info= II.mkStrInfo[]}
    end
  
--- 504,508 ----
  		  (* lambdaty=ref(NONE), *)
  		  rpath=IP.IPATH[S.strSymbol "uList"]},
!             access=A.nullAcc, prim= []}
    end
  
***************
*** 518,522 ****
              val sp = M.VALspec{spec=bottom, slot=offset}
                      (* using universal generic type bottom for all components *)
!             val p = PrimOpId.PrimE(PrimOpId.Prim offset) (* the primop code *)
           in (s::symbols, (s,sp)::elements, p::primElems, offset+1)
          end
--- 516,520 ----
              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 *)
           in (s::symbols, (s,sp)::elements, p::primElems, offset+1)
          end
***************
*** 566,568 ****
--- 564,568 ----
  end
  
+ end (* local *)
+ 
  end (* structure PrimEnv *)



-------------------------------------------------------------------------
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