diff options
Diffstat (limited to 'src/synth/synth-expr.adb')
| -rw-r--r-- | src/synth/synth-expr.adb | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/synth/synth-expr.adb b/src/synth/synth-expr.adb index f3722595f..43109aa84 100644 --- a/src/synth/synth-expr.adb +++ b/src/synth/synth-expr.adb @@ -855,7 +855,8 @@ package body Synth.Expr is when Type_Access => return Val; when Type_File => - raise Internal_Error; + pragma Assert (Vtype = Dtype); + return Val; end case; end Synth_Subtype_Conversion; @@ -873,7 +874,8 @@ package body Synth.Expr is | Iir_Kind_Interface_Constant_Declaration | Iir_Kind_Constant_Declaration | Iir_Kind_Iterator_Declaration - | Iir_Kind_Object_Alias_Declaration => + | Iir_Kind_Object_Alias_Declaration + | Iir_Kind_File_Declaration => return Get_Value (Syn_Inst, Name); when Iir_Kind_Enumeration_Literal => return Create_Value_Discrete |