|
@@ -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;
|
|
|
|