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