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

* while not official supported, bootstrapping with 3.0.4 fixed

Browse Source 
git-svn-id: trunk@47901 -
This commit is contained in:
florian 2020-12-30 09:34:22 +00:00
parent 6dafbfb7ca
commit b5725ac3ed
1 changed files with 2 additions and 0 deletions

2
rtl/i386/cpu.pp
View File

@ -69,6 +69,7 @@ unit cpu;
function InterlockedCompareExchange128(var Target: Int128Rec; NewValue: Int128Rec; Comperand: Int128Rec): Int128Rec;
begin
{$if FPC_FULLVERSION >= 30101}
{$ifndef FPC_PIC}
if _RTMSupport then
begin
@ -85,6 +86,7 @@ unit cpu;
end
else
{$endif FPC_PIC}
{$endif FPC_FULLVERSION >= 30101}
RunError(217);
end;