CVS: sml-dist/src/compiler/Semant/statenv prim.sml, 1.18, 1.18.4.1

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

Modified Files:
      Tag: primop-branch-2
	prim.sml 
Log Message:
further primop changes

Index: prim.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/compiler/Semant/statenv/prim.sml,v
retrieving revision 1.18
retrieving revision 1.18.4.1
diff -C2 -d -r1.18 -r1.18.4.1
*** prim.sml	11 Nov 2004 00:12:40 -0000	1.18
--- prim.sml	20 Jun 2006 22:15:23 -0000	1.18.4.1
***************
*** 867,887 ****
  
        val sigrec ={stamp=ST.special "inLineSig",
! 		       name=NONE, closed=true, 
! 		       fctflag=false,
! 		       symbols=allSymbols, elements=allElements,
! 		       typsharing=nil, strsharing=nil,
! 		       properties = PropList.newHolder (),
! 		       (* boundeps=ref (SOME []), *)
! 		       (* lambdaty=ref NONE, *)
! 		       stub = NONE}
        val _ = ModulePropLists.setSigBoundeps (sigrec, SOME [])
!    in M.STR{sign=M.SIG sigrec,
!             rlzn={stamp=ST.special "inLineStr",
! 		  stub=NONE,
! 		  entities=EE.empty,
! 		  properties = PropList.newHolder (),
! 		  (* lambdaty=ref(NONE), *)
! 		  rpath=IP.IPATH[S.strSymbol "inLine"]},
! 	    access=A.nullAcc, info= II.mkStrInfo infList}
    end
  
--- 867,888 ----
  
        val sigrec ={stamp=ST.special "inLineSig",
! 		   name=NONE, closed=true, 
! 		   fctflag=false,
! 		   symbols=allSymbols, elements=allElements,
! 		   typsharing=nil, strsharing=nil,
! 		   properties = PropList.newHolder (),
! 		   (* boundeps=ref (SOME []), *)
! 		   (* lambdaty=ref NONE, *)
! 		   stub = NONE}
        val _ = ModulePropLists.setSigBoundeps (sigrec, SOME [])
!    in M.STR{sign = M.SIG sigrec,
!             rlzn = {stamp=ST.special "inLineStr",
! 		    stub=NONE,
! 		    entities=EE.empty,
! 		    properties = PropList.newHolder (),
! 		    (* lambdaty=ref(NONE), *)
! 		    rpath=IP.IPATH[S.strSymbol "inLine"]},
! 	    access = A.nullAcc,
!             info = II.mkStrInfo infList}
    end