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

SCM Repository

[diderot] Diff of /trunk/src/compiler/cl-target/cl-target.sml
ViewVC logotype

Diff of /trunk/src/compiler/cl-target/cl-target.sml

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

revision 2004, Fri Oct 5 11:52:52 2012 UTC revision 2005, Fri Oct 5 11:57:00 2012 UTC
# Line 214  Line 214 
214                val (vMap, stms) = (case scope                val (vMap, stms) = (case scope
215                       of GlobalScope => ToC.trFragment (vMap, blk)                       of GlobalScope => ToC.trFragment (vMap, blk)
216                        | InitiallyScope => ToC.trFragment (vMap, blk)                        | InitiallyScope => ToC.trFragment (vMap, blk)
217    (* QUESTION: shouldn't StrandScope be ToCL?? *)
218                        | StrandScope => ToC.trFragment (vMap, blk)                        | StrandScope => ToC.trFragment (vMap, blk)
219                        | _ => ToCL.trFragment (vMap, blk)                        | _ => ToCL.trFragment (vMap, blk)
220                      (* end case *))                      (* end case *))
# Line 760  Line 761 
761                      "#define DIDEROT_TARGET_CL\n",                      "#define DIDEROT_TARGET_CL\n",
762                      "#include \"Diderot/diderot.h\"\n"                      "#include \"Diderot/diderot.h\"\n"
763                    ]);                    ]);
764                  cppDecl (CL.D_Verbatim[                  case !globals
765                    (case !globals                   of [] => cppDecl (CL.D_Verbatim[concat["typedef void ", RN.globalsTy, ";\n"] ])
766                       of [] => concat["typedef void ", RN.globalsTy,";\n"]                    | _ => ()
767                        |  _ => ""                  (* end case *);
                      (*end of case*))  
                   ]);  
768                  cppDecl (CL.D_Var(["static"], CL.charPtr, "ProgramName",                  cppDecl (CL.D_Var(["static"], CL.charPtr, "ProgramName",
769                    SOME(CL.I_Exp(CL.mkStr progName))));                    SOME(CL.I_Exp(CL.mkStr progName))));
770                  cppDecl (genGlobalStruct (#hostTy, !globals, RN.globalsTy));                  cppDecl (genGlobalStruct (#hostTy, !globals, RN.globalsTy));

Legend:
Removed from v.2004  
changed lines
  Added in v.2005

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