From 69646a0c9407940eb10623b60f0b58dd4ddbd6b0 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Mon, 16 Jul 2012 23:34:10 +0900 Subject: [PATCH] don't free stack-allocated arrays in ffi generated code --- tools/chibi-ffi | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tools/chibi-ffi b/tools/chibi-ffi index be05088e..7f8ba026 100755 --- a/tools/chibi-ffi +++ b/tools/chibi-ffi @@ -1130,7 +1130,7 @@ (cat " }\n")))) (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"))) (define (write-cleanup func)