Changeset 9385


Ignore:
Timestamp:
May 6, 2008, 5:44:54 PM (11 years ago)
Author:
rme
Message:

generate-callback-bindings: include offsets

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/lib/ffi-darwinx8632.lisp

    r9273 r9385  
    107107            (argspecs argspecs (cdr argspecs))
    108108            (delta 4 4)
    109             (offset 0 (+ offset delta)))
     109            (offset -4 (decf offset delta)))
    110110           ((null argvars)
    111111            (values (rlets) (lets) (dynamic-extent-names) (inits) rtype nil 4))
     
    121121                          (ecase (foreign-type-to-representation-type argtype)
    122122                            (:single-float '%get-single-float)
    123                             (:double-float '%get-double-float)
    124                             (:signed-doubleword '%%get-signed-longlong)
     123                            (:double-float (incf offset 4)
     124                                           '%get-double-float)
     125                            (:signed-doubleword (incf offset 4)
     126                                                '%%get-signed-longlong)
    125127                            (:signed-fullword '%get-signed-long)
    126128                            (:signed-halfword '%get-signed-word)
    127129                            (:signed-byte '%get-signed-byte)
    128                             (:unsigned-doubleword '%%get-unsigned-longlong)
     130                            (:unsigned-doubleword (incf offset 4)
     131                                                  '%%get-unsigned-longlong)
    129132                            (:unsigned-fullword '%get-unsigned-long)
    130133                            (:unsigned-halfword '%get-unsigned-word)
    131134                            (:unsigned-byte '%get-unsigned-byte)
    132135                            (:address '%get-ptr))
    133                           ,stack-ptr)))))))))
     136                          ,stack-ptr
     137                          ,offset)))))))))
    134138
    135139(defun x86-darwin32::generate-callback-return-value (stack-ptr fp-args-ptr result return-type struct-return-arg)
Note: See TracChangeset for help on using the changeset viewer.