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 320, Tue Jun 8 07:42:11 1999 UTC revision 345, Sun Jun 20 11:55:26 1999 UTC
# Line 22  Line 22 
22    
23          fun recomp_look_sml (i, provided, gp) = let          fun recomp_look_sml (i, provided, gp) = let
24              fun isValid ({ bfc, ctxt }, ts) =              fun isValid ({ bfc, ctxt }, ts) =
25                  not (TStamp.earlier (ts, SmlInfo.lastseen i))                  not (TStamp.needsUpdate { source = SmlInfo.lastseen i,
26                                              target = ts })
27                  andalso let                  andalso let
28                      val demanded =                      val demanded =
29                          PidSet.addList (PidSet.empty, BF.cmDataOf bfc)                          PidSet.addList (PidSet.empty, BF.cmDataOf bfc)

Legend:
Removed from v.320  
changed lines
  Added in v.345

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