Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-06 20:56:38 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

don't free stack-allocated arrays in ffi generated code

Browse source
This commit is contained in:
Alex Shinn 2012-07-16 23:34:10 +09:00
parent ea8a3df083
commit 69646a0c94
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
tools/chibi-ffi
View file

@ -1130,7 +1130,7 @@
(cat " }\n")))) (cat " }\n"))))
(define (write-free type) (define (write-free type)
(if (type-array type) (if (and (type-array type) (not (number? (type-array type))))
(cat " free(tmp" (type-index-string type) ");\n"))) (cat " free(tmp" (type-index-string type) ");\n")))
(define (write-cleanup func) (define (write-cleanup func)