Implement copy_to_offset for aggregate sources

2026-05-05 23:24:44 +02:00
parent ebb2af7ae9
commit eaef813be1
2 changed files with 108 additions and 46 deletions
@@ -44,17 +44,15 @@ task :convert do
      seen_proc = false if line.start_with? 'end'
      if line.start_with?('begin') && !seen_proc
        current_stage << <<~FUN
-
          proc f();
          var
-          	x: ^ElnaLocation;
-          	y: ElnaLocation;
+          	x: ElnaType;
+          	y: ElnaTypeField;
          begin
-          	x := malloc(#size(ElnaLocation));
-          	y.line := 1;
-          	y.column := 3;
-          	x^ := y;
-          	printf("# %i %i %i %i\\n\\0", x^.line, x^.column, y.line, y.column)
+          	x.size := 3;
+          	y.field_type := malloc(#size(ElnaType));
+          	y.field_type^ := x;
+          	printf("# %i\\n\\0", y.field_type^.size)
          end;

          begin