CVS: sml-dist/src/compiler/FLINT/trans translate.sml, 1.33.4.20, 1.33.4.21

Update of /cvsroot/smlnj/sml-dist/src/compiler/FLINT/trans
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv13888/src/compiler/FLINT/trans

Modified Files:
      Tag: primop-branch-2
	translate.sml 
Log Message:
continued instrumentation and commenting for tcc_env bug

Index: translate.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/compiler/FLINT/trans/translate.sml,v
retrieving revision 1.33.4.20
retrieving revision 1.33.4.21
diff -C2 -d -r1.33.4.20 -r1.33.4.21
*** translate.sml	21 Aug 2006 23:07:07 -0000	1.33.4.20
--- translate.sml	22 Aug 2006 22:54:10 -0000	1.33.4.21
***************
*** 49,53 ****
   ****************************************************************************)
  
! val debugging = ref false
  fun bug msg = EM.impossible("Translate: " ^ msg)
  val say = Control.Print.say
--- 49,53 ----
   ****************************************************************************)
  
! val debugging = ref true
  fun bug msg = EM.impossible("Translate: " ^ msg)
  val say = Control.Print.say
***************
*** 1462,1468 ****
  
  (** type check body (including kind check) **)
! val _ = print "**** Translate: plexp ****\n"
  val _ = PPLexp.printLexp plexp
  val _ = ChkPlexp.checkLty(plexp,0)
  
  fun prGen (flag,printE) s e =
--- 1462,1469 ----
  
  (** type check body (including kind check) **)
! val _ = print "**** Translate: typechecking plexp ****\n"
  val _ = PPLexp.printLexp plexp
  val _ = ChkPlexp.checkLty(plexp,0)
+ val _ = print "**** Translate: finished typechecking plexp ****\n"
  
  fun prGen (flag,printE) s e =


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