From: Mark Wooding <mdw@distorted.org.uk>
Date: Sun, 30 Aug 2015 09:58:38 +0000 (+0100)
Subject: src/c-types-parse.lisp: Plain types don't have `declspec' slots.
X-Git-Tag: 0.2.0~26
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/commitdiff_plain/8293b90a8f027ed9b7e4ebb566f67e5c783864c9?ds=sidebyside

src/c-types-parse.lisp: Plain types don't have `declspec' slots.

Type names count as declaration specifiers, so `scan-declspec' has to
cope with them.  Fortunately, bare types don't come with tags, so this
is easy to work around.
---

diff --git a/src/c-types-parse.lisp b/src/c-types-parse.lisp
index 39a805e..e0cfc88 100644
--- a/src/c-types-parse.lisp
+++ b/src/c-types-parse.lisp
@@ -233,7 +233,7 @@ (defun scan-declspec
 		       (gethash kw *declspec-map*))))))
     (cond ((or (not ds) (and predicate (not (funcall predicate ds))))
 	   (values (list indicator) nil nil))
-	  ((ds-taggedp ds)
+	  ((and (typep ds 'declspec) (ds-taggedp ds))
 	   (scanner-step scanner)
 	   (if (eq (token-type scanner) :id)
 	       (let ((ty (make-c-tagged-type (ds-label ds)