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

* patch by Christo Crause: fix register search on xtensa, resolves #37121

Browse Source 
git-svn-id: trunk@45467 -
This commit is contained in:
florian 2020-05-22 20:54:45 +00:00
parent bc1b1e5d1f
commit e76f9e5b36
2 changed files with 1 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/xtensa/cpubase.pas
View File

@ -87,9 +87,6 @@ unit cpubase;
{ firs flag imaginary register }
first_flag_imreg = $10;
{ TODO: Calculate bsstart}
regnumber_count_bsstart = 16;
regnumber_table : array[tregisterindex] of tregister = (
{$i rxtensanum.inc}
);

21
compiler/xtensa/itcpugas.pas
View File

@ -54,28 +54,9 @@ implementation
{$i rxtensasri.inc}
);
function findreg_by_gasname(const s:string):tregisterindex;
var
i,p : tregisterindex;
begin
{Binary search.}
p:=0;
i:=regnumber_count_bsstart;
repeat
if (p+i<=high(tregisterindex)) and (gas_regname_table[gas_regname_index[p+i]]<=s) then
p:=p+i;
i:=i shr 1;
until i=0;
if gas_regname_table[gas_regname_index[p]]=s then
findreg_by_gasname:=gas_regname_index[p]
else
findreg_by_gasname:=0;
end;
function gas_regnum_search(const s:string):Tregister;
begin
result:=regnumber_table[findreg_by_gasname(s)];
result:=regnumber_table[findreg_by_name_table(s, gas_regname_table, gas_regname_index)];
end;