diff options
author | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-10-19 12:54:58 +0200 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-10-19 12:54:58 +0200 |
commit | 437f8c1ebec7789abe617b29a710f08327e8003b (patch) | |
tree | f03d632e82e86c7949808d54ba85b59adc07b8d1 /gcc/ada/exp_ch4.adb | |
parent | e606088aa9a3e732484cf7b701dc1e59e3bd9f69 (diff) | |
download | gcc-437f8c1ebec7789abe617b29a710f08327e8003b.zip gcc-437f8c1ebec7789abe617b29a710f08327e8003b.tar.gz gcc-437f8c1ebec7789abe617b29a710f08327e8003b.tar.bz2 |
[multiple changes]
2010-10-19 Robert Dewar <dewar@adacore.com>
* sem_eval.adb: Minor reformatting.
2010-10-19 Tristan Gingold <gingold@adacore.com>
* exp_ch4.adb (Expand_N_And_Op, Expand_N_Or_Op, Expand_N_Xor_Op): Call
Expand_Intrinsic_Call if the function is intrinsic.
* exp_intr_adb (Expand_Binary_Operator): Handle VMS case for logical
binary operator on the unsigned_quadword record.
* exp_intr.ads (Expand_Intrinsic_Call): Update comments.
2010-10-19 Geert Bosch <bosch@adacore.com>
* gnat_rm.texi (pragma Float_Representation): Fix typo.
2010-10-19 Arnaud Charlet <charlet@adacore.com>
* switch-c.adb (Scan_Front_End_Switches): Add handling of -gnateE.
* fe.h (Exception_Extra_Info): Declare.
* usage.adb (usage): Add -gnateE doc.
* checks.adb (Install_Null_Excluding_Check): Use better sloc.
* sem_util.adb (Insert_Explicit_Dereference): Ditto.
* gnat_ugn.texi: Document -gnateE switch.
* a-except.adb (Set_Exception_C_Msg): New parameter Column.
* a-except-2005.adb (Set_Exception_C_Msg): New parameter Column.
(Raise_Constraint_Error_Msg): Ditto.
(Image): New helper function.
(Rcheck_00_Ext, Rcheck_05_Ext, Rcheck_12_Ext): New procedure with more
detailed exception information.
Adjust calls to Set_Exception_C_Msg and Raise_Constraint_Error_Msg.
* a-exexda.adb (Set_Exception_C_Msg): New parameter Column.
* opt.ads (Exception_Extra_Info): New flag.
* gcc-interface/utils.c (gnat_raise_decls_ext): New.
* gcc-interface/utils2.c (build_call_raise_range,
build_call_raise_column): New functions.
* gcc-interface/gigi.h (exception_info_kind, gnat_raise_decls_ext,
build_call_raise_range, build_call_raise_column): Declare.
gcc-interface/trans.c (build_raise_check): New function.
(gigi): Initialize gnat_raise_decls_ext.
(gnat_to_gnu): Add initial support for -gnateE switch.
* gcc-interface/Make-lang.in: Update dependencies.
From-SVN: r165696
Diffstat (limited to 'gcc/ada/exp_ch4.adb')
-rw-r--r-- | gcc/ada/exp_ch4.adb | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb index 682f075..ce1730e 100644 --- a/gcc/ada/exp_ch4.adb +++ b/gcc/ada/exp_ch4.adb @@ -37,6 +37,7 @@ with Exp_Ch7; use Exp_Ch7; with Exp_Ch9; use Exp_Ch9; with Exp_Disp; use Exp_Disp; with Exp_Fixd; use Exp_Fixd; +with Exp_Intr; use Exp_Intr; with Exp_Pakd; use Exp_Pakd; with Exp_Tss; use Exp_Tss; with Exp_Util; use Exp_Util; @@ -5187,6 +5188,10 @@ package body Exp_Ch4 is Set_Etype (N, Standard_Boolean); Adjust_Result_Type (N, Typ); end if; + + elsif Is_Intrinsic_Subprogram (Entity (N)) then + Expand_Intrinsic_Call (N, Entity (N)); + end if; end Expand_N_Op_And; @@ -7148,6 +7153,10 @@ package body Exp_Ch4 is Set_Etype (N, Standard_Boolean); Adjust_Result_Type (N, Typ); end if; + + elsif Is_Intrinsic_Subprogram (Entity (N)) then + Expand_Intrinsic_Call (N, Entity (N)); + end if; end Expand_N_Op_Or; @@ -7343,6 +7352,10 @@ package body Exp_Ch4 is Adjust_Condition (Right_Opnd (N)); Set_Etype (N, Standard_Boolean); Adjust_Result_Type (N, Typ); + + elsif Is_Intrinsic_Subprogram (Entity (N)) then + Expand_Intrinsic_Call (N, Entity (N)); + end if; end Expand_N_Op_Xor; |