From fa92a157746ae17f295d31b7a047dfeb99624a13 Mon Sep 17 00:00:00 2001 From: Baitinq Date: Wed, 11 Jun 2025 00:16:17 +0200 Subject: Misc: Rename lang --- examples/18.pry | 30 ++++++++++++++++++++++++++++++ 1 file changed, 30 insertions(+) create mode 100644 examples/18.pry (limited to 'examples/18.pry') diff --git a/examples/18.pry b/examples/18.pry new file mode 100644 index 0000000..32b2d1a --- /dev/null +++ b/examples/18.pry @@ -0,0 +1,30 @@ +extern malloc = (i64) => *void; +extern free = (*void) => void; + +import "!stdlib.pry"; + +let main = () => i64 { + let x = cast(*i8, malloc(24)); + (*(x+cast(*i8, 0))) = 10; + (*(x+cast(*i8, 1))) = 20; + (*(x+cast(*i8, 2))) = 40; + printf("%p\n", x); + printf("%d\n", *(x+cast(*i8, 0))); + printf("%d\n", *(x+cast(*i8, 1))); + printf("%d\n", *(x+cast(*i8, 2))); + free(cast(*void, x)); + return 0; +}; + +/* + +Expected stdout: + +${SOMEPOINTER} +10 +20 +40 + +Expected return: 0 + +*/ -- cgit 1.4.1