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

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

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

revision 214, Mon Jan 18 20:12:03 1999 UTC revision 215, Wed Feb 17 14:17:40 1999 UTC
# Line 564  Line 564 
564                   * escaping one.  It's dangerous for optimisations based                   * escaping one.  It's dangerous for optimisations based
565                   * on known functions (elimination of dead args, f.ex)                   * on known functions (elimination of dead args, f.ex)
566                   * and could generate cases where call>use in collect *)                   * and could generate cases where call>use in collect *)
567                  in if (C.escaping(C.get f)) andalso not(C.escaping(C.get g))                  in if f = g orelse
568                        (C.escaping(C.get f)) andalso not(C.escaping(C.get g))
569                     (* the default case could ensure the inline *)                     (* the default case could ensure the inline *)
570                     then (m, fdec::fs, hs)                     then (m, fdec::fs, hs)
571                     else let                     else let

Legend:
Removed from v.214  
changed lines
  Added in v.215

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