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

Introduce USE_REAL_INSTRUCTIONS to handle expressions not accepted by old assemblers

Browse Source 
git-svn-id: trunk@48430 -
This commit is contained in:
pierre 2021-01-26 14:50:58 +00:00
parent bbbdbb9efa
commit 5dbd9eb2e0
1 changed files with 20 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
rtl/i386/cpu.pp
View File

@ -74,13 +74,24 @@ unit cpu;
if _RTMSupport then
begin
asm
.Lretry:
{$ifdef USE_REAL_INSTRUCTIONS}
.Lretry:
xbegin .Lretry
{$else}
{ 3d: c7 f8 fa ff ff ff xbegin }
.byte 0xc7,0xf8, 0xfa, 0xff, 0xff, 0xff
{$endif}
end;
Result:=Target;
if (Result.Lo=Comperand.Lo) and (Result.Hi=Comperand.Hi) then
Target:=NewValue;
asm
{$ifdef USE_REAL_INSTRUCTIONS}
xend
{$else}
{ 8a: 0f 01 d5 xend }
.byte 0x0f, 0x01, 0xd5
{$endif}
xend
end;
end
@ -119,7 +130,11 @@ unit cpu;
function cr0 : longint;assembler;
asm
{$ifdef USE_REAL_INSTRUCTIONS}
mov eax,cr0
{$else}
DB 0Fh,20h,0C0h
{$endif}
{ mov eax,cr0
special registers are not allowed in the assembler
parsers }
@ -138,8 +153,12 @@ unit cpu;
function XGETBV(i : dword) : int64;assembler;
asm
movl %eax,%ecx
{$ifdef USE_REAL_INSTRUCTIONS}
xgetbv
{$else}
// older FPCs don't know the xgetbv opcode
.byte 0x0f,0x01,0xd0
{$endif}
end;