Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/src/compiler/FLINT/cpsopt/uncurry.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/FLINT/cpsopt/uncurry.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 732, Mon Nov 13 21:59:12 2000 UTC revision 733, Fri Nov 17 05:13:45 2000 UTC
# Line 74  Line 74 
74  exception NEWETA  exception NEWETA
75  fun getty v =  fun getty v =
76    if type_flag    if type_flag
77    then (Intmap.map typtable v) handle _ =>    then (IntHashTable.lookup typtable v) handle _ =>
78                  (Control.Print.say ("NEWETA: Can't find the variable "^                  (Control.Print.say ("NEWETA: Can't find the variable "^
79                              (Int.toString v)^" in the typtable ***** \n");                              (Int.toString v)^" in the typtable ***** \n");
80                   raise NEWETA)                   raise NEWETA)
81    else LT.ltc_void    else LT.ltc_void
82    
83  fun addty(f,t) = if type_flag then Intmap.add typtable (f,t) else ()  fun addty(f,t) = if type_flag then IntHashTable.insert typtable (f,t) else ()
84  fun mkv(t) = let val v = LV.mkLvar()  fun mkv(t) = let val v = LV.mkLvar()
85                in (addty(v,t); v)                in (addty(v,t); v)
86               end               end

Legend:
Removed from v.732  
changed lines
  Added in v.733

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0