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

SCM Repository

[diderot] Diff of /branches/lamont/src/compiler/c-target/c-target.sml
ViewVC logotype

Diff of /branches/lamont/src/compiler/c-target/c-target.sml

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

revision 3387, Mon Nov 9 22:04:56 2015 UTC revision 3388, Tue Nov 10 03:17:51 2015 UTC
# Line 528  Line 528 
528                  ("SRCFILE",     #srcFile props),                  ("SRCFILE",     #srcFile props),
529                  ("STRAND",      name),                  ("STRAND",      name),
530                  ("STRANDTY",    tyName),                  ("STRANDTY",    tyName),
531                    ("SPATIAL-OPT", if #sopt props then "true" else "false"),
532                  ("SPATIAL_DIMENSION", dimStr),                  ("SPATIAL_DIMENSION", dimStr),
533          ("CALL_GLOBAL_BLOCK_FN", if #hasGlobal props then callglobalFns else ""),          ("CALL_GLOBAL_BLOCK_FN", if #hasGlobal props then callglobalFns else ""),
534                                  ("CALL_BUILD_TREE_FN", if #hasCom props then callBuildTreeFn else ""),                                  ("CALL_BUILD_TREE_FN", if #hasCom props then callBuildTreeFn else ""),
# Line 635  Line 636 
636                      then let                      then let
637                              val timeDel = (CL.double,"spatialTime")                              val timeDel = (CL.double,"spatialTime")
638                              val treeDel = (CL.T_Ptr(CL.T_Named N.kdTreeTy), N.kdTreeName)                              val treeDel = (CL.T_Ptr(CL.T_Named N.kdTreeTy), N.kdTreeName)
639                                val treeOpt = (CL.boolTy, "disableSOpt")
640                           in                           in
641                              if #parallel props                              if #parallel props
642                              then timeDel::treeDel ::                              then timeDel::treeDel :: treeOpt ::
643                                   (CL.T_Ptr(CL.uint32), N.kdTreeParIndicesName) ::                                   (CL.T_Ptr(CL.uint32), N.kdTreeParIndicesName) ::
644                                   (CL.T_Ptr(CL.uint32), N.kdTreeParTmpIndicesName) ::                                   (CL.T_Ptr(CL.uint32), N.kdTreeParTmpIndicesName) ::
645                                   (CL.T_Ptr(CL.T_Named N.kdTreeSchedTy), N.kdTreeParSchedName) ::extras                                   (CL.T_Ptr(CL.T_Named N.kdTreeSchedTy), N.kdTreeParSchedName) ::extras
646                              else timeDel::treeDel ::                              else timeDel::treeDel :: treeOpt ::
647                                                          (CL.T_Ptr(CL.T_Ptr(CL.T_Named tyName)), N.kdStrandBlockName) ::extras                                                          (CL.T_Ptr(CL.T_Ptr(CL.T_Named tyName)), N.kdStrandBlockName) ::extras
648                           end                           end
649                      else extras                      else extras

Legend:
Removed from v.3387  
changed lines
  Added in v.3388

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