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-values.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-values.adb')
-rw-r--r-- | src/grt/grt-values.adb | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/grt/grt-values.adb b/src/grt/grt-values.adb index e64e7b943..df52eebe1 100644 --- a/src/grt/grt-values.adb +++ b/src/grt/grt-values.adb @@ -102,10 +102,10 @@ package body Grt.Values is return I; end if; end loop; - Error_C ("'value: '"); - Error_C_Std (S (Pos .. L - 1)); - Error_C ("' not in enumeration '"); - Error_C (Enum_Rti.Name); + Error_S ("'value: '"); + Diag_C_Std (S (Pos .. L - 1)); + Diag_C ("' not in enumeration '"); + Diag_C (Enum_Rti.Name); Error_E ("'"); end Value_Enum; @@ -612,10 +612,10 @@ package body Grt.Values is end if; end loop; if Multiple = null then - Error_C ("'value: unit '"); - Error_C_Std (S (Unit_Pos .. Len - 1)); - Error_C ("' not in physical type '"); - Error_C (Phys_Rti.Name); + Error_S ("'value: unit '"); + Diag_C_Std (S (Unit_Pos .. Len - 1)); + Diag_C ("' not in physical type '"); + Diag_C (Phys_Rti.Name); Error_E ("'"); end if; |