CVS: sml-dist/src/compiler/ElabData/syntax varcon.sig, 1.3, 1.3.20.1 varcon.sml, 1.3.20.1, 1.3.20.2

Update of /cvsroot/smlnj/sml-dist/src/compiler/ElabData/syntax
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv13849/src/compiler/ElabData/syntax

Modified Files:
      Tag: primop-branch-2
	varcon.sig varcon.sml 
Log Message:
ElabData work on moduleutil.sml mainly

Index: varcon.sig
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/compiler/ElabData/syntax/varcon.sig,v
retrieving revision 1.3
retrieving revision 1.3.20.1
diff -C2 -d -r1.3 -r1.3.20.1
*** varcon.sig	20 Aug 2001 19:34:03 -0000	1.3
--- varcon.sig	6 Jul 2006 22:28:24 -0000	1.3.20.1
***************
*** 11,15 ****
  	 typ : Types.ty ref,
           access : Access.access,
!          info   : II.ii}
      | OVLDvar of			(* overloaded identifier *)
  	  {name : Symbol.symbol,
--- 11,15 ----
  	 typ : Types.ty ref,
           access : Access.access,
!          prim   : PrimOpId.primId}
      | OVLDvar of			(* overloaded identifier *)
  	  {name : Symbol.symbol,

Index: varcon.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/compiler/ElabData/syntax/varcon.sml,v
retrieving revision 1.3.20.1
retrieving revision 1.3.20.2
diff -C2 -d -r1.3.20.1 -r1.3.20.2
*** varcon.sml	6 Jul 2006 16:35:38 -0000	1.3.20.1
--- varcon.sml	6 Jul 2006 22:28:24 -0000	1.3.20.2
***************
*** 19,23 ****
         typ : T.ty ref,
         access : A.access,
!        info : PrimOpId.primId}
    | OVLDvar of       	      	      (* overloaded identifier *)
        {name : S.symbol,
--- 19,23 ----
         typ : T.ty ref,
         access : A.access,
!        prim : PrimOpId.primId}
    | OVLDvar of       	      	      (* overloaded identifier *)
        {name : S.symbol,
***************
*** 36,40 ****
               typ = ref T.UNDEFty,
               access = acc,
!              info = II.Null}
  
  val bogusCON = T.DATACON{name=S.varSymbol "bogus",
--- 36,40 ----
               typ = ref T.UNDEFty,
               access = acc,
!              prim = PrimOpId.NonPrim}
  
  val bogusCON = T.DATACON{name=S.varSymbol "bogus",


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