Add alloc-stack instruction to Patio

2 files changed, 16 insertions, 0 deletions

diff --git a/src/test/java/org/shedlang/compiler/patio/PatioSerializerTests.java b/src/test/java/org/shedlang/compiler/patio/PatioSerializerTests.java
index a9f0bde2..1a41b660 100644
--- a/src/test/java/org/shedlang/compiler/patio/PatioSerializerTests.java
+++ b/src/test/java/org/shedlang/compiler/patio/PatioSerializerTests.java
@@ -138,6 +138,18 @@ public class PatioSerializerTests {
     }
 
     @Test
+    public void canSerializeAllocStack() {
+        var instruction = Patio.allocStack(
+            Patio.localRef("x"),
+            PatioDataLayouts.struct(List.of(PatioDataLayouts.INT, PatioDataLayouts.INT, PatioDataLayouts.BYTE))
+        );
+
+        var string = PatioTesting.serializeInstruction(instruction);
+
+        assertThat(string, equalTo("(alloc-stack (local \"x\") (struct (int int byte)))"));
+    }
+
+    @Test
     public void canSerializeBoolToInt() {
         var instruction = Patio.boolToInt(Patio.localRef("target"), Patio.localRef("value"));
 
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 a076b058..8e076e24 100644
--- a/src/test/java/org/shedlang/compiler/patio/instructions/Patio.java
+++ b/src/test/java/org/shedlang/compiler/patio/instructions/Patio.java
@@ -18,6 +18,10 @@ public class Patio {
         return new PatioAllocHeap(target, layout, Sources.NULL);
     }
 
+    public static PatioInstruction allocStack(PatioLocalRef target, PatioDataLayout layout) {
+        return new PatioAllocStack(target, layout, Sources.NULL);
+    }
+
     public static PatioBlock block(
         List<PatioInstruction> body,
         List<PatioOperand> results