CVS: sml-dist/src/compiler/ElabData/modules moduleutil.sml, 1.2.20.7, 1.2.20.8

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

Modified Files:
      Tag: primop-branch-2
	moduleutil.sml 
Log Message:
more debugging printouts

Index: moduleutil.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/compiler/ElabData/modules/moduleutil.sml,v
retrieving revision 1.2.20.7
retrieving revision 1.2.20.8
diff -C2 -d -r1.2.20.7 -r1.2.20.8
*** moduleutil.sml	18 Jul 2006 14:15:36 -0000	1.2.20.7
--- moduleutil.sml	18 Jul 2006 14:39:28 -0000	1.2.20.8
***************
*** 196,199 ****
--- 196,200 ----
                      | STRINFO ({entities,...}, dacc, dinfo) => 
  		      (print ("getStrElem " ^ (Int.toString slot) ^ "\n");
+ 		       print ("dacc: " ^ A.prAcc dacc ^ "\n");
  		       PrimOpId.ppStrInfo dinfo;
                        STRINFO(EE.lookStrEnt(entities,entVar), 
***************
*** 254,258 ****
  
  fun mkStrBase (sym, sign, sInfo) = 
!   let val (newsig, newInfo) = getStrElem (sym, sign, sInfo)
     in case newsig
         of ERRORsig => ERRORstr
--- 255,260 ----
  
  fun mkStrBase (sym, sign, sInfo) = 
!   let val _ = print "### mkStrBase\n"
!       val (newsig, newInfo) = getStrElem (sym, sign, sInfo)
     in case newsig
         of ERRORsig => ERRORstr
***************
*** 268,272 ****
  
  fun mkStrDef (sym, _, sign, sInfo) = 
!   let val (newsig, newInfo) = getStrElem (sym, sign, sInfo)
     in case newsig
          of ERRORsig => CONSTstrDef ERRORstr
--- 270,275 ----
  
  fun mkStrDef (sym, _, sign, sInfo) = 
!   let val _ = print "### mkStrDef\n"
!       val (newsig, newInfo) = getStrElem (sym, sign, sInfo)
     in case newsig
          of ERRORsig => CONSTstrDef ERRORstr
***************
*** 282,286 ****
  
  fun getPath makeIt (str, SP.SPATH spath, fullsp) =
!   let fun loop([sym], sign, sInfo) = makeIt (sym, fullsp, sign, sInfo)
          | loop(sym::rest, sign, sInfo) = 
              let val (newsig, newsInfo) = getStrElem (sym, sign, sInfo)
--- 285,290 ----
  
  fun getPath makeIt (str, SP.SPATH spath, fullsp) =
!   let val _ = print "### getPath\n"
!       fun loop([sym], sign, sInfo) = makeIt (sym, fullsp, sign, sInfo)
          | loop(sym::rest, sign, sInfo) = 
              let val (newsig, newsInfo) = getStrElem (sym, sign, sInfo)
***************
*** 444,448 ****
  
  fun openStructure (env: SE.staticEnv, str) =
!   let fun look sym =
  	  getBinding (sym,str) handle Unbound _ => raise SE.Unbound
        val symbols = getStrSymbols str
--- 448,453 ----
  
  fun openStructure (env: SE.staticEnv, str) =
!   let val _ = print "### openStructure\n"
!       fun look sym =
  	  getBinding (sym,str) handle Unbound _ => raise SE.Unbound
        val symbols = getStrSymbols str


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