瀏覽代碼

* while not official supported, bootstrapping with 3.0.4 fixed

git-svn-id: trunk@47901 -
florian 4 年之前
父節點
當前提交
b5725ac3ed
共有 1 個文件被更改,包括 2 次插入0 次删除
  1. 2 0
      rtl/i386/cpu.pp

+ 2 - 0
rtl/i386/cpu.pp

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