Skip to content

R
riscv-gcc-1
Commit 6e9ecd1f by Vincent Celier Committed by Arnaud Charlet
Options

* gcc-interface/decl.c: Rename Descendent -> Descendant 

From-SVN: r235104
parent f3a59e2e
Showing with 3 additions and 2 deletions
gcc/ada/ChangeLog
...@@ -31,6 +31,7 @@ ...@@ -31,6 +31,7 @@
sem_ch4.adb, atree.adb, atree.ads, sem_warn.adb, treepr.adb, sem_ch4.adb, atree.adb, atree.ads, sem_warn.adb, treepr.adb,
exp_ch3.ads, exp_unst.adb: Change "descendent" to exp_ch3.ads, exp_unst.adb: Change "descendent" to
"descendant" in comments, error messages and identifiers. "descendant" in comments, error messages and identifiers.
* gcc-interface/decl.c: Ditto.
2016-04-18 Eric Botcazou <ebotcazou@adacore.com> 2016-04-18 Eric Botcazou <ebotcazou@adacore.com>
......
gcc/ada/gcc-interface/decl.c
...@@ -5857,7 +5857,7 @@ gnat_to_gnu_param (Entity_Id gnat_param, Mechanism_Type mech, ...@@ -5857,7 +5857,7 @@ gnat_to_gnu_param (Entity_Id gnat_param, Mechanism_Type mech,
/* For GCC builtins, pass Address integer types as (void *) */ /* For GCC builtins, pass Address integer types as (void *) */
if (Convention (gnat_subprog) == Convention_Intrinsic if (Convention (gnat_subprog) == Convention_Intrinsic
&& Present (Interface_Name (gnat_subprog)) && Present (Interface_Name (gnat_subprog))
&& Is_Descendent_Of_Address (Etype (gnat_param))) && Is_Descendant_Of_Address (Etype (gnat_param)))
gnu_param_type = ptr_type_node; gnu_param_type = ptr_type_node;
/* Arrays are passed as pointers to element type for foreign conventions. */ /* Arrays are passed as pointers to element type for foreign conventions. */
...@@ -8603,7 +8603,7 @@ intrin_return_compatible_p (intrin_binding_t * inb) ...@@ -8603,7 +8603,7 @@ intrin_return_compatible_p (intrin_binding_t * inb)
return true; return true;
/* If return type is Address (integer type), map it to void *. */ /* If return type is Address (integer type), map it to void *. */
if (Is_Descendent_Of_Address (Etype (inb->gnat_entity))) if (Is_Descendant_Of_Address (Etype (inb->gnat_entity)))
ada_return_type = ptr_type_node; ada_return_type = ptr_type_node;
/* Check return types compatibility otherwise. Note that this /* Check return types compatibility otherwise. Note that this
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment