* use pointer arithmetic for doing address calculations, with a newly introduced

  pointer type TTinyHeapPointerArithmeticType, instead of using ptruint. This
  will allow us to use a huge pointer in i8086 far data memory models, in order
  to allow the heap to exceed 64k.

git-svn-id: trunk@28247 -

rtl/inc/tinyheap.inc

@@ -24,6 +24,8 @@
         part of the TTinyHeapBlock structure }
       TTinyHeapFreeBlockSize = PtrUInt;
 
+      TTinyHeapPointerArithmeticType = ^Byte;
+
     const
       TinyHeapMinBlock = 4*sizeof(pointer);
 
@@ -83,7 +85,7 @@
             PTinyHeapMemBlockSize(p)^ := size;
 
             if RestSize > 0 then
-              InternalTinyFreeMem(pointer(ptruint(p)+AllocSize), RestSize);
+              InternalTinyFreeMem(pointer(TTinyHeapPointerArithmeticType(p)+AllocSize), RestSize);
           end
         else
           if ReturnNilIfGrowHeapFails then
@@ -106,7 +108,7 @@
           begin
             mem := GetMem(Size+Alignment-1);
             memp := align(ptruint(mem), Alignment);
-            InternalTinyFreeMem(mem, ptruint(memp)-ptruint(mem));
+            InternalTinyFreeMem(mem, TTinyHeapPointerArithmeticType(memp)-TTinyHeapPointerArithmeticType(mem));
             result := pointer(memp);
           end;
       end;
@@ -122,7 +124,7 @@
 
           b^.Next := TinyHeapBlocks;
           b^.Size := Size;
-          b^.EndAddr := pointer(ptruint(addr)+size);
+          b^.EndAddr := pointer(TTinyHeapPointerArithmeticType(addr)+size);
 
           if TinyHeapBlocks = nil then
             TinyHeapBlocks := b