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/opt/fixfix.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/FLINT/opt/fixfix.sml

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

revision 254, Wed Apr 21 00:01:13 1999 UTC revision 255, Wed Apr 21 00:34:12 1999 UTC
# Line 374  Line 374 
374               | _ => ()) handle M.IntmapF=>();               | _ => ()) handle M.IntmapF=>();
375             (1+s, addv(S.rmv(lv, fv), v), F.SELECT(v,i,lv,le))             (1+s, addv(S.rmv(lv, fv), v), F.SELECT(v,i,lv,le))
376         end         end
377       | F.RAISE (F.VAR v,ltys) => (3, S.singleton v, lexp)       | F.RAISE (F.VAR v,ltys) =>
378           (* artificially high size estimate to discourage inlining *)
379           (15, S.singleton v, lexp)
380       | F.HANDLE (le,v) =>       | F.HANDLE (le,v) =>
381         let val (s,fv,le) = loop le         let val (s,fv,le) = loop le
382         in (2+s, addv(fv, v), F.HANDLE(le,v))         in (2+s, addv(fv, v), F.HANDLE(le,v))

Legend:
Removed from v.254  
changed lines
  Added in v.255

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