瀏覽代碼

* fixed arm compilation

git-svn-id: trunk@7499 -
florian 18 年之前
父節點
當前提交
041ff166cc
共有 2 個文件被更改,包括 3 次插入1 次删除
  1. 2 0
      rtl/inc/softfpu.pp
  2. 1 1
      rtl/inc/systemh.inc

+ 2 - 0
rtl/inc/softfpu.pp

@@ -119,7 +119,9 @@ TYPE
 {$ifndef fpc}
 {$ifndef fpc}
   qword = int64;
   qword = int64;
 {$endif}
 {$endif}
+  { now part of the system unit
   uint64 = qword;
   uint64 = qword;
+  }
   bits64 = qword;
   bits64 = qword;
   sbits64 = int64;
   sbits64 = int64;
 
 

+ 1 - 1
rtl/inc/systemh.inc

@@ -86,7 +86,7 @@ Type
   DWord    = LongWord;
   DWord    = LongWord;
   Cardinal = LongWord;
   Cardinal = LongWord;
   Integer  = SmallInt;
   Integer  = SmallInt;
-	UInt64   = QWord;
+  UInt64   = QWord;
 
 
   { moved here from psystem.pas
   { moved here from psystem.pas
     Delphi allows chose of overloaded procedure depending
     Delphi allows chose of overloaded procedure depending