diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2019-12-24 09:36:03 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-06-02 04:58:20 -0400 |
| commit | fa54f4da74b48a088fb1cef7b7f593d02319d019 (patch) | |
| tree | 46e552494ee55a6bcc714a1aab1df6d8d97d65c9 /gcc/ada/sinfo.adb | |
| parent | 6a987d785122fb015aac527e927818bdc9975a7b (diff) | |
| download | gcc-fa54f4da74b48a088fb1cef7b7f593d02319d019.zip gcc-fa54f4da74b48a088fb1cef7b7f593d02319d019.tar.gz gcc-fa54f4da74b48a088fb1cef7b7f593d02319d019.tar.bz2 | |
[Ada] Remove degenerate Treat_Fixed_As_Integer mechanism
2020-06-02 Eric Botcazou <ebotcazou@adacore.com>
gcc/ada/
* exp_ch4.adb (Expand_N_Op_Divide): Remove code dealing with
the Treat_Fixed_As_Integer flag.
(Expand_N_Op_Multiply): Likewise.
* exp_fixd.adb (Build_Divide): Do the division in an integer
type long enough to hold both operands and convert the result
to the type of the LHS. Do not set Treat_Fixed_As_Integer.
(Build_Multiply): Do not set Treat_Fixed_As_Integer.
(Build_Rem): Likewise.
* sem_ch4.adb (Analyze_Arithmetic_Op): Remove code dealing with
the Treat_Fixed_As_Integer flag.
(Check_Arithmetic_Pair): Likewise.
* sinfo.ads (Treat_Fixed_As_Integer): Delete.
(N_Has_Treat_Fixed_As_Integer): Likewise.
(Set_Treat_Fixed_As_Integer): Likewise.
* sinfo.adb (Treat_Fixed_As_Integer): Likewise.
(Set_Treat_Fixed_As_Integer): Likewise.
* sprint.ads (Syntax Extensions): Remove '#' special character.
* sprint.adb (Process_TFAI_RR_Flags): Delete.
(Sprint_Node_Actual) <N_Op_Divide>: Print '@' manually.
<N_Op_Multiply>: Likewise.
<N_Op_Mod>: Do not print '#'.
<N_Op_Rem>: Likewise.
Diffstat (limited to 'gcc/ada/sinfo.adb')
| -rw-r--r-- | gcc/ada/sinfo.adb | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/gcc/ada/sinfo.adb b/gcc/ada/sinfo.adb index 41cb8c8..2df0c90 100644 --- a/gcc/ada/sinfo.adb +++ b/gcc/ada/sinfo.adb @@ -3411,17 +3411,6 @@ package body Sinfo is return List2 (N); end Then_Statements; - function Treat_Fixed_As_Integer - (N : Node_Id) return Boolean is - begin - pragma Assert (False - or else NT (N).Nkind = N_Op_Divide - or else NT (N).Nkind = N_Op_Mod - or else NT (N).Nkind = N_Op_Multiply - or else NT (N).Nkind = N_Op_Rem); - return Flag14 (N); - end Treat_Fixed_As_Integer; - function Triggering_Alternative (N : Node_Id) return Node_Id is begin @@ -6916,17 +6905,6 @@ package body Sinfo is Set_List2_With_Parent (N, Val); end Set_Then_Statements; - procedure Set_Treat_Fixed_As_Integer - (N : Node_Id; Val : Boolean := True) is - begin - pragma Assert (False - or else NT (N).Nkind = N_Op_Divide - or else NT (N).Nkind = N_Op_Mod - or else NT (N).Nkind = N_Op_Multiply - or else NT (N).Nkind = N_Op_Rem); - Set_Flag14 (N, Val); - end Set_Treat_Fixed_As_Integer; - procedure Set_Triggering_Alternative (N : Node_Id; Val : Node_Id) is begin |