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

no need to zero out calloc result in ffi

Browse source
This commit is contained in:
Alex Shinn 2018-07-16 23:33:00 +08:00
parent b52df76e8a
commit 17102697e9
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
tools/chibi-ffi
View file

@ -1233,11 +1233,12 @@
"*sizeof(tmp" (type-index a) "[0])")) "*sizeof(tmp" (type-index a) "[0])"))
(lambda () (cat "sizeof(tmp" (type-index a) "[0])"))) (lambda () (cat "sizeof(tmp" (type-index a) "[0])")))
");\n" ");\n"
(lambda () ;; (lambda ()
(if (and (symbol? len) (not (eq? len 'null))) ;; (if (and (symbol? len) (not (eq? len 'null)))
(cat " tmp" (type-index a) "[" ;; (cat " tmp" (type-index a) "["
(lambda () (scheme->c-converter 'unsigned-int len)) ;; (lambda () (scheme->c-converter 'unsigned-int len))
"*sizeof(tmp" (type-index a) "[0])] = 0;\n")))))) ;; "*sizeof(tmp" (type-index a) "[0])] = 0;\n")))
)))
((and (type-result? a) (type-value a)) ((and (type-result? a) (type-value a))
(cat " tmp" (type-index a) " = " (cat " tmp" (type-index a) " = "
(lambda () (write-value func (type-value a))) ";\n")) (lambda () (write-value func (type-value a))) ";\n"))