Implement cast expressions

1 files changed, 4 insertions, 11 deletions

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