paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 07:50:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix compilation

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-03-04 17:32:08 +01:00 committed by Michael Van Canneyt
parent 325d29307f
commit a15dfba971
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/avr/navrutil.pas
View File

@ -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