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

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

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

revision 203, Sat Dec 19 20:51:39 1998 UTC revision 204, Sun Dec 20 11:23:30 1998 UTC
# Line 202  Line 202 
202           | [] => None           | [] => None
203      end      end
204    
205  fun impurePO (po:F.primop) = not(PO.purePrimop (#2 po))  fun impurePO (po:F.primop) = PO.effect (#2 po)
206    
207  val census = let  val census = let
208      (* val use = if inc then use else unuse *)      (* val use = if inc then use else unuse *)

Legend:
Removed from v.203  
changed lines
  Added in v.204

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