From e4c37c9d72d733f601b2e604a6368391e432e8b0 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 13 Jul 2020 23:00:21 -0700
Subject: cptr: bugfix: cptr-out must fall back on tft->put.

* ffi.c (cptr_out): tft->out may be null, in which case
tft->put must be used.
---
 ffi.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'ffi.c')

diff --git a/ffi.c b/ffi.c
index 1099f7fc..a0f58e9b 100644
--- a/ffi.c
+++ b/ffi.c
@@ -5974,7 +5974,10 @@ static val cptr_out(val cptr, val obj, val type_in)
   val type = default_arg(type_in, ffi_type_lookup_checked(self, cptr->co.cls));
   struct txr_ffi_type *tft = ffi_type_struct_checked(self, type);
   if (data != 0) {
-    tft->out(tft, 0, obj, data, self);
+    if (tft->out != 0)
+      tft->out(tft, 0, obj, data, self);
+    else
+      tft->put(tft, obj, data, self);
     return obj;
   }
   uw_throwf(type_error_s, lit("~a: ~s is a null pointer"), self, cptr, nao);
-- 
cgit v1.2.3