paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 22:39:36 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/i386/cpu.pp
View File

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