SCM Repository
Diff of /sml/trunk/src/compiler/FLINT/opt/fcontract.sml
Parent Directory
| 
Revision Log
| 
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 |
|
||||||||
| root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
| Powered by ViewVC 1.0.0 |
