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

* Fix xtensa compilation

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-02-21 12:20:41 +01:00 committed by Michael Van Canneyt
parent 4e8b1cb97a
commit 91946b78d5
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/pmodules.pas
View File

@ -500,7 +500,7 @@ implementation
begin
if (idf_version>=40100) and (idf_version<40200) then
CheckAddUnit('espidf_40100')
else if (curr,idf_version>=40200) and (idf_version<40400) then
else if (idf_version>=40200) and (idf_version<40400) then
CheckAddUnit('espidf_40200')
else if idf_version>=40400 then
CheckAddUnit('espidf_40400')
@ -918,7 +918,7 @@ implementation
{ Insert _GLOBAL_OFFSET_TABLE_ symbol if system uses it }
procedure maybe_load_got;
procedure maybe_load_got(curr: tmodule);
{$if defined(i386) or defined (sparcgen)}
var
gotvarsym : tstaticvarsym;
@ -1215,7 +1215,7 @@ type
{ Insert _GLOBAL_OFFSET_TABLE_ symbol if system uses it }
maybe_load_got;
maybe_load_got(curr);
if not curr.interface_only then
begin
consume(_IMPLEMENTATION);
@ -2453,7 +2453,7 @@ type
{$endif}
{ Insert _GLOBAL_OFFSET_TABLE_ symbol if system uses it }
maybe_load_got;
maybe_load_got(curr);
{ create whole program optimisation information }
curr.wpoinfo:=tunitwpoinfo.create;

2
compiler/xtensa/ncpuutil.pas
View File

@ -41,7 +41,7 @@ interface
implementation
uses
verbose,cutils,globtype,globals,constexp,fmodule,
verbose,cutils,globtype,globals,constexp,
aasmdata,aasmtai,aasmcpu,aasmcnst,aasmbase,
cpubase,
symbase,symcpu,symtable,defutil,