2
0
Эх сурвалжийг харах

* add filename before eparsererror and reraise closes 0040958

marcoonthegit 1 жил өмнө
parent
commit
4300e2cfcc

+ 9 - 1
utils/fpcres/sourcehandler.pas

@@ -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