From 2c824c82d54d5ede76d6302e5c9460e6e41300e6 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 16 Dec 2019 13:10:42 -0800
Subject: ffi: bug: zchar not handled in array out semantics.

* ffi.c (ffi_array_out): Add missing zchar case.
---
 ffi.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/ffi.c b/ffi.c
index a7ccfe28..0fe1e92e 100644
--- a/ffi.c
+++ b/ffi.c
@@ -2473,6 +2473,7 @@ static void ffi_array_out(struct txr_ffi_type *tft, int copy, val vec,
   if (tft->ch_conv != conv_none && stringp(vec)) {
     switch (tft->ch_conv) {
     case conv_char:
+    case conv_zchar:
       ffi_char_array_put(tft, vec, dst, tft->nelem);
       break;
     case conv_wchar:
-- 
cgit v1.2.3