From cc5a6b42dd64cdbc9767715c4ca475b70a995466 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sat, 22 May 2021 20:41:06 -0700
Subject: ffi: fix crash: carray argument type.

* ffi.c (make_ffi_type_pointer): Set the by_value_in flag only if the in
function has been specified. Otherwise tft->in is a null pointer and
will be used if this pointer type appears as an argument.
---
 ffi.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'ffi.c')

diff --git a/ffi.c b/ffi.c
index a83eea09..31956a8c 100644
--- a/ffi.c
+++ b/ffi.c
@@ -3164,7 +3164,7 @@ static val make_ffi_type_pointer(val syntax, val lisp_type,
     tft->alloc = ffi_fixed_alloc;
     tft->dynsize = ffi_fixed_dynsize;
     tft->free = free;
-    tft->by_value_in = 1;
+    tft->by_value_in = (in != 0);
 
     return obj;
   }
-- 
cgit v1.2.3