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 2769, Sat Oct 11 23:38:49 2014 UTC revision 2770, Sat Oct 11 23:39:02 2014 UTC
# Line 516  Line 516 
516                val extras = (CL.T_Ptr CL.uint8, "status") :: extras                val extras = (CL.T_Ptr CL.uint8, "status") :: extras
517  *)  *)
518                val extras = [                val extras = [
519                          (CL.uint32, "nWorkers"),
520                          (CL.T_Ptr(CL.T_Named "Diderot_DeviceInfo_t"), "device"),
521                        (CL.T_Named "cl_int", "gpuDevId"),                        (CL.T_Named "cl_int", "gpuDevId"),
522                        (CL.T_Ptr(CL.T_Named "Diderot_OCLInfo_t"), "oclInfo")                        (CL.T_Ptr(CL.T_Named "Diderot_OCLInfo_t"), "oclInfo")
523                      ]                      ]
# Line 525  Line 527 
527                val extras = (CL.T_Named(#namespace props ^ "Sizes_t"), "oclSizes") :: extras                val extras = (CL.T_Named(#namespace props ^ "Sizes_t"), "oclSizes") :: extras
528              (* OpenCL execution context *)              (* OpenCL execution context *)
529                val extras =                val extras =
                     (CL.T_Ptr(CL.T_Named "Diderot_DeviceInfo_t"), "device") ::  
530                      (CL.T_Named "cl_context", "context") ::                      (CL.T_Named "cl_context", "context") ::
531                      (CL.T_Named "cl_command_queue", "cmdQ") ::                      (CL.T_Named "cl_command_queue", "cmdQ") ::
532                      (CL.T_Named "cl_program", "prog") :: extras                      (CL.T_Named "cl_program", "prog") :: extras
# Line 654  Line 655 
655                  List.app ppDecl (!topCDecls);                  List.app ppDecl (!topCDecls);
656                (* helper functions for output *)                (* helper functions for output *)
657                  if Option.isSome(!nAxes)                  if Option.isSome(!nAxes)
658                    then ppDecl (CL.verbatimDcl [COutputGridFrag.text] substitutions)                    then ppDecl (CL.verbatimDcl [COutputGridFixedFrag.text] substitutions)
659  (* FIXME  (* FIXME
660                    else ppDecl (CL.verbatimDcl [COutputCollectionFrag.text] substitutions);                    else ppDecl (CL.verbatimDcl [COutputCollectionFixedFrag.text] substitutions);
661  *)  *)
662                    else ();                    else ();
663                  List.app ppDecl outputs;                  List.app ppDecl outputs;
# Line 705  Line 706 
706                  List.app ppDecl (!topCDecls);                  List.app ppDecl (!topCDecls);
707                (* helper functions for output *)                (* helper functions for output *)
708                  if Option.isSome(!nAxes)                  if Option.isSome(!nAxes)
709                    then ppDecl (CL.verbatimDcl [COutputGridFrag.text] substitutions)                    then ppDecl (CL.verbatimDcl [COutputGridFixedFrag.text] substitutions)
710  (* FIXME  (* FIXME
711                    else ppDecl (CL.verbatimDcl [COutputCollectionFrag.text] substitutions);                    else ppDecl (CL.verbatimDcl [COutputCollectionFixedFrag.text] substitutions);
712  *)  *)
713                    else ();                    else ();
714                  List.app ppDecl outputs;                  List.app ppDecl outputs;

Legend:
Removed from v.2769  
changed lines
  Added in v.2770

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