CVS: sml-dist/src/compiler/ElabData/modules moduleutil.sml, 1.2.20.4, 1.2.20.5

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

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


Index: moduleutil.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/compiler/ElabData/modules/moduleutil.sml,v
retrieving revision 1.2.20.4
retrieving revision 1.2.20.5
diff -C2 -d -r1.2.20.4 -r1.2.20.5
*** moduleutil.sml	7 Jul 2006 20:38:45 -0000	1.2.20.4
--- moduleutil.sml	11 Jul 2006 15:10:14 -0000	1.2.20.5
***************
*** 74,78 ****
  
  (*** The function getStr is used in modules/sigmatch.sml only ***)
! fun getStr (elements, entEnv, sym, dacc, dinfo) =
     case getSpec(elements, sym)
      of STRspec{sign, slot, def, entVar} => 
--- 74,78 ----
  
  (*** The function getStr is used in modules/sigmatch.sml only ***)
! fun getStr (elements, entEnv, sym, dacc, prims) =
     case getSpec(elements, sym)
      of STRspec{sign, slot, def, entVar} => 
***************
*** 80,84 ****
   	  of STRent entity => 
                 (STR{sign = sign, rlzn = entity, access = A.selAcc(dacc,slot),
!                     prim = POI.selStrPrimId (dinfo, slot)},
  		entVar)
  	   | _ => bug "getStr: bad entity")
--- 80,84 ----
   	  of STRent entity => 
                 (STR{sign = sign, rlzn = entity, access = A.selAcc(dacc,slot),
!                     prim = POI.selStrPrimId (prims, slot)},
  		entVar)
  	   | _ => bug "getStr: bad entity")



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