Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-20 14:19:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

automatically adding blocking checks on input-port args in the stubber

Browse source
This commit is contained in:
Alex Shinn 2010-12-11 22:27:54 -08:00
parent 2affd2c677
commit 73d5083d10
1 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
tools/genstubs.scm
View file

@ -775,6 +775,13 @@
(write-validator (string-append "arg" (type-index-string a)) a))
args))
(define (write-additional-checks args)
(for-each
(lambda (a)
(if (eq? 'input-port (type-base a))
(cat " sexp_check_block_port(ctx, arg" (type-index a) ", 0);\n")))
args))
(define (write-temporaries func)
(for-each
(lambda (a)
@ -975,6 +982,8 @@
(if (number? len)
(cat " if (len" i " != " len ")\n"
" free(tmp" i ");\n"))))
((eq? (type-base a) 'input-port)
(cat " sexp_maybe_unblock_port(ctx, arg" (type-index a) ");\n"))
((and (type-result? a) (not (basic-type? a))
(not (assq (type-base a) *types*))
(not (type-free? a)) (not (type-pointer? a))
@ -1006,6 +1015,7 @@
(write-parameters (func-scheme-args func)) ") {\n")
(write-locals func)
(write-validators (func-scheme-args func))
(write-additional-checks (func-c-args func))
(write-temporaries func)
(write-call func)
(write-results func)