Add call-pointer instruction to Patio IR

2 files changed, 13 insertions, 0 deletions

diff --git a/src/test/java/org/shedlang/compiler/patio/PatioInstructionSerializerTests.java b/src/test/java/org/shedlang/compiler/patio/PatioInstructionSerializerTests.java
index 35ed5e19..d2fefc23 100644
--- a/src/test/java/org/shedlang/compiler/patio/PatioInstructionSerializerTests.java
+++ b/src/test/java/org/shedlang/compiler/patio/PatioInstructionSerializerTests.java
@@ -18,6 +18,15 @@ public class PatioInstructionSerializerTests {
     }
 
     @Test
+    public void canSerializeCallPointer() {
+        var instruction = Patio.callPointer(2);
+
+        var string = serialize(instruction);
+
+        assertThat(string, equalTo("(call-pointer arg-count=2)"));
+    }
+
+    @Test
     public void canSerializeDiscard() {
         var instruction = Patio.discard();
 
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 672de3ed..0f8d980f 100644
--- a/src/test/java/org/shedlang/compiler/patio/instructions/Patio.java
+++ b/src/test/java/org/shedlang/compiler/patio/instructions/Patio.java
@@ -9,6 +9,10 @@ public class Patio {
         return new PatioAlloc(bytes, Sources.NULL);
     }
 
+    public static PatioInstruction callPointer(int argCount) {
+        return new PatioCallPointer(argCount, Sources.NULL);
+    }
+
     public static PatioInstruction discard() {
         return new PatioDiscard(Sources.NULL);
     }