From 800230afe4bab552fb4409432a27307ac1e9fabb Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Mon, 4 Feb 2008 21:58:45 +0100 Subject: Parse NeXT-style bit field typespecs properly. darcs-hash:fb2c911e17afaa24da33c223619fad9fc33bb96b --- Lisp/tests.lisp | 22 ++++++++++++++++------ 1 file changed, 16 insertions(+), 6 deletions(-) (limited to 'Lisp/tests.lisp') diff --git a/Lisp/tests.lisp b/Lisp/tests.lisp index e362774..b031200 100644 --- a/Lisp/tests.lisp +++ b/Lisp/tests.lisp @@ -172,12 +172,22 @@ ((ensure-same (parse-typespec "(?=)") '(union () "?"))) ((ensure-same (parse-typespec "{?=rb123rjf456iii}") - '(struct () "?" - (bit-field (const) 123 456 - (complex (const) (:float ()))) - (:int ()) - (:int ()) - (:int ())))) + (if (eq objcl::+runtime-type+ :gnu) + '(struct () "?" + (bit-field (const) 123 456 + (complex (const) (:float ()))) + (:int ()) + (:int ()) + (:int ())) + '(struct () "?" + (bit-field (const) nil 123 nil) + (complex (const) (:float ())) + (:unrecognised ((:type-specifier #\4))) + (:unrecognised ((:type-specifier #\5))) + (:unrecognised ((:type-specifier #\6))) + (:int ()) + (:int ()) + (:int ()))))) ((ensure-same (parse-typespec "^[100{?=ii}]") '(pointer () (array () 100 -- cgit v1.2.3