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

* compilation with i386 fixed

Browse Source
This commit is contained in:
florian 2021-12-21 22:45:32 +01:00
parent ebd7bb7cb9
commit 6147d6d8a0
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/x86/aoptx86.pas
View File

@ -8285,6 +8285,17 @@ unit aoptx86;
(taicpu(hp1).oper[0]^.val <> 0) then (taicpu(hp1).oper[0]^.val <> 0) then
begin begin
WorkingValue := taicpu(hp1).oper[0]^.val; WorkingValue := taicpu(hp1).oper[0]^.val;
case MinSize of
S_B:
if (WorkingValue and $ff)<>WorkingValue then
break;
S_W:
if (WorkingValue and $ffff)<>WorkingValue then
break;
else
;
end;
TestValMin := TestValMin - WorkingValue; TestValMin := TestValMin - WorkingValue;
TestValMax := TestValMax - WorkingValue; TestValMax := TestValMax - WorkingValue;