diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-06-12 05:37:49 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-06-12 05:37:49 +0200 |
| commit | d986b9af22f4e927e887f1bd6f9ff5174dde4aca (patch) | |
| tree | 87d270fb31ef48030983f0e89b66ea4705c8a5a4 /src/vhdl/translate/trans.adb | |
| parent | 5ba7861a7d065b1feb90de890ce34e837cb12fdf (diff) | |
| download | ghdl-d986b9af22f4e927e887f1bd6f9ff5174dde4aca.tar.gz ghdl-d986b9af22f4e927e887f1bd6f9ff5174dde4aca.tar.bz2 ghdl-d986b9af22f4e927e887f1bd6f9ff5174dde4aca.zip | |
Fix crash of implicit conversion in instantiation.
Fix #301
Diffstat (limited to 'src/vhdl/translate/trans.adb')
| -rw-r--r-- | src/vhdl/translate/trans.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/vhdl/translate/trans.adb b/src/vhdl/translate/trans.adb index 1f9d177a4..6c8bc048e 100644 --- a/src/vhdl/translate/trans.adb +++ b/src/vhdl/translate/trans.adb @@ -432,6 +432,11 @@ package body Trans is Scope := (Scope_Type => Scope.Scope_Type, Kind => Var_Scope_None); end Clear_Scope; + function Is_Null (Scope : Var_Scope_Type) return Boolean is + begin + return Scope.Kind = Var_Scope_None; + end Is_Null; + function Create_Global_Var (Name : O_Ident; Vtype : O_Tnode; Storage : O_Storage) return Var_Type |