From f1251be8fb464674ef0b5ffeb645a9aab872da88 Mon Sep 17 00:00:00 2001
From: Michael Williamson <mike@zwobble.org>
Date: Sun, 28 Jan 2024 17:47:06 +0000
Subject: Add memory-fill instruction to Patio

---
 .../compiler/patio/PatioSerializerTests.java         | 20 ++++++++++++++++++++
 .../shedlang/compiler/patio/instructions/Patio.java  |  8 ++++++++
 2 files changed, 28 insertions(+)

(limited to 'src/test/java')

diff --git a/src/test/java/org/shedlang/compiler/patio/PatioSerializerTests.java b/src/test/java/org/shedlang/compiler/patio/PatioSerializerTests.java
index fdd8ee65..29110e81 100644
--- a/src/test/java/org/shedlang/compiler/patio/PatioSerializerTests.java
+++ b/src/test/java/org/shedlang/compiler/patio/PatioSerializerTests.java
@@ -422,6 +422,26 @@ public class PatioSerializerTests {
         assertThat(string, equalTo("(continue)"));
     }
 
+    @Test
+    public void canSerializeMemoryFill() {
+        var instruction = Patio.memoryFill(
+            Patio.localRef("pointer"),
+            Patio.byteConst((byte)4),
+            Patio.intConst(20)
+        );
+
+        var string = PatioTesting.serializeInstruction(instruction);
+
+        assertThat(string, equalTo("""
+            (
+                memory-fill
+                (local "pointer")
+                (byte-const 4)
+                (int-const 20)
+            )"""
+        ));
+    }
+
     @Test
     public void canSerializeMemoryLoad() {
         var instruction = Patio.memoryLoad(
diff --git a/src/test/java/org/shedlang/compiler/patio/instructions/Patio.java b/src/test/java/org/shedlang/compiler/patio/instructions/Patio.java
index 2ac14323..d3fce63d 100644
--- a/src/test/java/org/shedlang/compiler/patio/instructions/Patio.java
+++ b/src/test/java/org/shedlang/compiler/patio/instructions/Patio.java
@@ -236,6 +236,14 @@ public class Patio {
         return new PatioLoopContinue(Sources.NULL);
     }
 
+    public static PatioInstruction memoryFill(
+        PatioOperand pointer,
+        PatioOperand value,
+        PatioOperand length
+    ) {
+        return new PatioMemoryFill(pointer, value, length, Sources.NULL);
+    }
+
     public static PatioInstruction memoryLoad(
         PatioLocalRef destination,
         PatioOperand pointer,
-- 
cgit v1.2.3