Browse Source

* fixed variants unit to make it compile for 64 bit targets

git-svn-id: trunk@1451 -
tom_at_work 20 years ago
parent
commit
4176b71277
1 changed files with 4 additions and 4 deletions
  1. 4 4
      rtl/inc/systemh.inc

+ 4 - 4
rtl/inc/systemh.inc

@@ -37,10 +37,10 @@
   {$maxfpuregisters 0}
 {$endif CPUI386}
 
-{ the assembler helpers need this }
-{$ifdef POWERPC}
+{ the assembler helpers need this}
+{$ifdef CPUPOWERPC}
   {$goto+}
-{$endif POWERPC}
+{$endif CPUPOWERPC}
 
 
 { needed for insert,delete,readln }
@@ -287,7 +287,7 @@ type
   PointerArray = array [0..512*1024*1024 - 2] of Pointer;
   PPointerArray = ^PointerArray;
 
-  TBoundArray = array of Integer;
+  TBoundArray = array of SizeInt;
 
   TPCharArray = packed array[0..(MaxLongint div SizeOf(PChar))-1] of PChar;
   PPCharArray = ^TPCharArray;