paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-20 10:09:17 +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 begin
if (idf_version>=40100) and (idf_version<40200) then if (idf_version>=40100) and (idf_version<40200) then
CheckAddUnit('espidf_40100') 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') CheckAddUnit('espidf_40200')
else if idf_version>=40400 then else if idf_version>=40400 then
CheckAddUnit('espidf_40400') CheckAddUnit('espidf_40400')
@ -918,7 +918,7 @@ implementation
{ Insert _GLOBAL_OFFSET_TABLE_ symbol if system uses it } { 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)} {$if defined(i386) or defined (sparcgen)}
var var
gotvarsym : tstaticvarsym; gotvarsym : tstaticvarsym;
@ -1215,7 +1215,7 @@ type
{ Insert _GLOBAL_OFFSET_TABLE_ symbol if system uses it } { Insert _GLOBAL_OFFSET_TABLE_ symbol if system uses it }
maybe_load_got; maybe_load_got(curr);
if not curr.interface_only then if not curr.interface_only then
begin begin
consume(_IMPLEMENTATION); consume(_IMPLEMENTATION);
@ -2453,7 +2453,7 @@ type
{$endif} {$endif}
{ Insert _GLOBAL_OFFSET_TABLE_ symbol if system uses it } { Insert _GLOBAL_OFFSET_TABLE_ symbol if system uses it }
maybe_load_got; maybe_load_got(curr);
{ create whole program optimisation information } { create whole program optimisation information }
curr.wpoinfo:=tunitwpoinfo.create; curr.wpoinfo:=tunitwpoinfo.create;

2
compiler/xtensa/ncpuutil.pas
View File

@ -41,7 +41,7 @@ interface
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,