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/recomp-persstate-fn.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/compile/recomp-persstate-fn.sml

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

revision 368, Sat Jul 3 13:05:59 1999 UTC revision 369, Sun Jul 4 12:55:20 1999 UTC
# Line 75  Line 75 
75                   BF.discardCode (#bfc memo)                   BF.discardCode (#bfc memo)
76               else ();               else ();
77               stablemap := StableMap.insert (!stablemap, i, memo))               stablemap := StableMap.insert (!stablemap, i, memo))
   
         fun bfc_fetch_sml i = #bfc (#1 (valOf (SmlInfoMap.find (!smlmap, i))))  
             handle Option => raise Fail "bfc_fetch_sml"  
         fun bfc_fetch_stable i = #bfc (valOf (StableMap.find (!stablemap, i)))  
             handle Option => raise Fail "bfc_fetch_stable"  
   
         val pid_fetch_sml = BF.exportPidOf o bfc_fetch_sml  
78      end      end
79  end  end

Legend:
Removed from v.368  
changed lines
  Added in v.369

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