From 0dfb6bd3deff7cc94131084b1402a6d7c5e57bcb Mon Sep 17 00:00:00 2001 From: Kristin Rutenkolk Date: Thu, 2 Jan 2025 23:50:26 +0100 Subject: [PATCH] use syntax quoted expression in generate-deserialize implementation for strings Co-authored-by: Joshua Suskalo --- src/clj/coffi/mem.clj | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/clj/coffi/mem.clj b/src/clj/coffi/mem.clj index 35fb879..ef2861a 100644 --- a/src/clj/coffi/mem.clj +++ b/src/clj/coffi/mem.clj @@ -1811,7 +1811,8 @@ (defmethod generate-deserialize :coffi.mem/float [_type offset segment-source-form] `(read-float ~segment-source-form ~offset)) (defmethod generate-deserialize :coffi.mem/double [_type offset segment-source-form] `(read-double ~segment-source-form ~offset)) (defmethod generate-deserialize :coffi.mem/pointer [_type offset segment-source-form] `(read-address ~segment-source-form ~offset)) -(defmethod generate-deserialize :coffi.mem/c-string [_type offset segment-source-form] (list `.getString (list `.reinterpret (list `.get (with-meta segment-source-form {:tag 'java.lang.foreign.MemorySegment}) `pointer-layout offset) `Integer/MAX_VALUE) 0)) +(defmethod generate-deserialize :coffi.mem/c-string [_type offset segment-source-form] + `(.getString (.reinterpret (.get ~(with-meta segment-source-form {:tag 'java.lang.foreign.MemorySegment}) pointer-layout ~offset) Integer/MAX_VALUE) 0)) (defn- generate-deserialize-array-as-array-bulk [array-type n offset segment-source-form] (list (coffitype->array-read-fn array-type) segment-source-form n offset))