Bläddra i källkod

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

git-svn-id: trunk@43549 -
svenbarth 5 år sedan
förälder
incheckning
2a1d26cc90
1 ändrade filer med 6 tillägg och 1 borttagningar
  1. 6 1
      compiler/ogbase.pas

+ 6 - 1
compiler/ogbase.pas

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