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

SCM Repository

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

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

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

revision 2702, Thu Sep 18 11:50:12 2014 UTC revision 2703, Fri Sep 19 15:12:00 2014 UTC
# Line 551  Line 551 
551                  if List.null(!globals)                  if List.null(!globals)
552                    then ppDecl (CL.D_Verbatim["typedef void ", CLN.globalsTy, ";\n"])                    then ppDecl (CL.D_Verbatim["typedef void ", CLN.globalsTy, ";\n"])
553                    else ();                    else ();
554                (* if there are no images, then define a dummy type *)                (* Specialize the scheduler kernels and functions *)
                 if List.null(!imgGlobals)  
                   then ppDecl (CL.D_Verbatim["typedef void * ", CLN.imageDataType, ";\n"])  
                   else ();  
               (* Retrieve the scheduler kernels and functions *)  
555                  ppDecl (CL.D_Verbatim[CLSchedFrag.text]);                  ppDecl (CL.D_Verbatim[CLSchedFrag.text]);
556  (* FIXME: should only include eigen code fragments if they are being used! *)  (* FIXME: should only include eigen code fragments if they are being used! *)
557                  ppDecl (CL.D_Verbatim[CLEigen2x2Frag.text]);                  ppDecl (CL.D_Verbatim[CLEigen2x2Frag.text]);
558  (* FIXME: should only include eigen code fragments if they are being used! *)  (* FIXME: should only include eigen code fragments if they are being used! *)
559                  ppDecl (CL.D_Verbatim[CLEigen3x3Frag.text]);                  ppDecl (CL.D_Verbatim[CLEigen3x3Frag.text]);
560    (* generate the OpenCL global definition, plus the functions to initialize the globals *)
561                  ppDecl (genGlobalStruct #oclTy (props, !globals));                  ppDecl (genGlobalStruct #oclTy (props, !globals));
562                  ppDecl (genImageDataStruct(!imgGlobals, CLN.imageDataType));                  ppDecl (genWorldStruct(props, strand));
563                  ppDecl (genStrandTyDef(#gpuTy, strand, tyName));                  ppDecl (genStrandTyDef(#gpuTy, strand, tyName));
564                  List.app ppDecl (!code);                  List.app ppDecl (!code);
565                  ppDecl (genStrandCopy strand);                  ppDecl (genStrandCopy strand);
566                  ppDecl (genUpdateMethod(strand, globals, imgGlobals));                  ppDecl (genUpdateMethod(strand, globals));
567                  List.app ppDecl outputs                  List.app ppDecl outputs
568                end                end
569    

Legend:
Removed from v.2702  
changed lines
  Added in v.2703

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