* generate a run time error 203 in the tiny heap in case there's not enough

  memory for a memory allocation and ReturnNilIfGrowHeapFails is false

git-svn-id: trunk@25727 -

rtl/inc/tinyheap.inc

@@ -75,7 +75,10 @@
               InternalTinyFreeMem(pointer(ptruint(p)+AllocSize), RestSize);
           end
         else
-          Result := nil;
+          if ReturnNilIfGrowHeapFails then
+            Result := nil
+          else
+            HandleError(203);
 {$ifdef DEBUG_TINY_HEAP}
         Writeln(ptruint(Result));
 {$endif DEBUG_TINY_HEAP}