CVS: sml-dist/src/compiler/ElabData/basics primopid.sig, 1.1.2.4, 1.1.2.5 primopid.sml, 1.1.2.6, 1.1.2.7

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

Modified Files:
      Tag: primop-branch-2
	primopid.sig primopid.sml 
Log Message:
debug printout for getStrElem/getFctElem (slot selection on empty strPrimInfo) bug

Index: primopid.sig
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/compiler/ElabData/basics/Attic/primopid.sig,v
retrieving revision 1.1.2.4
retrieving revision 1.1.2.5
diff -C2 -d -r1.1.2.4 -r1.1.2.5
*** primopid.sig	11 Jul 2006 15:35:49 -0000	1.1.2.4
--- primopid.sig	18 Jul 2006 14:15:35 -0000	1.1.2.5
***************
*** 22,25 ****
--- 22,29 ----
    val selStrPrimId : strPrimElem list * int -> strPrimElem list
    val selValPrimFromStrPrim : strPrimElem list * int -> primId
+ 
+   val ppPrim : primId -> unit
+   val ppStrInfo : strPrimInfo -> unit
+ 
  (*
      val match : inl_info ->

Index: primopid.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/compiler/ElabData/basics/Attic/primopid.sml,v
retrieving revision 1.1.2.6
retrieving revision 1.1.2.7
diff -C2 -d -r1.1.2.6 -r1.1.2.7
*** primopid.sml	12 Jul 2006 15:43:12 -0000	1.1.2.6
--- primopid.sml	18 Jul 2006 14:15:35 -0000	1.1.2.7
***************
*** 38,41 ****
--- 38,42 ----
  	of StrE elems' => elems'
  	 | PrimE _ => bug "PrimOpId.selStrPrimId: unexpected PrimE")
+       handle Subscript => bug "PrimOpId.selStrPrimId Subscript"
  	(* This bug happens if we got a primid for a value 
  	   component when we expected a strPrimElem for a 
***************
*** 48,56 ****
  	 | _ => 
  	   bug "PrimOpId.selValPrimFromStrPrim: unexpected StrE"
!       )
             (* This bug occurs if we got a substructure's
  	      strPrimElem instead of an expected value component's
  	      primId *)
  
  (* 
      fun selStrInfo (StrE l, i) =
--- 49,66 ----
  	 | _ => 
  	   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
  	      primId *)
  
+   fun ppPrim NonPrim = print "<NonPrim>"
+     | ppPrim (Prim p) = print ("<PrimE "^p^">")
+ 
+   fun ppStrInfo strelems = 
+       let fun ppElem [] = ()
+ 	    | ppElem ((PrimE p)::xs) = (ppPrim p; ppElem xs)
+ 	    | ppElem ((StrE s)::xs) = (ppStrInfo s; ppElem xs)
+       in (print "[ "; ppElem strelems; print " ]\n")
+       end
  (* 
      fun selStrInfo (StrE l, i) =


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