Author: asl
Date: Thu Dec 27 10:56:39 2007
New Revision: 45366
URL: http://llvm.org/viewvc/llvm-project?rev=45366&view=rev
Log:
Fix emission of bogus decls. This was commited to gcc mainline.
Modified:
llvm-gcc-4.2/trunk/gcc/fortran/trans-decl.c
Modified: llvm-gcc-4.2/trunk/gcc/fortran/trans-decl.c
URL:
http://llvm.org/viewvc/llvm-project/llvm-gcc-4.2/trunk/gcc/fortran/trans-decl.c?rev=45366&r1=45365&r2=45366&view=diff
==============================================================================
--- llvm-gcc-4.2/trunk/gcc/fortran/trans-decl.c (original)
+++ llvm-gcc-4.2/trunk/gcc/fortran/trans-decl.c Thu Dec 27 10:56:39 2007
@@ -1935,7 +1935,7 @@
/* Create a list of the argument types. */
/* LLVM local begin */
for (arglist = NULL_TREE, n = (nargs >= 0 ? nargs : -nargs - 1); n > 0; n--)
- /* LLVM local end */
+ /* LLVM local end */
{
argtype = va_arg (p, tree);
arglist = gfc_chainon_list (arglist, argtype);
@@ -2310,10 +2310,12 @@
void_type_node, 2, pchar_type_node,
gfc_int4_type_node);
+ /* LLVM begin mainline 4.3 */
gfor_fndecl_select_string =
gfc_build_library_function_decl (get_identifier (PREFIX("select_string")),
pvoid_type_node, 5, pvoid_type_node, gfc_c_int_type_node,
pvoid_type_node, pchar_type_node, gfc_c_int_type_node);
+ /* LLVM end mainline 4.3 */
gfor_fndecl_runtime_error =
gfc_build_library_function_decl (get_identifier (PREFIX("runtime_error")),
@@ -2349,9 +2351,11 @@
get_identifier (PREFIX("internal_pack")),
pvoid_type_node, 1, pvoid_type_node);
+ /* LLVM begin mainline 4.3 */
gfor_fndecl_in_unpack = gfc_build_library_function_decl (
get_identifier (PREFIX("internal_unpack")),
pvoid_type_node, 2, pvoid_type_node, pvoid_type_node);
+ /* LLVM end mainline 4.3 */
gfor_fndecl_associated =
gfc_build_library_function_decl (
_______________________________________________
llvm-commits mailing list
llvm-commits@cs.uiuc.edu
http://lists.cs.uiuc.edu/mailman/listinfo/llvm-commits
