* leave GetFileContents() early if the file size is 0 to avoid a range error if the RTL is compiled with range checks

rtl/objpas/sysutils/filutil.inc

@@ -866,6 +866,8 @@ begin
   if FileSeek(aHandle,0,fsFromBeginning)<0 then
     Raise EInOutError.Create(SSeekFailed);
   SetLength(Result,aLen);
+  if aLen=0 then
+    Exit;
   aOffset:=0;
   Repeat
     aBuf:=@Result[aOffset];