diff options
| -rw-r--r-- | translate/translation.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/translate/translation.adb b/translate/translation.adb index e639809b7..b2b21f3cc 100644 --- a/translate/translation.adb +++ b/translate/translation.adb @@ -1396,7 +1396,7 @@ package body Translation is Object_Rti : O_Dnode := O_Dnode_Null; -- Function to compute the value of object (used for implicit -- guard signal declaration). - Object_Function : O_Dnode; + Object_Function : O_Dnode := O_Dnode_Null; when Kind_Alias => Alias_Var : Var_Type; |