diff options
Diffstat (limited to 'tests/017/glob-carray.tl')
| -rw-r--r-- | tests/017/glob-carray.tl | 19 |
1 files changed, 14 insertions, 5 deletions
diff --git a/tests/017/glob-carray.tl b/tests/017/glob-carray.tl index 3c68ac1a..f98359a8 100644 --- a/tests/017/glob-carray.tl +++ b/tests/017/glob-carray.tl @@ -1,12 +1,21 @@ (load "../common") (defstruct glob-t nil - pathc pathv reserve) + pathc pathv (reserve 0)) -(deffi-type glob-t (struct glob-t - (pathc size-t) - (pathv (carray str-d)) - (reserve size-t))) +(cond + ((eq (os-symbol) :macos) + (deffi-type glob-t (struct glob-t + (pathc size-t) + (nil int) + (nil size-t) + (nil int) + (pathv (carray str-d)) + (nil (array 4 cptr))))) + (t (deffi-type glob-t (struct glob-t + (pathc size-t) + (pathv (carray str-d)) + (reserve size-t))))) (with-dyn-lib nil (deffi globb "glob" int (str int closure (ptr-out glob-t))) |