diff options
| author | Tristan Gingold <tgingold@free.fr> | 2015-10-30 07:11:28 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2015-10-30 07:11:28 +0100 |
| commit | ce10f7dbd57cb5d2273567aa536bfce79620849c (patch) | |
| tree | 62fdd99a17aa09a04166e014444aeb8b732dce81 /src/grt/grt-rtis_addr.adb | |
| parent | ab70415983fec433dd35aea6cc8b107699a5aff0 (diff) | |
| download | ghdl-ce10f7dbd57cb5d2273567aa536bfce79620849c.tar.gz ghdl-ce10f7dbd57cb5d2273567aa536bfce79620849c.tar.bz2 ghdl-ce10f7dbd57cb5d2273567aa536bfce79620849c.zip | |
Rework callbacks, support cocotb.
Diffstat (limited to 'src/grt/grt-rtis_addr.adb')
| -rw-r--r-- | src/grt/grt-rtis_addr.adb | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/grt/grt-rtis_addr.adb b/src/grt/grt-rtis_addr.adb index 444f1f033..48ab477c7 100644 --- a/src/grt/grt-rtis_addr.adb +++ b/src/grt/grt-rtis_addr.adb @@ -308,15 +308,13 @@ package body Grt.Rtis_Addr is end case; end Get_Base_Type; - function Rti_Complex_Type (Atype : Ghdl_Rti_Access) return Boolean - is + function Rti_Complex_Type (Atype : Ghdl_Rti_Access) return Boolean is begin return (Atype.Mode and Ghdl_Rti_Type_Complex_Mask) = Ghdl_Rti_Type_Complex; end Rti_Complex_Type; - function Rti_Anonymous_Type (Atype : Ghdl_Rti_Access) return Boolean - is + function Rti_Anonymous_Type (Atype : Ghdl_Rti_Access) return Boolean is begin return (Atype.Mode and Ghdl_Rti_Type_Anonymous_Mask) = Ghdl_Rti_Type_Anonymous; |