CVS: sml-dist/src/compiler/Elaborator/print ppmod.sml, 1.3.10.1, 1.3.10.2 ppval.sml, 1.3.10.2, 1.3.10.3

Update of /cvsroot/smlnj/sml-dist/src/compiler/Elaborator/print
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv18764/Elaborator/print

Modified Files:
      Tag: primop-branch-2
	ppmod.sml ppval.sml 
Log Message:
Elaborator compilers, updated Elaborate modules to use new PrimOpId and param ty vars

Index: ppmod.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/compiler/Elaborator/print/ppmod.sml,v
retrieving revision 1.3.10.1
retrieving revision 1.3.10.2
diff -C2 -d -r1.3.10.1 -r1.3.10.2
*** ppmod.sml	7 Jul 2006 21:06:09 -0000	1.3.10.1
--- ppmod.sml	10 Jul 2006 14:06:37 -0000	1.3.10.2
***************
*** 91,95 ****
  		   in SE.bind(sym,B.STRbind(M.STR{sign=sign,rlzn=strEnt,
  						  access=A.nullAcc,
! 						  info=II.Null}),
  			      env)
  		  end
--- 91,95 ----
  		   in SE.bind(sym,B.STRbind(M.STR{sign=sign,rlzn=strEnt,
  						  access=A.nullAcc,
! 						  prim=PrimOpId.StrE []}),
  			      env)
  		  end

Index: ppval.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/compiler/Elaborator/print/ppval.sml,v
retrieving revision 1.3.10.2
retrieving revision 1.3.10.3
diff -C2 -d -r1.3.10.2 -r1.3.10.3
*** ppval.sml	7 Jul 2006 21:49:48 -0000	1.3.10.2
--- ppval.sml	10 Jul 2006 14:06:37 -0000	1.3.10.3
***************
*** 13,17 ****
    val ppDebugDcon : PrettyPrint.stream
  		    -> StaticEnv.staticEnv -> VarCon.datacon -> unit
!   val ppDebugVar: (PrimOpId -> string) ->
  		  PrettyPrint.stream 
  		  -> StaticEnv.staticEnv -> VarCon.var -> unit
--- 13,17 ----
    val ppDebugDcon : PrettyPrint.stream
  		    -> StaticEnv.staticEnv -> VarCon.datacon -> unit
!   val ppDebugVar: (PrimOpId.primId -> string) ->
  		  PrettyPrint.stream 
  		  -> StaticEnv.staticEnv -> VarCon.var -> unit
***************
*** 124,128 ****
  	      openHVBox 3;
  	      pps "({access="; ppAccess access; ppcomma_nl ppstrm;
!               pps "info="; ppInfo info; ppcomma_nl ppstrm;
  	      pps "path="; pps (SymPath.toString path); ppcomma_nl ppstrm;
  	      pps "typ=ref "; ppType env ppstrm (!typ); 
--- 124,128 ----
  	      openHVBox 3;
  	      pps "({access="; ppAccess access; ppcomma_nl ppstrm;
!               pps "prim="; ppInfo prim; ppcomma_nl ppstrm;
  	      pps "path="; pps (SymPath.toString path); ppcomma_nl ppstrm;
  	      pps "typ=ref "; ppType env ppstrm (!typ); 



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