ffi: make-zstruct must ignore padding slots.

* ffi.c (make_zstruct): Don't convert zeros to a Lisp type and
don't try to set the slot, if the slot name is nil. That's a
padding slot which doesn't exist in the Lisp type; the slotset
will blow up on it.

1 files changed, 4 insertions, 2 deletions

diff --git a/ffi.c b/ffi.c
index cbffce50..1cc004cc 100644
--- a/ffi.c
+++ b/ffi.c
@@ -5369,8 +5369,10 @@ val make_zstruct(val type, struct args *args)
     if (!inited[i]) {
       struct smemb *m = &tft->memb[i];
       val slsym = m->mname;
-      val initval = m->mtft->get(m->mtft, zbuf, self);
-      slotset(strct, slsym, initval);
+      if (slsym) {
+        val initval = m->mtft->get(m->mtft, zbuf, self);
+        slotset(strct, slsym, initval);
+      }
     }
   }