paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 15:50:30 +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
cclasses,
fmodule,
node,nbas,
ngenutil,
symtype,symconst,symsym,symdef;
@ -35,13 +36,13 @@ interface
type
tavrnodeutils = class(tnodeutils)
protected
class procedure insert_init_final_table(entries:tfplist); override;
class procedure insert_init_final_table(main: tmodule; entries:tfplist); override;
end;
implementation
uses
verbose,cutils,globtype,globals,constexp,fmodule,
verbose,cutils,globtype,globals,constexp,
aasmdata,aasmtai,aasmcpu,aasmcnst,aasmbase,
cpubase,
symbase,symcpu,symtable,defutil,
@ -52,7 +53,7 @@ implementation
pass_1;
class procedure tavrnodeutils.insert_init_final_table(entries:tfplist);
class procedure tavrnodeutils.insert_init_final_table(main: tmodule; entries:tfplist);
var
op : TAsmOp;
initList, finalList, header: TAsmList;
@ -104,7 +105,7 @@ implementation
initList.Free;
finalList.Free;
inherited insert_init_final_table(entries);
inherited insert_init_final_table(main,entries);
end;
begin