diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-10-31 06:57:10 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-10-31 06:58:31 +0100 |
| commit | 46af8fa0849ccfad4404786095d94161bf47c9bb (patch) | |
| tree | b70a357a2267d3445e0beea84cee337747ae621b /src/grt/grt-vpi.adb | |
| parent | 94b688c2323655338898bee15b99a0126c8af386 (diff) | |
| download | ghdl-46af8fa0849ccfad4404786095d94161bf47c9bb.tar.gz ghdl-46af8fa0849ccfad4404786095d94161bf47c9bb.tar.bz2 ghdl-46af8fa0849ccfad4404786095d94161bf47c9bb.zip | |
Fix VhpiNameP for VhpiForGenerateK: add generate label.
Fix #450
Diffstat (limited to 'src/grt/grt-vpi.adb')
| -rw-r--r-- | src/grt/grt-vpi.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/grt/grt-vpi.adb b/src/grt/grt-vpi.adb index a3db80a6e..f5c183128 100644 --- a/src/grt/grt-vpi.adb +++ b/src/grt/grt-vpi.adb @@ -645,15 +645,15 @@ package body Grt.Vpi is end if; case Property is - when vpiFullName=> + when vpiFullName => Prop := VhpiFullNameP; - when vpiName=> + when vpiName => Prop := VhpiNameP; when vpiType => Tmpstring2 (1 .. 4) := "???" & NUL; return To_Ghdl_C_String (Tmpstring2'Address); - when others=> - dbgPut_Line ("vpi_get_str: undefined property"); + when others => + dbgPut_Line ("vpi_get_str: unhandled property"); return null; end case; Vhpi_Get_Str (Prop, Ref.Ref, Tmpstring2, Len); |