From a5a2588692d7c421d30ede8439e1f31df6f8c216 Mon Sep 17 00:00:00 2001 From: Michael Williamson Date: Thu, 20 Jul 2023 14:30:00 +0100 Subject: Push closure value onto stack --- .../java/org/shedlang/compiler/patio/PatioSerializerTests.java | 9 +++++++++ .../java/org/shedlang/compiler/patio/instructions/Patio.java | 8 ++++++++ 2 files changed, 17 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 0f504c07..857089fa 100644 --- a/src/test/java/org/shedlang/compiler/patio/PatioSerializerTests.java +++ b/src/test/java/org/shedlang/compiler/patio/PatioSerializerTests.java @@ -58,6 +58,15 @@ public class PatioSerializerTests { assertThat(string, equalTo("(call-pointer \"target\" \"f\" (\"a\" \"b\" \"c\"))")); } + @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); } -- cgit v1.2.3