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

* add filename before eparsererror and reraise closes 0040958

Browse Source
This commit is contained in:
marcoonthegit 2024-06-23 13:30:05 +02:00
parent 9ea7aa74b5
commit 4300e2cfcc
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
utils/fpcres/sourcehandler.pas
View File

@ -114,7 +114,15 @@ begin
TRCResourceReader(aReader).RCDefines.Assign(fRCDefines);
SetCurrentDir(ExtractFilePath(ExpandFileName(fFileList[i])));
end;
tmpres.LoadFromStream(aStream,aReader);
try
tmpres.LoadFromStream(aStream,aReader);
except
on e :EParserError do
begin
e.message:=fFileList[i]+': '+e.message;
raise;
end;
end;
aResources.MoveFrom(tmpres);
Messages.DoVerbose('Resource information read');
finally