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)
_______________________________________________
llvm-commits mailing list
llvm-commits@cs.uiuc.edu
http://lists.cs.uiuc.edu/mailman/listinfo/llvm-commits
