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

SCM Repository

[diderot] Diff of /branches/pure-cfg/src/compiler/cl-target/cl-target.sml
ViewVC logotype

Diff of /branches/pure-cfg/src/compiler/cl-target/cl-target.sml

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

revision 1615, Mon Nov 7 21:02:31 2011 UTC revision 1616, Mon Nov 7 21:48:29 2011 UTC
# Line 822  Line 822 
822                (*  clppDecl (genKernelFun (strand, !numDims, globals, imgGlobals)); *)                (*  clppDecl (genKernelFun (strand, !numDims, globals, imgGlobals)); *)
823                  clppDecl (genUpdateMethod(strand,imgGlobals));                  clppDecl (genUpdateMethod(strand,imgGlobals));
824                (* Generate the Host C file *)                (* Generate the Host C file *)
825                  cppDecl (CL.D_Verbatim([                  cppDecl (CL.D_Verbatim[
826                      if double                      if double
827                        then "#define DIDEROT_DOUBLE_PRECISION"                        then "#define DIDEROT_DOUBLE_PRECISION"
828                        else "#define DIDEROT_SINGLE_PRECISION",                        else "#define DIDEROT_SINGLE_PRECISION",
829                              "#define DIDEROT_INT",
830                      "#define DIDEROT_TARGET_CL",                      "#define DIDEROT_TARGET_CL",
831                      "#include \"Diderot/diderot.h\"" ]));                            "#include \"Diderot/diderot.h\""
832                            ]);
833                  cppDecl (CL.D_Var(["static"], CL.charPtr, "ProgramName",                  cppDecl (CL.D_Var(["static"], CL.charPtr, "ProgramName",
834                    SOME(CL.I_Exp(CL.mkStr progName))));                    SOME(CL.I_Exp(CL.mkStr progName))));
835                  cppDecl (genGlobalStruct (#hostTy, !globals, RN.globalsTy));                  cppDecl (genGlobalStruct (#hostTy, !globals, RN.globalsTy));

Legend:
Removed from v.1615  
changed lines
  Added in v.1616

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