Changeset 11188


Ignore:
Timestamp:
Oct 21, 2008, 11:20:29 PM (11 years ago)
Author:
gb
Message:

Return an 8th value from the GENERATE-CALLBACK-BINDINGS hook, indicating
the number of declared argument bytes that would be passed on the stack.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/ffi-win32.lisp

    r10900 r11188  
    9292              call))))))
    9393
    94 ;;; Return 7 values:
     94;;; Return 8 values:
    9595;;; A list of RLET bindings
    9696;;; A list of LET* bindings
     
    101101;;;  to STACK-PTR.  (This is unused on linuxppc32.)
    102102;;; The byte offset of the foreign return address, relative to STACK-PTR
    103 
     103;;; The number of argument bytes pushed on the stack by the caller, or NIL
     104;;; if this can't be determined.
    104105(defun win32::generate-callback-bindings (stack-ptr fp-args-ptr argvars argspecs result-spec struct-result-name)
    105106  (declare (ignore fp-args-ptr))
     
    119120            (offset 8 (incf offset 4)))
    120121           ((null argvars)
    121             (values (rlets) (lets) (dynamic-extent-names) (inits) rtype nil 4))
     122            (values (rlets) (lets) (dynamic-extent-names) (inits) rtype nil 4 (- offset 8)))
    122123        (let* ((name (car argvars))
    123124               (spec (car argspecs))
Note: See TracChangeset for help on using the changeset viewer.