paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-10 23:38:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix i386 building after fb3c4ff75b

Browse Source
This commit is contained in:
florian 2024-03-27 00:04:46 +01:00
parent 15398549a4
commit fea8050457
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/x86/nx86inl.pas
View File

@ -1749,6 +1749,7 @@ implementation
case paraarray[2].location.loc of
LOC_REFERENCE,LOC_CREFERENCE:
begin
{$ifdef x86_64}
{ x86_64 only supports signed 32 bits constants directly }
if (opsize=S_Q) and
((paraarray[1].location.value<low(longint)) or (paraarray[1].location.value>high(longint))) then
@ -1759,6 +1760,7 @@ implementation
tmpreg,paraarray[2].location.reference));
end
else
{$endif x86_64}
current_asmdata.CurrAsmList.concat(taicpu.op_const_ref(A_CMP,opsize,
paraarray[1].location.value,paraarray[2].location.reference));
@ -1766,6 +1768,7 @@ implementation
end;
LOC_REGISTER,LOC_CREGISTER:
begin
{$ifdef x86_64}
{ x86_64 only supports signed 32 bits constants directly }
if (opsize=S_Q) and
((paraarray[1].location.value<low(longint)) or (paraarray[1].location.value>high(longint))) then
@ -1776,6 +1779,7 @@ implementation
tmpreg,paraarray[2].location.register));
end
else
{$endif x86_64}
current_asmdata.CurrAsmList.concat(taicpu.op_const_reg(A_CMP,opsize,
paraarray[1].location.value,paraarray[2].location.register));