CVS: sml-dist/src/compiler/ElabData/modules moduleutil.sml, 1.2.20.11, 1.2.20.12

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

Modified Files:
      Tag: primop-branch-2
	moduleutil.sml 
Log Message:
hooked up PPPrim and turned off some debugging printouts

Index: moduleutil.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/compiler/ElabData/modules/moduleutil.sml,v
retrieving revision 1.2.20.11
retrieving revision 1.2.20.12
diff -C2 -d -r1.2.20.11 -r1.2.20.12
*** moduleutil.sml	26 Jul 2006 15:21:40 -0000	1.2.20.11
--- moduleutil.sml	6 Aug 2006 06:05:08 -0000	1.2.20.12
***************
*** 78,85 ****
      of STRspec{sign, slot, def, entVar} => 
          (case EE.look(entEnv,entVar)
!  	  of STRent entity => (print "getStr\n";
                 (STR{sign = sign, rlzn = entity, access = A.selAcc(dacc,slot),
                      prim = POI.selStrPrimId(prims, slot)},
! 		entVar))
  	   | _ => bug "getStr: bad entity")
       | _ => bug "getStr: wrong spec"
--- 78,85 ----
      of STRspec{sign, slot, def, entVar} => 
          (case EE.look(entEnv,entVar)
!  	  of STRent entity => 
                 (STR{sign = sign, rlzn = entity, access = A.selAcc(dacc,slot),
                      prim = POI.selStrPrimId(prims, slot)},
! 		entVar)
  	   | _ => bug "getStr: bad entity")
       | _ => bug "getStr: wrong spec"
***************
*** 90,97 ****
      of FCTspec{sign, slot, entVar} => 
          (case EE.look(entEnv,entVar)
!           of FCTent entity => (print "getFct\n"; 
                 (FCT{sign = sign, rlzn = entity, access = A.selAcc(dacc,slot),
                      prim = POI.selStrPrimId (dinfo, slot)},
! 		entVar))
             | _ => bug "getFct: bad entity")
       | _ => bug "getFct: wrong spec"
--- 90,97 ----
      of FCTspec{sign, slot, entVar} => 
          (case EE.look(entEnv,entVar)
!           of FCTent entity => 
                 (FCT{sign = sign, rlzn = entity, access = A.selAcc(dacc,slot),
                      prim = POI.selStrPrimId (dinfo, slot)},
! 		entVar)
             | _ => bug "getFct: bad entity")
       | _ => bug "getFct: wrong spec"
***************
*** 194,203 ****
                    case sInfo
                     of SIGINFO ep => SIGINFO (entVar::ep)
!                     | STRINFO ({entities,...}, dacc, dinfo) => 
! 		      (debugmsg (">>getStrElem " ^ (Int.toString slot));
! 		       debugmsg ("dacc: " ^ A.prAcc dacc);
! 		       PrimOpId.ppStrInfo dinfo;
                        STRINFO(EE.lookStrEnt(entities,entVar), 
!                               A.selAcc(dacc,slot), POI.selStrPrimId (dinfo, slot)))
                in (subsig, newInfo)
               end)
--- 194,201 ----
                    case sInfo
                     of SIGINFO ep => SIGINFO (entVar::ep)
!                     | STRINFO ({entities,...}, dacc, prim) => 
                        STRINFO(EE.lookStrEnt(entities,entVar), 
!                               A.selAcc(dacc,slot), 
! 			      POI.selStrPrimId (prim, slot))
                in (subsig, newInfo)
               end)


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