paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 07:29:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix bug ID #35086: TParser should reset position (tentative)

Browse Source 
git-svn-id: trunk@41331 -
This commit is contained in:
michael 2019-02-16 08:39:40 +00:00
parent a750039f7c
commit 4143ecf6c0
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/objpas/classes/parser.inc
View File

@ -361,8 +361,16 @@ begin
end; end;
destructor TParser.Destroy; destructor TParser.Destroy;
Var
aCount : Integer;
begin begin
fStream.Position:=SourcePos; if fToken=toWString then
aCount:=Length(fLastTokenWStr)*2
else
aCount:=Length(fLastTokenStr);
fStream.Position:=SourcePos-aCount;
FreeMem(fBuf); FreeMem(fBuf);
end; end;