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

Diff of /sml/trunk/src/compiler/FLINT/flint/ppflint.sml

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

revision 190, Thu Nov 19 21:01:17 1998 UTC revision 191, Fri Nov 20 02:01:27 1998 UTC
# Line 36  Line 36 
36          (case inline of F.IH_ALWAYS => "(i)"          (case inline of F.IH_ALWAYS => "(i)"
37                        | F.IH_UNROLL => "(u)"                        | F.IH_UNROLL => "(u)"
38                        | F.IH_SAFE => "")^                        | F.IH_SAFE => "")^
39               (if isSome isrec then "R" else "")^               (case isrec
40                   of SOME(_,F.LK_UNKNOWN) => "R"
41                    | SOME(_,F.LK_LOOP) => "L"
42                    | SOME(_,F.LK_WHILE) => "W"
43                    | NONE => "")^
44                    (case cconv                    (case cconv
45                      of F.CC_FCT => "FCT"                      of F.CC_FCT => "FCT"
46                       | F.CC_FUN fixed => ("FUN "^(toStringFFlag fixed)))                       | F.CC_FUN fixed => ("FUN "^(toStringFFlag fixed)))

Legend:
Removed from v.190  
changed lines
  Added in v.191

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