diff options
author | Tristan Gingold <tgingold@free.fr> | 2018-09-16 07:46:55 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2018-09-16 07:46:55 +0200 |
commit | a03179ad2abff33d21fb5d18bcb13b2d8aa11c21 (patch) | |
tree | 794fae015232319a3188c54b188d50425f578604 /src/grt/grt-change_generics.adb | |
parent | bb151c2bd6f6ab39c70c92828c4591ddb6a594a4 (diff) | |
download | ghdl-a03179ad2abff33d21fb5d18bcb13b2d8aa11c21.tar.gz ghdl-a03179ad2abff33d21fb5d18bcb13b2d8aa11c21.tar.bz2 ghdl-a03179ad2abff33d21fb5d18bcb13b2d8aa11c21.zip |
grt: rework error API (WIP).
Diffstat (limited to 'src/grt/grt-change_generics.adb')
-rw-r--r-- | src/grt/grt-change_generics.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/grt/grt-change_generics.adb b/src/grt/grt-change_generics.adb index dc273c50f..f0fba3fa5 100644 --- a/src/grt/grt-change_generics.adb +++ b/src/grt/grt-change_generics.adb @@ -37,9 +37,9 @@ with Grt.Values; package body Grt.Change_Generics is procedure Error_Override (Msg : String; Over : Generic_Override_Acc) is begin - Error_C (Msg); - Error_C (" '"); - Error_C (Over.Name.all); + Error_S (Msg); + Diag_C (" '"); + Diag_C (Over.Name.all); Error_E ("'"); end Error_Override; @@ -364,8 +364,8 @@ package body Grt.Change_Generics is Uc_Array := To_Ghdl_Uc_Array_Acc (Loc_To_Addr (Obj_Rti.Common.Depth, Obj_Rti.Loc, Ctxt)); if Uc_Array.Base = Null_Address then - Error_C ("top-level generic '"); - Error_C (Obj_Rti.Name); + Error_S ("top-level generic '"); + Diag_C (Obj_Rti.Name); Error_E ("' must be overriden (use -gGEN=VAL)"); end if; end; |