paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 21:39:11 +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

1
components/codetools/pascalparsertool.pas
View File

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