Fixed bug in FFI. Up to 12 Arguments to an external call are now

supported.
This commit is contained in:
marting 2000-06-30 07:04:04 +00:00
parent 43b90a190a
commit c96cde2294
2 changed files with 2 additions and 2 deletions

View File

@ -15,8 +15,9 @@
(stack-nargs (extract-fixnum (pop))) (stack-nargs (extract-fixnum (pop)))
(rest-list (pop))) (rest-list (pop)))
(if (< maximum-external-call-args (if (< maximum-external-call-args
nargs) (- nargs 2)); ignore procedure & name
(raise-exception too-many-arguments-to-external-procedure (raise-exception too-many-arguments-to-external-procedure
0
(stack-ref (- stack-nargs 1)) (stack-ref (- stack-nargs 1))
nargs) nargs)
(begin (begin

View File

@ -200,7 +200,6 @@
(format-date "~a ~b ~d ~H:~M:~S ~Y" date)) (format-date "~a ~b ~d ~H:~M:~S ~Y" date))
(define (format-date fmt date) (define (format-date fmt date)
(warn "format-date called, this will fail since it calls with 13 args")
(check-arg date? date format-date) (check-arg date? date format-date)
(receive (err result) (receive (err result)
(%format-date/errno fmt (%format-date/errno fmt