summaryrefslogtreecommitdiff
path: root/Rakefile
diff options
context:
space:
mode:
Diffstat (limited to 'Rakefile')
-rw-r--r--Rakefile14
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