Wed Jul 8 22:55:24 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* The smoke call stack is now a struct -> adapt.
diff -rN -u old-qt.gui/src/object.lisp new-qt.gui/src/object.lisp
--- old-qt.gui/src/object.lisp 2014-10-30 07:00:47.000000000 +0100
+++ new-qt.gui/src/object.lisp 2014-10-30 07:00:47.000000000 +0100
@@ -72,7 +72,7 @@
(if (smoke::has-pointer-p (smoke::pointer parent))
parent
(find-smoke-parent parent))
- (error "No smoke parent found."))))
+ (error "No smoke parent found for ~A." object))))
(defmethod initialize-instance :after ((object qt:object)
&key (pointer nil pointer-p) &allow-other-keys)
diff -rN -u old-qt.gui/src/signal-slot/signal.lisp new-qt.gui/src/signal-slot/signal.lisp
--- old-qt.gui/src/signal-slot/signal.lisp 2014-10-30 07:00:47.000000000 +0100
+++ new-qt.gui/src/signal-slot/signal.lisp 2014-10-30 07:00:47.000000000 +0100
@@ -103,12 +103,12 @@
(= 0 (smoke::type-id type))
(= 13 (smoke::type-id type)))
(foreign-slot-value
- (mem-aref (pointer stack)
+ (mem-aref (smoke::call-stack-pointer stack)
'smoke::smoke-stack-item
i)
'smoke::smoke-stack-item 'smoke::voidp)
(foreign-slot-pointer
- (mem-aref (pointer stack)
+ (mem-aref (smoke::call-stack-pointer stack)
'smoke::smoke-stack-item
i)
'smoke::smoke-stack-item 'smoke::voidp))))
diff -rN -u old-qt.gui/src/signal-slot/translate.lisp new-qt.gui/src/signal-slot/translate.lisp
--- old-qt.gui/src/signal-slot/translate.lisp 2014-10-30 07:00:47.000000000 +0100
+++ new-qt.gui/src/signal-slot/translate.lisp 2014-10-30 07:00:47.000000000 +0100
@@ -2,7 +2,7 @@
(defun find-type (name &optional start end)
(smoke::make-smoke-type *smoke-module* (subseq name start end)))
-
+
(defun method-arguments-type (metaobject index)
"Returns a type name list for the arguments of method INDEX of METAOBJECT."
(let* ((signature (cxx:signature (cxx:method metaobject index)))