X-Git-Url: https://git.libre-soc.org/?a=blobdiff_plain;f=gcc%2Fada%2Fexp_ch4.adb;h=ddc4fc2e2619995a8155fa057e6fade09403517f;hb=b0b7b57de84b25254e1edb0cccc60ff3f5671f7c;hp=5174be4c7f035d1a98165e530416a3cea5b860c3;hpb=f104fca1e5925bf7bcd8323ed4f2d2127337a349;p=gcc.git diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb index 5174be4c7f0..ddc4fc2e261 100644 --- a/gcc/ada/exp_ch4.adb +++ b/gcc/ada/exp_ch4.adb @@ -6687,12 +6687,11 @@ package body Exp_Ch4 is if Is_VMS_Operator (Entity (N)) then declare LI : constant Entity_Id := RTE (RE_Unsigned_64); - begin Rewrite (N, Unchecked_Convert_To (Typ, (Make_Op_Not (Loc, - Right_Opnd => Unchecked_Convert_To (LI, Right_Opnd (N)))))); + Right_Opnd => Unchecked_Convert_To (LI, Right_Opnd (N)))))); Analyze_And_Resolve (N, Typ); return; end;