Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Diff of /branches/charisee/src/compiler/simplify/simple-pp.sml
ViewVC logotype

Diff of /branches/charisee/src/compiler/simplify/simple-pp.sml

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

revision 2491, Tue Oct 22 14:56:58 2013 UTC revision 2492, Tue Oct 22 15:25:50 2013 UTC
# Line 85  Line 85 
85                        string "("; string(Ty.toString dstTy); string ")"; var x)                        string "("; string(Ty.toString dstTy); string ")"; var x)
86                    | S.E_Input(ty, argName, desc, NONE) => (                    | S.E_Input(ty, argName, desc, NONE) => (
87                        string(concat["input(\"", argName, "\","]); sp();                        string(concat["input(\"", argName, "\","]); sp();
88                        string(concat["\"", String.toString desc, "\")"]))                        case desc
89                           of SOME desc => (
90                                string (concat["\"", String.toString desc, "\")"]); sp())
91                            | NONE => string ")"
92                          (* end case *))
93                    | S.E_Input(ty, argName, desc, SOME default) => (                    | S.E_Input(ty, argName, desc, SOME default) => (
94                        string "inputWithDefault"; string "(";                        string "inputWithDefault"; string "(";
95                        string (concat["\"", argName, "\","]); sp();                        string (concat["\"", argName, "\","]); sp();
96                        string (concat["\"", String.toString desc, "\","]); sp();                        case desc
97                           of SOME desc => (
98                                string (concat["\"", String.toString desc, "\","]); sp())
99                            | NONE => ()
100                          (* end case *);
101                        var default; string ")")                        var default; string ")")
102                    | S.E_LoadImage(info, x) => (                    | S.E_LoadImage(info, x) => (
103                        string "load"; sp(); string "(";                        string "load"; sp(); string "(";

Legend:
Removed from v.2491  
changed lines
  Added in v.2492

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