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

Merge commit 42281, to fix i8086 compiler

Browse Source 
------------------------------------------------------------------------
r42281 | pierre | 2019-06-25 04:24:56 +0000 (Tue, 25 Jun 2019) | 1 line

 Use tcgint typecast instead of aint, as it is the type of the second parameter of loadconst taicpu method
------------------------------------------------------------------------
--- Merging r42281 into '.':
U    compiler/x86/aoptx86.pas
--- Recording mergeinfo for merge of r42281 into '.':
 U   .

git-svn-id: branches/fixes_3_2@43388 -
This commit is contained in:
pierre 2019-11-04 09:29:16 +00:00
parent 1f20cfe991
commit 6b0a663b24
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/x86/aoptx86.pas
View File

@ -672,8 +672,8 @@ unit aoptx86;
case taicpu(p).opsize Of case taicpu(p).opsize Of
S_B: taicpu(hp1).loadConst(0,l Xor $ff); S_B: taicpu(hp1).loadConst(0,l Xor $ff);
S_W: taicpu(hp1).loadConst(0,l Xor $ffff); S_W: taicpu(hp1).loadConst(0,l Xor $ffff);
S_L: taicpu(hp1).loadConst(0,l Xor aint($ffffffff)); S_L: taicpu(hp1).loadConst(0,l Xor tcgint($ffffffff));
S_Q: taicpu(hp1).loadConst(0,l Xor aint($ffffffffffffffff)); S_Q: taicpu(hp1).loadConst(0,l Xor tcgint($ffffffffffffffff));
else else
Internalerror(2017050703) Internalerror(2017050703)
end; end;
@ -690,8 +690,8 @@ unit aoptx86;
case taicpu(p).opsize Of case taicpu(p).opsize Of
S_B: taicpu(p).loadConst(0,l Xor $ff); S_B: taicpu(p).loadConst(0,l Xor $ff);
S_W: taicpu(p).loadConst(0,l Xor $ffff); S_W: taicpu(p).loadConst(0,l Xor $ffff);
S_L: taicpu(p).loadConst(0,l Xor aint($ffffffff)); S_L: taicpu(p).loadConst(0,l Xor tcgint($ffffffff));
S_Q: taicpu(p).loadConst(0,l Xor aint($ffffffffffffffff)); S_Q: taicpu(p).loadConst(0,l Xor tcgint($ffffffffffffffff));
else else
Internalerror(2017050702) Internalerror(2017050702)
end; end;
@ -706,8 +706,8 @@ unit aoptx86;
case taicpu(p).opsize Of case taicpu(p).opsize Of
S_B: taicpu(p).loadConst(0,l Xor $ff); S_B: taicpu(p).loadConst(0,l Xor $ff);
S_W: taicpu(p).loadConst(0,l Xor $ffff); S_W: taicpu(p).loadConst(0,l Xor $ffff);
S_L: taicpu(p).loadConst(0,l Xor aint($ffffffff)); S_L: taicpu(p).loadConst(0,l Xor tcgint($ffffffff));
S_Q: taicpu(p).loadConst(0,l Xor aint($ffffffffffffffff)); S_Q: taicpu(p).loadConst(0,l Xor tcgint($ffffffffffffffff));
else else
Internalerror(2017050701) Internalerror(2017050701)
end; end;