From 723d63016c558806283bebf6e0f065a65867bf5b Mon Sep 17 00:00:00 2001 From: KislyjKisel Date: Mon, 22 Apr 2024 18:39:04 +0300 Subject: [PATCH] Fix nested record fields offsets --- autowrap/sffi.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/autowrap/sffi.lisp b/autowrap/sffi.lisp index e03a28d..343cd34 100644 --- a/autowrap/sffi.lisp +++ b/autowrap/sffi.lisp @@ -416,7 +416,7 @@ call it. " (ensure-list field-typespec) (declare (ignore anon-params)) (let* ((anonymous-fields (parse-record-fields anon-record-type nil - anon-field-list bit-offset))) + anon-field-list (+ pre-offset (or bit-offset 0))))) (loop for i in anonymous-fields do (push i record-fields)))))) finally (return (delete-if #'null record-fields))))