CVS: sml-dist/src/compiler/ElabData/basics primopid.sml, 1.1.2.9, 1.1.2.10

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

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

Index: primopid.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/compiler/ElabData/basics/Attic/primopid.sml,v
retrieving revision 1.1.2.9
retrieving revision 1.1.2.10
diff -C2 -d -r1.1.2.9 -r1.1.2.10
*** primopid.sml	24 Jul 2006 23:08:58 -0000	1.1.2.9
--- primopid.sml	6 Aug 2006 06:05:08 -0000	1.1.2.10
***************
*** 47,55 ****
    fun selValPrimFromStrPrim([], slot) = NonPrim 
      | selValPrimFromStrPrim(elems, slot) =
!       (print ("selValPrim "^(Int.toString slot)^"\n"); (case List.nth(elems, slot)
  	of PrimE(id) => id
  	 | _ => 
  	   bug "PrimOpId.selValPrimFromStrPrim: unexpected StrE"
!       ) handle Subscript => bug "PrimOpId.selValPrimFromStrPrim Subscript")
             (* This bug occurs if we got a substructure's
  	      strPrimElem instead of an expected value component's
--- 47,55 ----
    fun selValPrimFromStrPrim([], slot) = NonPrim 
      | selValPrimFromStrPrim(elems, slot) =
!       (case List.nth(elems, slot)
  	of PrimE(id) => id
  	 | _ => 
  	   bug "PrimOpId.selValPrimFromStrPrim: unexpected StrE"
!       ) handle Subscript => bug "PrimOpId.selValPrimFromStrPrim Subscript"
             (* This bug occurs if we got a substructure's
  	      strPrimElem instead of an expected value component's


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