Sun Dec 13 11:17:08 CET 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Update to the new Smoke ABI (v.3)
hunk ./src/objects/method.lisp 184
+(defun attribute-p (method)
+ "Returns T when METHOD accesses C++ member/static variables."
+ (/= 0 (get-method-flag method :attribute)))
+
+(defun property-p (method)
+ "Returns T when METHOD accesses a Q_PROPERTY."
+ (/= 0 (get-method-flag method :property)))
+
hunk ./src/smoke-c/class.lisp 17
- (flags :unsigned-short))
+ (flags :unsigned-short)
+ (size :unsigned-int))
hunk ./src/smoke-c/method.lisp 12
- (:protected #x80))
+ (:protected #x80)
+ (:attribute #x100)
+ (:property #x200)
+ (:virtual #x400)
+ (:purevirtual #x800)
+ (:signal #x1000)
+ (:slot #x2000))
hunk ./src/smoke-c/method.lisp 26
- (flags :unsigned-char)
+ (flags :unsigned-short)
hunk ./src/smoke-c/smoke-c.lisp 6
- (:unix "libsmokeqt.so.2")
+ (:unix "libsmokeqt.so.3")
hunk ./src/smoke-c/smoke-c.lisp 54
+;; Smoke::ModuleIndex is a POD-struct.
+;; Thus we can treat it as a C struct.
hunk ./src/smoke.lisp 181
- (:unix ,(format nil "~(~A~).so.2.0" library))
+ (:unix ,(format nil "~(~A~).so.3" library))
hunk ./src/smoke.lisp 189
- (defcfun (,init-function ,(format nil "_Z~A~Av"
- (length function-name)
- function-name)
- :library ,library)
+ (defcfun (,init-function ,function-name :library ,library)
hunk ./test-bundle.sh 8
-sbcl --eval '(mb:load :qt.tests)' \
+MALLOC_CHECK_=3 sbcl --eval '(mb:load :qt.tests)' \
hunk ./test-bundle.sh 12
-echo "(progn (5am:run!) (quit))" | ./qt.test.run [_$_]
+echo "(progn (in-package :qt.tests) (5am:run!) (quit))" | MALLOC_CHECK_=3 ./qt.test.run [_$_]