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/cl-target.sml
ViewVC logotype

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

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

revision 2151, Sun Feb 17 19:07:20 2013 UTC revision 2152, Sun Feb 17 19:39:37 2013 UTC
# Line 661  Line 661 
661                          String.concat("Diderot_data_ptr_t diderotDataPtrs;\n" :: imageDataStms)))                          String.concat("Diderot_data_ptr_t diderotDataPtrs;\n" :: imageDataStms)))
662                      ]                      ]
663                in                in
664                  CL.verbatim [CLUpdateFrag.text] placeHolders                  CL.verbatimDcl [CLUpdateFrag.text] placeHolders
665                end                end
666    
667          fun genStrandCopy(Strand{tyName,name,state,...}) = let          fun genStrandCopy(Strand{tyName,name,state,...}) = let
# Line 783  Line 783 
783                in                in
784                (* Generate the OpenCL file *)                (* Generate the OpenCL file *)
785                (* Retrieve the header information *)                (* Retrieve the header information *)
786                  clppDecl (CL.verbatim [HF.text] [                  clppDecl (CL.verbatimDcl [HF.text] [
787                      ("OUTFILE", clFileName),                      ("OUTFILE", clFileName),
788                      ("SRCFILE", OS.Path.joinBaseExt{base=baseName, ext=SOME "diderot"}),                      ("SRCFILE", OS.Path.joinBaseExt{base=baseName, ext=SOME "diderot"}),
789                      ("DIDEROT_FLOAT_PRECISION", Properties.floatPrecisionDef props),                      ("DIDEROT_FLOAT_PRECISION", Properties.floatPrecisionDef props),

Legend:
Removed from v.2151  
changed lines
  Added in v.2152

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