diff options
Diffstat (limited to 'src/ghdldrv/ghdlxml.adb')
| -rw-r--r-- | src/ghdldrv/ghdlxml.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/ghdldrv/ghdlxml.adb b/src/ghdldrv/ghdlxml.adb index 3829dc0a8..46bffd9ea 100644 --- a/src/ghdldrv/ghdlxml.adb +++ b/src/ghdldrv/ghdlxml.adb @@ -394,9 +394,9 @@ package body Ghdlxml is when Type_Iir_Predefined_Functions => Put_Field (F, Image_Iir_Predefined_Functions (Get_Iir_Predefined_Functions (N, F))); - when Type_Iir_Direction => - Put_Field (F, Image_Iir_Direction - (Get_Iir_Direction (N, F))); + when Type_Direction_Type => + Put_Field (F, Image_Direction_Type + (Get_Direction_Type (N, F))); when Type_Iir_Int32 => Put_Field (F, Strip (Iir_Int32'Image (Get_Iir_Int32 (N, F)))); |