From 64419cbd518875fcab0c46d33d09eaffef33649b Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Wed, 2 Sep 2020 22:10:36 +0000
Subject: [PATCH] * Fix from henrique Werlang to fix bug ID 37672, reading too
 big resource stream

---
 packages/rtl/classes.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/packages/rtl/classes.pas b/packages/rtl/classes.pas
index cd08d1d..0433ab8 100644
--- a/packages/rtl/classes.pas
+++ b/packages/rtl/classes.pas
@@ -9858,6 +9858,7 @@ begin
   FPos := 0;
   FBufLen := CharsRead;
   FEofReached:=CharsRead = 0;
+  FBuf[CharsRead] := #0;
 end;
 
 procedure TParser.CheckLoadBuffer; {$ifdef CLASSESINLINE} inline; {$endif CLASSESINLINE}
@@ -10122,7 +10123,7 @@ end;
 constructor TParser.Create(Stream: TStream);
 begin
   fStream:=Stream;
-  SetLength(fBuf,ParseBufSize);
+  SetLength(fBuf,Succ(ParseBufSize));
   fBufLen:=0;
   fPos:=0;
   fDeltaPos:=1;