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

* do not execute xend twice which was introduced in r48430

Browse Source 
git-svn-id: trunk@48456 -
This commit is contained in:
florian 2021-01-30 18:46:58 +00:00
parent a90315c3a0
commit de62cb8b02
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/i386/cpu.pp
View File

@ -70,7 +70,7 @@ unit cpu;
function InterlockedCompareExchange128(var Target: Int128Rec; NewValue: Int128Rec; Comperand: Int128Rec): Int128Rec;
begin
{$if FPC_FULLVERSION >= 30101}
{$ifndef FPC_PIC}
{$ifndef FPC_PIC}
if _RTMSupport then
begin
asm
@ -92,11 +92,10 @@ unit cpu;
{ 8a: 0f 01 d5 xend }
.byte 0x0f, 0x01, 0xd5
{$endif}
xend
end;
end
else
{$endif FPC_PIC}
{$endif FPC_PIC}
{$endif FPC_FULLVERSION >= 30101}
RunError(217);
end;