paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 14:27:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix syntax error

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-11-03 09:48:46 +01:00
parent e3d3fe654c
commit 9fe4e1247f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fpmkunit/src/fpmkunit.pp
View File

@ -2429,7 +2429,7 @@ var
begin
quoted:=false;
// If first and last are quotes, we assume it is already quoted.
if Length(S)>1 and (S[1]='"') and (S[Length(S)]='"') then
if (Length(S)>1) and (S[1]='"') and (S[Length(S)]='"') then
Exit(S);
s1:='"';
for i:=1 to length(s) do