paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 11:50:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* typo fixed

Browse Source
This commit is contained in:
florian 2025-01-26 22:59:32 +01:00
parent 95c2a5a2d7
commit a6077103b2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/utils/tsutils.pp
View File

@ -377,7 +377,7 @@ function GetConfig(const logprefix,fn:string;out aConfig:TConfig):boolean;
begin
val(Copy(aValue,1,p-1),l,code);
if code<>0 then
Verbose(V_Error,LogPrefix+' File '+fn+' nvalid value in EXPECTMSGS list: '+Copy(aValue,1,p-1));
Verbose(V_Error,LogPrefix+' File '+fn+' Invalid value in EXPECTMSGS list: '+Copy(aValue,1,p-1));
Insert(l,aConfig.ExpectMsgs,Length(aConfig.ExpectMsgs));
Delete(aValue,1,p);
p:=Pos(',',aValue);