CVS: sml-dist/src/compiler/Semant/modules instantiate-param.sml, 1.4, 1.4.8.1

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

Modified Files:
      Tag: primop-branch-2
	instantiate-param.sml 
Log Message:
update of InlInfo

Index: instantiate-param.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/compiler/Semant/modules/instantiate-param.sml,v
retrieving revision 1.4
retrieving revision 1.4.8.1
diff -C2 -d -r1.4 -r1.4.8.1
*** instantiate-param.sml	15 Sep 2003 22:17:10 -0000	1.4
--- instantiate-param.sml	19 Jun 2006 22:29:00 -0000	1.4.8.1
***************
*** 5,8 ****
--- 5,9 ----
   * SML/NJ-specific instantiation of INSTANTIATE_PARAM.
   *)
+ 
  structure InstantiateParam : INSTANTIATE_PARAM = struct
  
***************
*** 17,25 ****
      val tvi_exn = TVI.toExn
  
-     fun ii2ty i =
- 	InlInfo.match i { inl_prim = fn (_, t) => SOME t,
- 			  inl_str = fn _ => NONE,
- 			  inl_no = fn () => NONE }
- 	  
- 
  end
--- 18,22 ----
      val tvi_exn = TVI.toExn
  
  end
+ 
+ (* [dbm, 6/16/06] Eliminated ii2ty. Call InlInfo.primopTy directly. *)
\ No newline at end of file