cuda: fix using single integer as grid size

2010-05-05 19:07:39 -07:00 · 2010-05-05 19:07:39 -07:00 · fb619ec928
parent ae37cc730b
commit fb619ec928
1 changed files with 3 additions and 5 deletions
--- a/extra/cuda/cuda.factor
+++ b/extra/cuda/cuda.factor
@ -61,11 +61,9 @@ PRIVATE>
        [ dim-block>> block-dim function-block-shape* ]
        [ shared-size>> function-shared-size* ]
        [
-            dim-grid>> [
-                launch-function*
-            ] [
-                grid-dim launch-function-grid*
-            ] if-empty
+            dim-grid>>
+            [ grid-dim launch-function-grid* ]
+            [ launch-function* ] if*
        ]
    } 2cleave ;