diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-09-21 01:57:00 +0200 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-09-21 01:57:00 +0200 |
| commit | b8c9eac7390219c71b67c6022a1cf1203d609d87 (patch) | |
| tree | 6020422b6ca6f3aea1c4c7aa20e88f63e9d64396 /Lisp | |
| parent | 75c2ba4fc3f05d61beea196d64d85f5595864535 (diff) | |
LOW-LEVEL-INVOKE: Cosmetic changes.
darcs-hash:7e4e25d9e5b35ca41cc7cdbf3aa03e0c38840c78
Diffstat (limited to 'Lisp')
| -rw-r--r-- | Lisp/method-invocation.lisp | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/Lisp/method-invocation.lisp b/Lisp/method-invocation.lisp index 94f1bb2..5a7a719 100644 --- a/Lisp/method-invocation.lisp +++ b/Lisp/method-invocation.lisp @@ -337,6 +337,12 @@ Returns: *result* --- the return value of the method invocation. do (setf (cffi:mem-aref objc-arg-ptrs :pointer i) (cffi:inc-pointer objc-arg-buffer (* i +pessimistic-allocation-size+)))) + ;; Prepare the argument typestring vector. Note that we don't + ;; pass the first two strings, as they are always the same. + (loop for i from 0 + for arg-typestring in (cddr arg-typestrings) + do (setf (mem-aref objc-arg-typestrings :string i) + (alloc-string-and-register arg-typestring))) (macrolet ((argref (type num) `(cffi:mem-ref objc-arg-buffer ,type (* ,num +pessimistic-allocation-size+)))) @@ -394,12 +400,6 @@ Returns: *result* --- the return value of the method invocation. (setf (argref arg-c-type i) (pointer-to (coerce-object arg 'id)))) (t (setf (argref arg-c-type i) arg))))) - ;; Prepare the argument typestring vector. Note that we don't - ;; pass the first two strings, as they are always the same. - (loop for i from 0 - for arg-typestring in (cddr arg-typestrings) - do (setf (mem-aref objc-arg-typestrings :string i) - (alloc-string-and-register arg-typestring))) (let* ((error-cell (%objcl-invoke-with-types (- argc 2) return-typestring |