From 1366ba411aced82547671901bf20655b40e3dded Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Mon, 25 May 2015 21:12:39 +0000 Subject: targtyps.c (get_float_words_be): Rename into... * gcc-interface/targtyps.c (get_float_words_be): Rename into... (get_target_float_words_be): ...this. (get_words_be): Rename into... (get_target_words_be): ...this. (get_bytes_be): Rename into... (get_target_bytes_be): ...this. (get_bits_be): Rename into... (get_target_bits_be): ...this. * gcc-interface/gigi.h (standard_datatypes): Remove ADT_ptr_void_type. (ptr_void_type_node): Delete. (get_target_float_size): Likewise. (get_target_double_size): Likewise. (get_target_long_double_size): Likewise. (get_float_words_be): Likewise. (get_words_be): Likewise. (get_bytes_be): Likewise. (get_bits_be): Likewise. (get_target_float_words_be): Declare. (get_target_words_be): Likewise. (get_target_bytes_be): Likewise. (get_target_bits_be): Likewise. * gcc-interface/decl.c (gnat_to_gnu_entity): Replace ptr_void_type_node with ptr_type_node. (intrin_return_compatible_p): Likewise. * gcc-interface/trans.c (gigi): Likewise. * gcc-interface/utils2.c (maybe_wrap_malloc): Likewise. (maybe_wrap_free): Likewise. * gcc-interface/utils.c (maybe_pad_type): Remove superfluous space. * gcc-interface/misc.c (gnat_init): Do not set ptr_void_type_node. From-SVN: r223656 --- gcc/ada/get_targ.adb | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) (limited to 'gcc/ada/get_targ.adb') diff --git a/gcc/ada/get_targ.adb b/gcc/ada/get_targ.adb index e1dfb26..9a47000 100644 --- a/gcc/ada/get_targ.adb +++ b/gcc/ada/get_targ.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2014, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2015, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -23,12 +23,12 @@ -- -- ------------------------------------------------------------------------------ --- Version for use with gcc +-- Version for use with GCC package body Get_Targ is - -- Functions returning individual runtime. For the standard (GCC) back - -- end these come from C interface functions (one for each value). + -- Functions returning individual run-time values. For the standard (GCC) + -- back end, these come from C interface functions (one for each value). ----------------------- -- Get_Bits_Per_Unit -- @@ -157,7 +157,7 @@ package body Get_Targ is function Get_Float_Words_BE return Nat is function C_Get_Float_Words_BE return Nat; pragma Import (C, C_Get_Float_Words_BE, - "get_float_words_be"); + "get_target_float_words_be"); begin return C_Get_Float_Words_BE; end Get_Float_Words_BE; @@ -169,7 +169,7 @@ package body Get_Targ is function Get_Words_BE return Nat is function C_Get_Words_BE return Nat; pragma Import (C, C_Get_Words_BE, - "get_words_be"); + "get_target_words_be"); begin return C_Get_Words_BE; end Get_Words_BE; @@ -181,7 +181,7 @@ package body Get_Targ is function Get_Bytes_BE return Nat is function C_Get_Bytes_BE return Nat; pragma Import (C, C_Get_Bytes_BE, - "get_bytes_be"); + "get_target_bytes_be"); begin return C_Get_Bytes_BE; end Get_Bytes_BE; @@ -193,7 +193,7 @@ package body Get_Targ is function Get_Bits_BE return Nat is function C_Get_Bits_BE return Nat; pragma Import (C, C_Get_Bits_BE, - "get_bits_be"); + "get_target_bits_be"); begin return C_Get_Bits_BE; end Get_Bits_BE; @@ -306,7 +306,7 @@ package body Get_Targ is -- Width_From_Size -- --------------------- - function Width_From_Size (Size : Pos) return Pos is + function Width_From_Size (Size : Pos) return Pos is begin case Size is when 8 => return 4; -- cgit v1.1