From 1802aa21d8bdc3a363c6641a209bce263e8a63b0 Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Wed, 13 May 2026 22:52:07 +0200 Subject: Implement cast expressions --- Rakefile | 15 ++++----------- 1 file changed, 4 insertions(+), 11 deletions(-) (limited to 'Rakefile') diff --git a/Rakefile b/Rakefile index 8b18106..499a70b 100644 --- a/Rakefile +++ b/Rakefile @@ -46,18 +46,11 @@ task :convert do current_stage << <<~FUN proc f(); var - x: ElnaLocation; - y: ElnaPosition; + x: ^ElnaLocation; begin - x.line := 5; - x.column := 3; - y.end_location := x; - - (* y.end_location.line := 5; - y.end_location.column := 3; - x := y.end_location; *) - - printf("# %i %i %i %i\\n\\0", x.line, x.column, y.end_location.line, y.end_location.column) + x := malloc(#size(ElnaLocation)); + x^.line := 5; + x^.column := cast(3: Word) end; begin -- cgit v1.2.3