diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2021-02-15 18:38:41 +0100 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2021-02-15 18:38:41 +0100 |
| commit | be421cf23358c760c236b330cd4b04f24cb0258c (patch) | |
| tree | 537bb74c3418775d9f39732761079c79ae8f4e91 | |
| parent | c5e0230141f465cbc0d70d9a07c8e33501845b6a (diff) | |
low: make-cstr-array: Fix NULL termination.
* drmaa/v1/low.scm (make-cstr-array): Multiply index by pointer size.
| -rw-r--r-- | drmaa/v1/low.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/drmaa/v1/low.scm b/drmaa/v1/low.scm index 7a82cc1..93f7f42 100644 --- a/drmaa/v1/low.scm +++ b/drmaa/v1/low.scm @@ -92,7 +92,7 @@ STRING-LIST." (bv-set! bv (* (sizeof '*) index) address)) addresses (iota n)) ;; The vector must be NULL-terminated - (bv-set! bv (1+ n) 0) + (bv-set! bv (* (1+ n) (sizeof '*)) 0) bv)) (define-syntax-rule (return ret success error-message) |