diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-12-05 06:07:01 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-12-05 06:07:01 +0100 |
| commit | 94fc2d91a57a3bbd89798c2c62cb0bd588fb21ed (patch) | |
| tree | c638d83aa7fecb01fc676e13ca6b309dcd43b7d3 /src/vhdl/translate/trans.adb | |
| parent | d2ab4a1f39f27c9379472dc491021f36c3b72b75 (diff) | |
| download | ghdl-94fc2d91a57a3bbd89798c2c62cb0bd588fb21ed.tar.gz ghdl-94fc2d91a57a3bbd89798c2c62cb0bd588fb21ed.tar.bz2 ghdl-94fc2d91a57a3bbd89798c2c62cb0bd588fb21ed.zip | |
Fix llvm crash on protected objects.
Diffstat (limited to 'src/vhdl/translate/trans.adb')
| -rw-r--r-- | src/vhdl/translate/trans.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/vhdl/translate/trans.adb b/src/vhdl/translate/trans.adb index a2f0a89a8..4c913006e 100644 --- a/src/vhdl/translate/trans.adb +++ b/src/vhdl/translate/trans.adb @@ -223,8 +223,8 @@ package body Trans is return Scope.Scope_Type /= O_Tnode_Null; end Has_Scope_Type; - procedure Predeclare_Scope_Type (Scope : Var_Scope_Acc; Name : O_Ident) - is + procedure Predeclare_Scope_Type + (Scope : in out Var_Scope_Type; Name : O_Ident) is begin pragma Assert (Scope.Scope_Type = O_Tnode_Null); New_Uncomplete_Record_Type (Scope.Scope_Type); |