From 413ad79ca75bb508ac2b6b333571f08f3d21c8a8 Mon Sep 17 00:00:00 2001 From: Michael Williamson Date: Thu, 20 Jul 2023 18:32:51 +0100 Subject: Add data-ptr-get instruction --- .../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 67227c7b..fbc770f7 100644 --- a/src/test/java/org/shedlang/compiler/patio/PatioSerializerTests.java +++ b/src/test/java/org/shedlang/compiler/patio/PatioSerializerTests.java @@ -109,6 +109,15 @@ public class PatioSerializerTests { assertThat(string, equalTo("(call-pointer \"target\" \"f\" (\"a\" \"b\" \"c\"))")); } + @Test + public void canSerializeDataPtrGet() { + var instruction = Patio.dataPtrGet("target", "x"); + + var string = PatioTesting.serializeInstruction(instruction); + + assertThat(string, equalTo("(data-ptr-get \"target\" \"x\")")); + } + @Test public void canSerializeDataPtrToInt() { var instruction = Patio.dataPtrToInt("target", "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 0f434cd5..79b2f6ed 100644 --- a/src/test/java/org/shedlang/compiler/patio/instructions/Patio.java +++ b/src/test/java/org/shedlang/compiler/patio/instructions/Patio.java @@ -40,6 +40,14 @@ public class Patio { return new PatioDataElement(name, layout, Sources.NULL); } + public static PatioDataPtrGet dataPtrGet(String target, String name) { + return new PatioDataPtrGet( + new PatioLocalRef(target), + name, + Sources.NULL + ); + } + public static PatioInstruction dataPtrToInt(String target, String value) { return new PatioDataPtrToInt( new PatioLocalRef(target), -- cgit v1.2.3