Implement copy_to_offset for aggregate sources

1 files changed, 6 insertions, 8 deletions

diff --git a/Rakefile b/Rakefile
index 39aa6c6..c48a248 100644
--- a/Rakefile
+++ b/Rakefile
@@ -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