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

SCM Repository

[diderot] Diff of /branches/staging/src/compiler/cl-target/print-as-cl.sml
ViewVC logotype

Diff of /branches/staging/src/compiler/cl-target/print-as-cl.sml

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

revision 1380, Thu Jun 23 19:20:07 2011 UTC revision 1444, Mon Jul 11 12:11:53 2011 UTC
# Line 59  Line 59 
59                          | RawTypes.RT_Double => "double"  (* only if 64-bitFP extension is supported *)                          | RawTypes.RT_Double => "double"  (* only if 64-bitFP extension is supported *)
60                        (* end case *))                        (* end case *))
61                    | getBaseTy (CL.T_Named ty) = ty                    | getBaseTy (CL.T_Named ty) = ty
62                      | getBaseTy (CL.T_Qual(attr, ty)) =
63                          concat[attr, " ", getBaseTy ty]
64                  fun pp (isFirst, CL.T_Ptr ty, optVar) = (                  fun pp (isFirst, CL.T_Ptr ty, optVar) = (
65                        if isFirst then sp() else ();                        if isFirst then sp() else ();
66                        case ty                        case ty
# Line 72  Line 74 
74                         of NONE => str "[]"                         of NONE => str "[]"
75                          | SOME n => (str "["; str(Int.toString n); str "]")                          | SOME n => (str "["; str(Int.toString n); str "]")
76                        (* end case *))                        (* end case *))
77                      | pp (isFirst, CL.T_Qual(_, ty), optVar) =
78                          pp (isFirst, ty, optVar)
79                    | pp (isFirst, _, SOME x) = (                    | pp (isFirst, _, SOME x) = (
80                        if isFirst then sp() else ();                        if isFirst then sp() else ();
81                        str x)                        str x)
# Line 176  Line 180 
180                        str "else"; ppStms blk2)                        str "else"; ppStms blk2)
181                    | CL.S_While(e, blk) => (                    | CL.S_While(e, blk) => (
182                        inHBox (fn () => (str "while"; sp(); ppExp e)); ppStms blk)                        inHBox (fn () => (str "while"; sp(); ppExp e)); ppStms blk)
183                      | CL.S_DoWhile(blk, e) => (
184                          str "do"; sp(); ppStms blk;
185                          inHBox (fn () => (str "while"; sp(); ppExp e)))
186                    | CL.S_For(inits, cond, incrs, blk) => let                    | CL.S_For(inits, cond, incrs, blk) => let
187                        fun ppInit (ty, x, e) = inHBox (fn () => (                        fun ppInit (ty, x, e) = inHBox (fn () => (
188                              ppTy(ty, SOME x);                              ppTy(ty, SOME x);
# Line 235  Line 242 
242                                  then "HUGE_VAL"                                  then "HUGE_VAL"
243                                  else "HUGE_VALF"                                  else "HUGE_VALF"
244                              else if FloatLit.same(FloatLit.nan, f)                              else if FloatLit.same(FloatLit.nan, f)
245                                then "nan(0)"                                then "nan((uint)0)"
246                              else if isDouble                              else if isDouble
247                                then FloatLit.toString f                                then FloatLit.toString f
248                                else FloatLit.toString f ^ "f"                                else FloatLit.toString f ^ "f"

Legend:
Removed from v.1380  
changed lines
  Added in v.1444

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