diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-03-19 14:05:50 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-03-20 09:13:29 +0100 |
| commit | 4f650ed4dae4d764de1b294daf947d47d39c98e2 (patch) | |
| tree | 0365d5ef15cb6045ea879d8d638217871e0171f1 /src/vhdl/sem_psl.adb | |
| parent | 377762204612fdec51e361e5f3f3a75c67a36552 (diff) | |
| download | ghdl-4f650ed4dae4d764de1b294daf947d47d39c98e2.tar.gz ghdl-4f650ed4dae4d764de1b294daf947d47d39c98e2.tar.bz2 ghdl-4f650ed4dae4d764de1b294daf947d47d39c98e2.zip | |
wip.
Diffstat (limited to 'src/vhdl/sem_psl.adb')
| -rw-r--r-- | src/vhdl/sem_psl.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/vhdl/sem_psl.adb b/src/vhdl/sem_psl.adb index 98e258359..280b0d90b 100644 --- a/src/vhdl/sem_psl.adb +++ b/src/vhdl/sem_psl.adb @@ -164,7 +164,9 @@ package body Sem_Psl is when N_Sequence_Declaration => Res := Create_Node (N_Sequence_Instance); when N_Endpoint_Declaration => - Res := Create_Node (N_Endpoint_Instance); + -- Endpoints are considered as boolean variables. + Free_Node (N); + return Convert_Bool (Name); when N_Property_Declaration => Res := Create_Node (N_Property_Instance); when N_Boolean_Parameter |