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

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

Modified Files:
      Tag: primop-branch-2
	moduleutil.sml 
Log Message:
StrPrimInfo selectors now return [] or NonPrim by default if StrPrimInfo is empty -- probably wrong but this is what InlInfo did before

Index: moduleutil.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/compiler/ElabData/modules/moduleutil.sml,v
retrieving revision 1.2.20.9
retrieving revision 1.2.20.10
diff -C2 -d -r1.2.20.9 -r1.2.20.10
*** moduleutil.sml	18 Jul 2006 19:46:35 -0000	1.2.20.9
--- moduleutil.sml	24 Jul 2006 23:08:58 -0000	1.2.20.10
***************
*** 234,237 ****
--- 234,238 ----
  fun mkVal (sym, sp, sign as SIG {elements,...},
  	  sInfo as STRINFO({entities,...}, dacc, dinfo)) : V.value =
+     (print "mkVal\n";
      (case getSpec(elements, sym) of
  	 VALspec{spec,slot} =>
***************
*** 252,256 ****
                               const=const, sign=sign, lazyp=lazyp})
           end
!        | _ => bug "mkVal: wrong spec")
    | mkVal _ = V.VAL(V.ERRORvar)
  
--- 253,257 ----
                               const=const, sign=sign, lazyp=lazyp})
           end
!        | _ => bug "mkVal: wrong spec"))
    | mkVal _ = V.VAL(V.ERRORvar)
  


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