fix(stdlib): Ensure consistent marshal representation (#2045)

Co-authored-by: Blaine Bublitz <blaine.bublitz@gmail.com>
grain-lang · Mar 2, 2024 · 029059f · 029059f
1 parent 145b783
commit 029059f
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 1 deletion.
diff --git a/compiler/test/stdlib/marshal.test.gr b/compiler/test/stdlib/marshal.test.gr
@@ -91,3 +91,5 @@ let truncatedRecord = Bytes.slice(
   )
 )
 assert Result.isErr(unmarshal(truncatedRecord))
+
+assert Marshal.marshal("🌾") == Marshal.marshal("🌾")
diff --git a/stdlib/marshal.gr b/stdlib/marshal.gr
@@ -423,8 +423,11 @@ let marshal = (value, buf) => {
 @unsafe
 provide let marshal = value => {
   let valuePtr = fromGrain(value)
-  let buf = allocateBytes(size(valuePtr))
+  let size = size(valuePtr)
+  let buf = allocateBytes(size)
+  Memory.fill(buf + 8n, 0n, size)
   marshal(valuePtr, buf + 8n)
+  ignore(value)
   toGrain(buf): Bytes
 }