diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-05-10 06:58:57 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-05-10 18:14:47 +0200 |
| commit | db7d0b337e85c3b327efa799418ef92de3a369ce (patch) | |
| tree | b1aec6a72ccf989da9617cbc0f581b12eb80b8c8 /src/ghdldrv/ghdlxml.adb | |
| parent | 2c5ce4b3aab14d67e97623e8dfe31cf27a043e7c (diff) | |
| download | ghdl-db7d0b337e85c3b327efa799418ef92de3a369ce.tar.gz ghdl-db7d0b337e85c3b327efa799418ef92de3a369ce.tar.bz2 ghdl-db7d0b337e85c3b327efa799418ef92de3a369ce.zip | |
vhdl: replace Iir_Int64 by Int64, and Iir_Fp64 by Fp64.
Diffstat (limited to 'src/ghdldrv/ghdlxml.adb')
| -rw-r--r-- | src/ghdldrv/ghdlxml.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/ghdldrv/ghdlxml.adb b/src/ghdldrv/ghdlxml.adb index 115f86d57..c55e0c30e 100644 --- a/src/ghdldrv/ghdlxml.adb +++ b/src/ghdldrv/ghdlxml.adb @@ -362,8 +362,8 @@ package body Ghdlxml is Put_Field (F, Image_Iir_Mode (Get_Iir_Mode (N, F))); when Type_Iir_Index32 => Put_Field (F, Iir_Index32'Image (Get_Iir_Index32 (N, F))); - when Type_Iir_Int64 => - Put_Field (F, Iir_Int64'Image (Get_Iir_Int64 (N, F))); + when Type_Int64 => + Put_Field (F, Int64'Image (Get_Int64 (N, F))); when Type_Boolean => Put_Field (F, Image_Boolean (Get_Boolean (N, F))); when Type_Iir_Staticness => @@ -398,8 +398,8 @@ package body Ghdlxml is (F, Strip (Iir_Int32'Image (Get_Iir_Int32 (N, F)))); when Type_Int32 => Put_Field (F, Strip (Int32'Image (Get_Int32 (N, F)))); - when Type_Iir_Fp64 => - Put_Field (F, Iir_Fp64'Image (Get_Iir_Fp64 (N, F))); + when Type_Fp64 => + Put_Field (F, Fp64'Image (Get_Fp64 (N, F))); when Type_Time_Stamp_Id => Put_Field (F, Image_Time_Stamp_Id (Get_Time_Stamp_Id (N, F))); |