Implement aggregate values assignment

2026-05-07 07:57:16 +02:00
parent eaef813be1
commit 92e88cfcb2
2 changed files with 50 additions and 19 deletions
@@ -46,13 +46,18 @@ task :convert do
        current_stage << <<~FUN
          proc f();
          var
-          	x: ElnaType;
-          	y: ElnaTypeField;
+          	x: ElnaLocation;
+          	y: ElnaPosition;
          begin
-          	x.size := 3;
-          	y.field_type := malloc(#size(ElnaType));
-          	y.field_type^ := x;
-          	printf("# %i\\n\\0", y.field_type^.size)
+          	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)
          end;

          begin