diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2014-04-22 16:16:25 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2014-04-22 16:16:25 +0000 |
| commit | b6918051675e3e7123a24917f0151c1b1e10db67 (patch) | |
| tree | ba3a91b7adb4c1d72d59218e09e403e1ad16e001 /gcc/ada/gcc-interface/decl.c | |
| parent | 5cb74e90b383f424440aaf297974fd1f68fdd5c8 (diff) | |
| download | gcc-b6918051675e3e7123a24917f0151c1b1e10db67.zip gcc-b6918051675e3e7123a24917f0151c1b1e10db67.tar.gz gcc-b6918051675e3e7123a24917f0151c1b1e10db67.tar.bz2 | |
fe.h (Compiler_Abort): Replace Fat_Pointer with String_Pointer.
* fe.h (Compiler_Abort): Replace Fat_Pointer with String_Pointer.
(Error_Msg_N): Likewise.
(Error_Msg_NE): Likewise.
(Get_External_Name_With_Suffix): Likewise.
* types.h (Fat_Pointer): Delete.
(String_Pointer): New type.
(DECLARE_STRING_POINTER): New macro.
* gcc-interface/decl.c (create_concat_name): Adjust.
* gcc-interface/trans.c (post_error): Likewise.
(post_error_ne): Likewise.
* gcc-interface/misc.c (internal_error_function): Likewise.
From-SVN: r209644
Diffstat (limited to 'gcc/ada/gcc-interface/decl.c')
| -rw-r--r-- | gcc/ada/gcc-interface/decl.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c index 7c3f7e5..0873bae 100644 --- a/gcc/ada/gcc-interface/decl.c +++ b/gcc/ada/gcc-interface/decl.c @@ -8861,8 +8861,10 @@ create_concat_name (Entity_Id gnat_entity, const char *suffix) if (suffix) { String_Template temp = {1, (int) strlen (suffix)}; - Fat_Pointer fp = {suffix, &temp}; - Get_External_Name_With_Suffix (gnat_entity, fp); + DECLARE_STRING_POINTER (sp); + sp.Bounds = &temp; + sp.Array = suffix; + Get_External_Name_With_Suffix (gnat_entity, sp); } else Get_External_Name (gnat_entity, 0); |