diff options
author | Tristan Gingold <tgingold@free.fr> | 2018-12-08 07:17:47 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2018-12-08 07:17:47 +0100 |
commit | 994cb1d7a6bc09e5adf3667b00e78aeca8f06f3a (patch) | |
tree | 8237b6afb296dc2c1b2bbbeb3b5f3ee5250aaeb9 /src/vhdl/sem_expr.adb | |
parent | 51178dc5ff0d4a4fde04051b3c6c6705219499a6 (diff) | |
download | ghdl-994cb1d7a6bc09e5adf3667b00e78aeca8f06f3a.tar.gz ghdl-994cb1d7a6bc09e5adf3667b00e78aeca8f06f3a.tar.bz2 ghdl-994cb1d7a6bc09e5adf3667b00e78aeca8f06f3a.zip |
update_record_constraint: minor refactoring.
Diffstat (limited to 'src/vhdl/sem_expr.adb')
-rw-r--r-- | src/vhdl/sem_expr.adb | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/vhdl/sem_expr.adb b/src/vhdl/sem_expr.adb index 7009411c6..60c2408d3 100644 --- a/src/vhdl/sem_expr.adb +++ b/src/vhdl/sem_expr.adb @@ -3190,8 +3190,7 @@ package body Sem_Expr is end if; Staticness := Min (Staticness, Get_Type_Staticness (Rec_El_Type)); - Constraint := Sem_Types.Update_Record_Constraint (Constraint, - Rec_El_Type); + Sem_Types.Update_Record_Constraint (Constraint, Rec_El_Type); end loop; Set_Type_Staticness (Rec_Type, Staticness); Set_Constraint_State (Rec_Type, Constraint); |