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/cm/compile/exec.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/compile/exec.sml

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

revision 389, Mon Jul 26 03:13:33 1999 UTC revision 390, Tue Jul 27 14:07:00 1999 UTC
# Line 60  Line 60 
60    
61      fun thunkify d () = d      fun thunkify d () = d
62    
63      fun execute (bfc, mkdyn, error, descr, memo, sl, bl) = let      fun execute (bfc, mkdyn, error, descr, memo, sl, bl, discard) = let
64          val e = BF.exec (bfc, mkdyn ())          val e = BF.exec (bfc, mkdyn ())
65          val de = E.dynamicPart e          val de = E.dynamicPart e
66      in      in
67          BF.discardCode bfc;          if discard then BF.discardCode bfc else ();
68          memo de;          memo de;
69          SOME (thunkify de, sl, bl)          SOME (thunkify de, sl, bl)
70      end handle exn => let      end handle exn => let
# Line 94  Line 94 
94                                       BinInfo.error i EM.COMPLAIN,                                       BinInfo.error i EM.COMPLAIN,
95                                       BinInfo.describe i,                                       BinInfo.describe i,
96                                       fn e =>PS.exec_memo_stable (i, e, bl, ts),                                       fn e =>PS.exec_memo_stable (i, e, bl, ts),
97                                       [], [i]))                                       [], [i],
98                                         BinInfo.sh_mode i <> Sharing.DONTSHARE))
99                     end                     end
100                   | _ => NONE)                   | _ => NONE)
101    
# Line 110  Line 111 
111                                         SmlInfo.descr i,                                         SmlInfo.descr i,
112                                         fn m =>                                         fn m =>
113                                             PS.exec_memo_sml (i, m, sl, bl, ts),                                             PS.exec_memo_sml (i, m, sl, bl, ts),
114                                         [i], [])))                                         [i], [],
115                                           false)))
116            | _ => NONE            | _ => NONE
117    end    end
118  end  end

Legend:
Removed from v.389  
changed lines
  Added in v.390

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