cuda: in with-cuda-context, sync context when cleaning up so that destroying context doesn't fail due to asynchronous errors
parent
51c3e8a1b9
commit
afdced0183
|
@ -26,7 +26,7 @@ dim-grid dim-block shared-size stream ;
|
|||
H{ } clone cuda-functions set
|
||||
[ create-context ] dip
|
||||
[ '[ _ @ ] ]
|
||||
[ drop '[ _ destroy-context ] ] 2bi
|
||||
[ drop '[ [ sync-context ] ignore-errors _ destroy-context ] ] 2bi
|
||||
[ ] cleanup ; inline
|
||||
|
||||
: with-cuda-program ( flags device quot -- )
|
||||
|
|
Loading…
Reference in New Issue