From 4fa38d6f77d05863553f6c68c7bbf036bd4154c7 Mon Sep 17 00:00:00 2001 From: charlet Date: Mon, 18 Apr 2016 09:28:16 +0000 Subject: [PATCH] * gcc-interface/decl.c: Rename Descendent -> Descendant git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@235104 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/ChangeLog | 1 + gcc/ada/gcc-interface/decl.c | 4 ++-- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 9df5e2b8289c..4037a28b19a1 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -31,6 +31,7 @@ sem_ch4.adb, atree.adb, atree.ads, sem_warn.adb, treepr.adb, exp_ch3.ads, exp_unst.adb: Change "descendent" to "descendant" in comments, error messages and identifiers. + * gcc-interface/decl.c: Ditto. 2016-04-18 Eric Botcazou diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c index 87026e742bb5..c1f409de0118 100644 --- a/gcc/ada/gcc-interface/decl.c +++ b/gcc/ada/gcc-interface/decl.c @@ -5857,7 +5857,7 @@ gnat_to_gnu_param (Entity_Id gnat_param, Mechanism_Type mech, /* For GCC builtins, pass Address integer types as (void *) */ if (Convention (gnat_subprog) == Convention_Intrinsic && 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; /* Arrays are passed as pointers to element type for foreign conventions. */ @@ -8603,7 +8603,7 @@ intrin_return_compatible_p (intrin_binding_t * inb) return true; /* 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; /* Check return types compatibility otherwise. Note that this -- 2.47.3