diff options
Diffstat (limited to 'tests/017/glob-zarray.tl')
| -rw-r--r-- | tests/017/glob-zarray.tl | 31 |
1 files changed, 20 insertions, 11 deletions
diff --git a/tests/017/glob-zarray.tl b/tests/017/glob-zarray.tl index 0597da86..81d11bf8 100644 --- a/tests/017/glob-zarray.tl +++ b/tests/017/glob-zarray.tl @@ -3,19 +3,28 @@ (defstruct glob-t nil pathc pathv (reserve 0)) -(cond - ((eq (os-symbol) :macos) - (deffi-type glob-t (struct glob-t - (pathc size-t) - (nil int) - (nil size-t) - (nil int) - (pathv (ptr-out-d (zarray str-d))) - (nil (array 4 cptr))))) +(caseq (os-symbol) + (:macos + (deffi-type glob-t (struct glob-t + (pathc size-t) + (nil int) + (nil size-t) + (nil int) + (pathv (ptr-out-d (zarray str-d))) + (nil (array 4 cptr))))) + ((:cygnal :cygwin) + (deffi-type glob-t (struct glob-t + (pathc size-t) + (nil size-t) + (nil size-t) + (nil int) + (pathv (ptr-out-d (zarray str-d))) + (nil (array 6 cptr))))) (t (deffi-type glob-t (struct glob-t (pathc size-t) - (pathv (ptr-out-d (zarray str-d))) - (reserve size-t))))) + (pathv (ptr-out-d (zarray str-d))) + (reserve size-t) + (nil (array 5 cptr)))))) (with-dyn-lib (libc) (deffi globb "glob" int (str int closure (ptr-out glob-t))) |