Add Patio alloc-stack instruction

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 53ea2d6e..b84b794b 100644
--- a/src/test/java/org/shedlang/compiler/patio/PatioSerializerTests.java
+++ b/src/test/java/org/shedlang/compiler/patio/PatioSerializerTests.java
@@ -140,6 +140,18 @@ public class PatioSerializerTests {
     }
 
     @Test
+    public void canSerializeAllocStack() {
+        var instruction = Patio.allocStack(
+            Patio.localRef("x"),
+            PatioTypes.INT
+        );
+
+        var string = PatioTesting.serializeInstruction(instruction);
+
+        assertThat(string, equalTo("(alloc-stack (local \"x\") int)"));
+    }
+
+    @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 ff3c4fef..01a82ce2 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, PatioType type) {
+        return new PatioAllocStack(target, type, Sources.NULL);
+    }
+
     public static PatioBlock block(
         List<PatioInstruction> body,
         List<PatioOperand> results