Push closure value onto stack

2 files changed, 17 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 0f504c07..857089fa 100644
--- a/src/test/java/org/shedlang/compiler/patio/PatioSerializerTests.java
+++ b/src/test/java/org/shedlang/compiler/patio/PatioSerializerTests.java
@@ -59,6 +59,15 @@ public class PatioSerializerTests {
     }
 
     @Test
+    public void canSerializeDataPtrToInt() {
+        var instruction = Patio.dataPtrToInt("target", "value");
+
+        var string = PatioTesting.serializeInstruction(instruction);
+
+        assertThat(string, equalTo("(data-ptr-to-int \"target\" \"value\")"));
+    }
+
+    @Test
     public void canSerializeFunctionPointerGet() {
         var instruction = Patio.functionPointerGet("target", "f");
 
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 7d927ae9..c3ba0270 100644
--- a/src/test/java/org/shedlang/compiler/patio/instructions/Patio.java
+++ b/src/test/java/org/shedlang/compiler/patio/instructions/Patio.java
@@ -29,6 +29,14 @@ public class Patio {
         );
     }
 
+    public static PatioInstruction dataPtrToInt(String target, String value) {
+        return new PatioDataPtrToInt(
+            new PatioLocalRef(target),
+            new PatioLocalRef(value),
+            Sources.NULL
+        );
+    }
+
     public static PatioInstruction functionPointerGet(String target, String name) {
         return new PatioFunctionPointerGet(new PatioLocalRef(target), name, Sources.NULL);
     }