1 files changed, 3 insertions, 1 deletions
diff --git a/src/synth/netlists-errors.ads b/src/synth/netlists-errors.ads
index d51504393..33765017d 100644
--- a/src/synth/netlists-errors.ads
+++ b/src/synth/netlists-errors.ads
@@ -19,11 +19,13 @@
 --  MA 02110-1301, USA.
 
 with Errorout; use Errorout;
+with Netlists.Locations;
 
 package Netlists.Errors is
    function "+" (N : Instance) return Earg_Type;
    function "+" (N : Net) return Earg_Type;
    function "+" (N : Sname) return Earg_Type;
-
+   function "+" (N : Instance) return Location_Type
+     renames Netlists.Locations.Get_Location;
    procedure Initialize;
 end Netlists.Errors;