paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 09:56:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: added range check, bug #11573

Browse Source 
git-svn-id: trunk@15607 -
This commit is contained in:
mattias 2008-06-28 20:43:32 +00:00
parent c8713eb786
commit c1b02e4ddd
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/codetools/pascalparsertool.pas
View File

@ -3815,7 +3815,8 @@ function TPascalParserTool.GetExtraction: string;
begin
SetLength(Result,ExtractMemStream.Position);
ExtractMemStream.Position:=0;
ExtractMemStream.Read(Result[1],length(Result));
if Result<>'' then
ExtractMemStream.Read(Result[1],length(Result));
end;
function TPascalParserTool.ExtractStreamEndIsIdentChar: boolean;