diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2015-05-25 21:12:39 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2015-05-25 21:12:39 +0000 |
| commit | 1366ba411aced82547671901bf20655b40e3dded (patch) | |
| tree | cb1e11c2a5c7282a13eaa3e68c26451675e11594 /gcc/ada/get_targ.adb | |
| parent | bf44701f955b9901565dc918d039fe38e8a58099 (diff) | |
| download | gcc-1366ba411aced82547671901bf20655b40e3dded.zip gcc-1366ba411aced82547671901bf20655b40e3dded.tar.gz gcc-1366ba411aced82547671901bf20655b40e3dded.tar.bz2 | |
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
Diffstat (limited to 'gcc/ada/get_targ.adb')
| -rw-r--r-- | gcc/ada/get_targ.adb | 18 |
1 files changed, 9 insertions, 9 deletions
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; |