Changeset 11186


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

DEFINE-CALLBACK-FUNCTION: drop the unused/unsupported MONITOR-EXCEPTION-PORTS
arg. Replace it with an integer which can be used to support Pascal-style
calling sequences (where incoming stack arguments should be discarded by
the callee before function return.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-callbacks.lisp

    r11122 r11186  
    2323
    2424;;; (defcallback ...) expands into a call to this function.
    25 (defun define-callback-function (lisp-function  &optional doc-string (without-interrupts t) monitor-exception-ports
    26                                                    &aux name trampoline)
     25(defun define-callback-function (lisp-function  &optional doc-string (without-interrupts t) (info 0) &aux name trampoline)
    2726  (unless (functionp lisp-function)
    2827    (setq lisp-function (require-type lisp-function 'function)))
     
    5958                       (unless (%svref %pascal-functions% i)
    6059                         (return i)))))
    61           (setq trampoline (make-callback-trampoline index))
     60          (setq trampoline (make-callback-trampoline index (or info 0)))
    6261          (setf (%svref %pascal-functions% index)
    63                 (%cons-pfe trampoline monitor-exception-ports lisp-function name without-interrupts)))))
     62                (%cons-pfe trampoline info lisp-function name without-interrupts)))))
    6463    ;;(%proclaim-special name)          ;
    6564    ;; already done by defpascal expansion
Note: See TracChangeset for help on using the changeset viewer.