@@ -19599,15 +19599,6 @@ package body Sem_Prag is
end if;
- -- Manually substitute the expression value of the pragma argument
- -- if it's not an integer literal because this is not taken care
- -- of automatically elsewhere.
-
- if Nkind (Arg) /= N_Integer_Literal then
- Rewrite (Arg, Make_Integer_Literal (Sloc (Arg), Val));
- Set_Etype (Arg, Etype (Original_Node (Arg)));
- end if;
-
Record_Rep_Item (Entry_Id, N);
end Max_Entry_Queue_Length;
@@ -9763,7 +9763,8 @@ package body Sem_Util is
return Uint_0;
end if;
- Max := Intval (Expression (First (Pragma_Argument_Associations (Prag))));
+ Max := Expr_Value
+ (Expression (First (Pragma_Argument_Associations (Prag))));
-- Since -1 and 0 are equivalent, return 0 for instances of -1 for
-- uniformity.