From eaef813be1d9e4a9c014d03ed7bbef6a82c5ab54 Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Tue, 5 May 2026 23:24:44 +0200
Subject: Implement copy_to_offset for aggregate sources

---
 Rakefile | 14 ++++++--------
 1 file changed, 6 insertions(+), 8 deletions(-)

(limited to 'Rakefile')

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
-- 
cgit v1.2.3