paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 23:49:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

Jedi code format: Fix issue #40980, exception on unterminated string.

Browse Source
This commit is contained in:
DomingoGP 2024-06-01 14:21:10 +02:00
parent 92306de965
commit 7fe3cecf9a
2 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/jcf2/Parse/BuildTokenList.pas
View File

@ -513,7 +513,7 @@ begin
{ read until the close ''' }
repeat
if Current = #0 then
Raise Exception.Create(Format(lisMsgUnterminatedString,[pcToken.SourceCode]));
raise TEParseError.Create(Format(lisMsgUnterminatedString,[pcToken.SourceCode]),pcToken);
if (Current = NativeSingleQuote) then
begin
@ -556,7 +556,7 @@ begin
if Current = #0 then
break;
if CharIsReturn(Current) then
Raise Exception.Create(Format(lisMsgUnterminatedString,[pcToken.SourceCode]));
raise TEParseError.Create(Format(lisMsgUnterminatedString,[pcToken.SourceCode]),pcToken);
{ two quotes in a row are still part of the string }
if (Current = pcDelimiter) then

11
components/jcf2/ReadWrite/Converter.pas
View File

@ -164,7 +164,16 @@ begin
fcTokeniser.SourceCode := InputCode;
fcTokeniser.FileName := FileName;
lcTokenList := TSourceTokenList.Create;
fcTokeniser.BuildTokenList(lcTokenList);
try
fcTokeniser.BuildTokenList(lcTokenList);
except
on E: Exception do
begin
fbConvertError := True;
SendStatusMessage('', Format(lisMsgExpectionClassMsg, ['', E.Message]), mtException, -1, -1);
Exit;
end;
end;
try { finally free the list }
try { show exceptions }
fiTokenCount := lcTokenList.Count;