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 1343, Tue Jun 14 16:15:33 2011 UTC revision 1344, Tue Jun 14 16:18:09 2011 UTC
# Line 418  Line 418 
418                              CL.mkApply("sizeof",[CL.mkVar (RN.imageTy nDims)]),                              CL.mkApply("sizeof",[CL.mkVar (RN.imageTy nDims)]),
419                              hostVar,                              hostVar,
420                              CL.mkUnOp(CL.%&,CL.mkVar errVar)                              CL.mkUnOp(CL.%&,CL.mkVar errVar)
421                            ])) :: errFn(concat["error in creating ",RN.addBufferSuffix var, " global buffer"]) ::                            ])) ::
422                          errFn(concat["error in creating ",RN.addBufferSuffix var, " global buffer"]) ::
423                        CL.mkAssign(CL.mkVar(RN.addBufferSuffixData var),                        CL.mkAssign(CL.mkVar(RN.addBufferSuffixData var),
424                          CL.mkApply("clCreateBuffer", [                          CL.mkApply("clCreateBuffer", [
425                              CL.mkVar contextVar,                              CL.mkVar contextVar,
# Line 426  Line 427 
427                              size,                              size,
428                              CL.mkIndirect(hostVar, "data"),                              CL.mkIndirect(hostVar, "data"),
429                              CL.mkUnOp(CL.%&,CL.mkVar errVar)                              CL.mkUnOp(CL.%&,CL.mkVar errVar)
430                            ])) :: errFn(concat["error in creating ",RN.addBufferSuffixData var, " global buffer"]) :: genDataBuffers(globals,contextVar,errVar,errFn)                            ])) ::
431                            errFn(concat["error in creating ",RN.addBufferSuffixData var, " global buffer"]) ::
432                            genDataBuffers(globals,contextVar,errVar,errFn)
433                      end                      end
434                in                in
435                  [globalBufferDecl] @ [globalBuffer,errorFn(globalBuffErr)] @ genDataBuffers(globals,contextVar,errVar,errorFn)                  globalBufferDecl
436                    :: globalBuffer
437                    :: errorFn(globalBuffErr)
438                    :: genDataBuffers(globals,contextVar,errVar,errorFn)
439                end                end
440    
441        (* generates the kernel arguments for the image data *)        (* generates the kernel arguments for the image data *)

Legend:
Removed from v.1343  
changed lines
  Added in v.1344

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