diff options
Diffstat (limited to 'sem_expr.adb')
| -rw-r--r-- | sem_expr.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/sem_expr.adb b/sem_expr.adb index f3e767f..a0ec9b7 100644 --- a/sem_expr.adb +++ b/sem_expr.adb @@ -2278,6 +2278,7 @@ package body Sem_Expr is Lb := Low; Hb := High; end if; + -- Checks all values between POS and POS_MAX are handled. Pos := Eval_Pos (Lb); Pos_Max := Eval_Pos (Hb); if Pos > Pos_Max then |