[Ada] Preserve and reuse original type in Narrow_Large_Operation
commit4b3cf8416424a86c312e52c47429d869c45875ce
authorEric Botcazou <ebotcazou@adacore.com>
Thu, 14 Apr 2022 11:08:38 +0000 (14 13:08 +0200)
committerPierre-Marie de Rodat <derodat@adacore.com>
Thu, 19 May 2022 14:05:31 +0000 (19 14:05 +0000)
tree1a9dfce98658c856cf68587d05f591980fc401ea
parent8a03acaace9544249583e630153e73d53ccfaec7
[Ada] Preserve and reuse original type in Narrow_Large_Operation

Instead of using that of Original_Node (N) after rewriting, which does not
work if N had previously been rewritten.

gcc/ada/

* exp_ch4.adb (Narrow_Large_Operation): Preserve and reuse Etype.
gcc/ada/exp_ch4.adb