[llvm-commits] [llvm-gcc-4.2] r45364 - /llvm-gcc-4.2/trunk/gcc/fortran/trans-types.c

[Anton Korobeynikov]

Author: asl
Date: Thu Dec 27 10:52:46 2007
New Revision: 45364

URL: http://llvm.org/viewvc/llvm-project?rev=45364&view=rev
Log:
Mark all external functions decls to be varagrs instead of no args :)

Modified:
    llvm-gcc-4.2/trunk/gcc/fortran/trans-types.c

Modified: llvm-gcc-4.2/trunk/gcc/fortran/trans-types.c
URL: http://llvm.org/viewvc/llvm-project/llvm-gcc-4.2/trunk/gcc/fortran/trans-types.c?rev=45364&r1=45363&r2=45364&view=diff

==============================================================================
--- llvm-gcc-4.2/trunk/gcc/fortran/trans-types.c (original)
+++ llvm-gcc-4.2/trunk/gcc/fortran/trans-types.c Thu Dec 27 10:52:46 2007
@@ -1752,7 +1752,10 @@
   while (nstr--)
     typelist = gfc_chainon_list (typelist, gfc_charlen_type_node);
 
-  if (typelist)
+  /* LLVM local begin */
+  if (typelist && !(sym->attr.proc == PROC_INTRINSIC ||
+                    sym->attr.proc == PROC_EXTERNAL))
+  /* LLVM local end */
     typelist = gfc_chainon_list (typelist, void_type_node);
 
   if (alternate_return)