Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10931/src/code
Modified Files:
host-alieneval.lisp target-alieneval.lisp
Log Message:
0.9.4.11:
Some alien changes:
* SAPs are now valid arguments to a callback (thanks to
Andreas Scholta).
* Enumeration values can be used more than once in an alien
enum (thanks to Cyrus Harmon).
Index: host-alieneval.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/host-alieneval.lisp,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -d -r1.35 -r1.36
--- host-alieneval.lisp 14 Jul 2005 16:30:35 -0000 1.35
+++ host-alieneval.lisp 27 Aug 2005 17:14:57 -0000 1.36
@@ -656,7 +656,7 @@
(unless (and max (> max val)) (setq max val))
(unless (and min (< min val)) (setq min val))
(when (rassoc val from-alist)
- (error "The element value ~S is used more than once." val))
+ (warn "The element value ~S is used more than once." val))
(when (assoc sym from-alist :test #'eq)
(error "The enumeration element ~S is used more than once." sym))
(push (cons sym val) from-alist)))
Index: target-alieneval.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/target-alieneval.lisp,v
retrieving revision 1.34
retrieving revision 1.35
diff -u -d -r1.34 -r1.35
--- target-alieneval.lisp 14 Jul 2005 16:30:39 -0000 1.34
+++ target-alieneval.lisp 27 Aug 2005 17:14:57 -0000 1.35
@@ -852,7 +852,8 @@
(let ((type (parse-alien-type spec env)))
(if (or (alien-integer-type-p type)
(alien-float-type-p type)
- (alien-pointer-type-p type))
+ (alien-pointer-type-p type)
+ (alien-system-area-pointer-type-p type))
(ceiling (alien-type-word-aligned-bits type) sb!vm:n-byte-bits)
(error "Unsupported callback argument type: ~A" type))))
|