CVS: sml-dist/src/compiler/FLINT/trans translate.sml, 1.33.4.14, 1.33.4.15

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

Modified Files:
      Tag: primop-branch-2
	translate.sml 
Log Message:
typesutil, moduleutils, and translate...debugging output now checks debugging flag...more debugging for flintnm/ltykernel

Index: translate.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/compiler/FLINT/trans/translate.sml,v
retrieving revision 1.33.4.14
retrieving revision 1.33.4.15
diff -C2 -d -r1.33.4.14 -r1.33.4.15
*** translate.sml	24 Jul 2006 23:07:36 -0000	1.33.4.14
--- translate.sml	26 Jul 2006 15:22:19 -0000	1.33.4.15
***************
*** 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
***************
*** 1460,1463 ****
--- 1460,1466 ----
  (** normalizing the plambda expression into FLINT *)
  val flint = let val _ = debugmsg ">>norm"
+ 		val _ = if !debugging 
+ 			then complain EM.WARN ">>flintnm" EM.nullErrorBody
+ 			else ()
  		val n = FlintNM.norm plexp
  		val _ = debugmsg "<<postnorm"


-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys -- and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV