From 59e3c50bcd58130e81e1f57b21d6e57b4d4aba6d Mon Sep 17 00:00:00 2001 From: _ov4 Date: Sat, 17 Oct 2026 08:32:43 +0000 Subject: feat(classes): destroy and release heap objects with DELETE Co-Authored-By: Claude Opus 5.5 --- tests/i/class-delete/program.cps | 35 +++++++++++++++++++++++++++++++++++ 1 file changed, 35 insertions(+) create mode 100644 tests/i/class-delete/program.cps (limited to 'tests/i/class-delete/program.cps') diff --git a/tests/i/class-delete/program.cps b/tests/i/class-delete/program.cps new file mode 100644 index 0000000..492c032 --- /dev/null +++ b/tests/i/class-delete/program.cps @@ -0,0 +1,35 @@ +CLASS Leaf + Value : INTEGER + PROCEDURE DELETE() + OUTPUT "leaf:", Value + ENDPROCEDURE +ENDCLASS +CLASS Pair + Left : Leaf + Right : Leaf + PROCEDURE NEW() + Left.Value <- 1 + Right.Value <- 2 + ENDPROCEDURE + PROCEDURE DELETE() + OUTPUT "pair" + ENDPROCEDURE +ENDCLASS +DECLARE Obj : Pair +Obj <- NEW Pair() +Obj.DELETE() +CALL Obj.DELETE() +DELETE Obj +TRY + DELETE Obj +CATCH + OUTPUT "double caught" +ENDTRY +DECLARE Stack : Pair +TRY + DELETE Stack +CATCH + OUTPUT "stack caught" +ENDTRY +DECLARE Items : ARRAY[1:2] OF Pair +Items[2].Right.DELETE() -- cgit v1.3.1-4-g156e