Переглянути джерело

* 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}
   qword = int64;
 {$endif}
+  { now part of the system unit
   uint64 = qword;
+  }
   bits64 = qword;
   sbits64 = int64;
 

+ 1 - 1
rtl/inc/systemh.inc

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