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

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

Modified Files:
      Tag: primop-branch-2
	moduleutil.sml 
Log Message:
debug printout

Index: moduleutil.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/compiler/ElabData/modules/moduleutil.sml,v
retrieving revision 1.2.20.8
retrieving revision 1.2.20.9
diff -C2 -d -r1.2.20.8 -r1.2.20.9
*** moduleutil.sml	18 Jul 2006 14:39:28 -0000	1.2.20.8
--- moduleutil.sml	18 Jul 2006 19:46:35 -0000	1.2.20.9
***************
*** 209,213 ****
  	       sinfo as STRINFO(rlzn as {entities,...}, dacc, dinfo)) = 
        (case getSpec(elements, sym)
!         of FCTspec{sign=subfsig, entVar, slot} =>( print "getFctElem\n";
               FCT{sign=subfsig, rlzn=EE.lookFctEnt(entities,entVar),
                   access=A.selAcc(dacc, slot),
--- 209,214 ----
  	       sinfo as STRINFO(rlzn as {entities,...}, dacc, dinfo)) = 
        (case getSpec(elements, sym)
!         of FCTspec{sign=subfsig, entVar, slot} =>
! 	   ( print "### getFctElem\n";
               FCT{sign=subfsig, rlzn=EE.lookFctEnt(entities,entVar),
                   access=A.selAcc(dacc, slot),
***************
*** 267,271 ****
    end
  
! fun mkStr (sym, _, sign, sInfo) = mkStrBase (sym, sign, sInfo)
  
  fun mkStrDef (sym, _, sign, sInfo) = 
--- 268,272 ----
    end
  
! fun mkStr (sym, _, sign, sInfo) = (print "### mkStr\n"; mkStrBase (sym, sign, sInfo))
  
  fun mkStrDef (sym, _, sign, sInfo) = 
***************
*** 306,310 ****
        getPath mkVal
  val getStrPath : M.Structure * SP.path * SP.path -> M.Structure =
!       getPath mkStr
  val getFctPath : M.Structure * SP.path * SP.path -> M.Functor =
        getPath mkFct
--- 307,311 ----
        getPath mkVal
  val getStrPath : M.Structure * SP.path * SP.path -> M.Structure =
!       (print "### getStrPath\n"; getPath mkStr)
  val getFctPath : M.Structure * SP.path * SP.path -> M.Functor =
        getPath mkFct
***************
*** 420,423 ****
--- 421,425 ----
  	 let val sinfo = STRINFO(rlzn, dacc, dinfo)
  	     val entities = #entities rlzn
+ 	     val _ = print "### getBinding\n"
  	 in
  	     case S.nameSpace sym
***************
*** 436,439 ****
--- 438,442 ----
    | getBinding (sym, STRSIG{sign as SIG _,entPath=ep}) = 
       let val sinfo = SIGINFO(rev ep)
+ 	 val _ = print "### getBinding\n"
       in
  	 case S.nameSpace sym


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