|
@@ -27,6 +27,7 @@ interface
|
|
|
|
|
|
uses
|
|
uses
|
|
cclasses,
|
|
cclasses,
|
|
|
|
+ fmodule,
|
|
node,nbas,
|
|
node,nbas,
|
|
ngenutil,
|
|
ngenutil,
|
|
symtype,symconst,symsym,symdef;
|
|
symtype,symconst,symsym,symdef;
|
|
@@ -35,13 +36,13 @@ interface
|
|
type
|
|
type
|
|
tavrnodeutils = class(tnodeutils)
|
|
tavrnodeutils = class(tnodeutils)
|
|
protected
|
|
protected
|
|
- class procedure insert_init_final_table(entries:tfplist); override;
|
|
|
|
|
|
+ class procedure insert_init_final_table(main: tmodule; entries:tfplist); override;
|
|
end;
|
|
end;
|
|
|
|
|
|
implementation
|
|
implementation
|
|
|
|
|
|
uses
|
|
uses
|
|
- verbose,cutils,globtype,globals,constexp,fmodule,
|
|
|
|
|
|
+ verbose,cutils,globtype,globals,constexp,
|
|
aasmdata,aasmtai,aasmcpu,aasmcnst,aasmbase,
|
|
aasmdata,aasmtai,aasmcpu,aasmcnst,aasmbase,
|
|
cpubase,
|
|
cpubase,
|
|
symbase,symcpu,symtable,defutil,
|
|
symbase,symcpu,symtable,defutil,
|
|
@@ -52,7 +53,7 @@ implementation
|
|
pass_1;
|
|
pass_1;
|
|
|
|
|
|
|
|
|
|
- class procedure tavrnodeutils.insert_init_final_table(entries:tfplist);
|
|
|
|
|
|
+ class procedure tavrnodeutils.insert_init_final_table(main: tmodule; entries:tfplist);
|
|
var
|
|
var
|
|
op : TAsmOp;
|
|
op : TAsmOp;
|
|
initList, finalList, header: TAsmList;
|
|
initList, finalList, header: TAsmList;
|
|
@@ -104,7 +105,7 @@ implementation
|
|
initList.Free;
|
|
initList.Free;
|
|
finalList.Free;
|
|
finalList.Free;
|
|
|
|
|
|
- inherited insert_init_final_table(entries);
|
|
|
|
|
|
+ inherited insert_init_final_table(main,entries);
|
|
end;
|
|
end;
|
|
|
|
|
|
begin
|
|
begin
|