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

* use translateable error messages for undefined symbols and also report in which object file the symbol was first found

Browse Source 
git-svn-id: trunk@43549 -
This commit is contained in:
svenbarth 2019-11-21 21:45:11 +00:00
parent 1e66b2464a
commit 2a1d26cc90
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ogbase.pas
View File

@ -3065,7 +3065,12 @@ implementation
begin
exesym:=TExeSymbol(UnresolvedExeSymbols[i]);
if (exesym.State=symstate_undefined) then
Comment(V_Error,'Undefined symbol: '+exesym.name);
begin
if assigned(exesym.ObjSymbol) and assigned(exesym.ObjSymbol.ObjData) then
Message2(link_e_undefined_symbol_in_obj,exesym.name,exesym.objsymbol.ObjData.Name)
else
Message1(link_e_undefined_symbol,exesym.name);
end;
end;
{