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/cps/convert.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/FLINT/cps/convert.sml

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

revision 93, Tue May 12 21:56:22 1998 UTC revision 100, Thu May 14 04:56:46 1998 UTC
# Line 25  Line 25 
25        open CPS        open CPS
26  in  in
27    
28  fun bug s = ErrorMsg.impossible ("ConvertN: " ^ s)  fun bug s = ErrorMsg.impossible ("Convert: " ^ s)
29  val say = Control.Print.say  val say = Control.Print.say
30  val mkv = fn _ => LV.mkLvar()  val mkv = fn _ => LV.mkLvar()
31  fun mkfn f = let val v = mkv() in f v end  fun mkfn f = let val v = mkv() in f v end
# Line 184  Line 184 
184       | AP.OBJLENGTH =>  PKP (P.objlength)       | AP.OBJLENGTH =>  PKP (P.objlength)
185       | AP.GETTAG =>     PKP (P.gettag)       | AP.GETTAG =>     PKP (P.gettag)
186       | AP.MKSPECIAL =>  PKP (P.mkspecial)       | AP.MKSPECIAL =>  PKP (P.mkspecial)
187       | AP.THROW =>      PKP (P.cast)  (*   | AP.THROW =>      PKP (P.cast) *)
188       | AP.CAST =>       PKP (P.cast)       | AP.CAST =>       PKP (P.cast)
189       | AP.MKETAG =>     PKP (P.makeref)       | AP.MKETAG =>     PKP (P.makeref)
190    
# Line 511  Line 511 
511                 in FIX(exndecs, FIX(newfdecs, loop(e, c)))                 in FIX(exndecs, FIX(newfdecs, loop(e, c)))
512                end                end
513    
514              | F.PRIMOP(po as (_,AP.THROW,_,_), [u], v, e) =>
515                  (newname(v, lpvar u); loop(e, c))
516    (*            PURE(P.wrap, [lpvar u], v, FUNt, c(VAR v))          *)
517    
518            | F.PRIMOP(po as (_,AP.WCAST,_,_), [u], v, e) =>            | F.PRIMOP(po as (_,AP.WCAST,_,_), [u], v, e) =>
519                (newname(v, lpvar u); loop(e, c))                (newname(v, lpvar u); loop(e, c))
520    

Legend:
Removed from v.93  
changed lines
  Added in v.100

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