Wed Jul 8 22:41:19 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Speedup overload resolution and some other stuff for faster C++ method calling.

--- old-smoke/src/objects/stack.lisp 2014-10-30 08:13:00.000000000 +0100

+++ new-smoke/src/objects/stack.lisp 2014-10-30 08:13:00.000000000 +0100

@@ -1,46 +1,44 @@

(in-package #:smoke)

-(defclass call-stack ()

- ((pointer :reader pointer :initarg :pointer

- :initform (null-pointer)

- :type foreign-pointer

- :documentation "Pointer to the Smoke stack")

- (top :accessor top :initarg :top

- :initform (null-pointer)

- :type foreign-pointer

- :documentation "Pointer to push the next argument to."))

- (:documentation "Contains the argument passed to a Smoke method."))

+(declaim (inline %make-call-stack))

+(defstruct (call-stack (:constructor %make-call-stack))

+ (pointer (null-pointer) :type foreign-pointer)

+ (top (null-pointer) :type foreign-pointer))

(defgeneric size (object))

(defmethod size ((stack call-stack))

"Returns the size (number of arguments) of STACK."

(/

- (- (pointer-address (top stack))

- (pointer-address (pointer stack)))

+ (- (pointer-address (call-stack-top stack))

+ (pointer-address (call-stack-pointer stack)))

(foreign-type-size 'smoke-stack-item)))

(defun make-call-stack (smoke-stack)

- (declare (optimize (speed 3)))

- (make-instance 'call-stack

- :pointer smoke-stack

- :top (inc-pointer smoke-stack (foreign-type-size 'smoke-stack-item))))

+ (declare (type foreign-pointer smoke-stack)

+ (optimize (speed 3)))

+ (%make-call-stack

+ :pointer smoke-stack

+ :top (inc-pointer smoke-stack

+ #.(foreign-type-size 'smoke-stack-item))))

(defun push-stack (stack value type)

- (setf (foreign-slot-value (top stack)

+ (setf (foreign-slot-value (call-stack-top stack)

'smoke-stack-item type) value)

- (incf-pointer (top stack) #.(foreign-type-size 'smoke-stack-item)))

+ (incf-pointer (call-stack-top stack) #.(foreign-type-size 'smoke-stack-item)))

(define-compiler-macro push-stack (&whole form stack value type)

(if (constantp type)

`(progn

- (setf (foreign-slot-value (top ,stack)

+ (setf (foreign-slot-value (call-stack-top ,stack)

'smoke-stack-item ,type) ,value)

- (incf-pointer (top ,stack) ,(foreign-type-size 'smoke-stack-item)))

+ (incf-pointer (call-stack-top ,stack)

+ ,(foreign-type-size 'smoke-stack-item)))

form))

(defclass smoke-standard-object ()

((pointer :reader pointer

+ :type foreign-pointer

:initarg :pointer

:documentation "Pointer to the C++ object.")

#+clisp (finalizer :type list :initform (list nil))