[llvm-commits] [llvm-gcc-4.2] r52825 - /llvm-gcc-4.2/trunk/gcc/fortran/trans-decl.c

[Duncan Sands]

Author: baldrick
Date: Fri Jun 27 08:55:37 2008
New Revision: 52825

URL: http://llvm.org/viewvc/llvm-project?rev=52825&view=rev
Log:
The cpow functions take two arguments not one.
Fixes PR2443.

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=52825&r1=52824&r2=52825&view=diff

==============================================================================
--- llvm-gcc-4.2/trunk/gcc/fortran/trans-decl.c (original)
+++ llvm-gcc-4.2/trunk/gcc/fortran/trans-decl.c Fri Jun 27 08:55:37 2008
@@ -2145,24 +2145,30 @@
 #undef NRKINDS
   }
 
+  /* LLVM local begin - correct cpow prototypes */
   gfor_fndecl_math_cpowf =
     gfc_build_library_function_decl (get_identifier ("cpowf"),
-				     gfc_complex4_type_node,
-				     1, gfc_complex4_type_node);
+				     gfc_complex4_type_node, 2,
+                                     gfc_complex4_type_node,
+                                     gfc_complex4_type_node);
   gfor_fndecl_math_cpow =
     gfc_build_library_function_decl (get_identifier ("cpow"),
-				     gfc_complex8_type_node,
-				     1, gfc_complex8_type_node);
+				     gfc_complex8_type_node, 2,
+                                     gfc_complex8_type_node,
+                                     gfc_complex8_type_node);
   if (gfc_complex10_type_node)
     gfor_fndecl_math_cpowl10 =
       gfc_build_library_function_decl (get_identifier ("cpowl"),
-				       gfc_complex10_type_node, 1,
-				       gfc_complex10_type_node);
+				       gfc_complex10_type_node, 2,
+				       gfc_complex10_type_node,
+                                       gfc_complex10_type_node);
   if (gfc_complex16_type_node)
     gfor_fndecl_math_cpowl16 =
       gfc_build_library_function_decl (get_identifier ("cpowl"),
-				       gfc_complex16_type_node, 1,
-				       gfc_complex16_type_node);
+				       gfc_complex16_type_node, 2,
+				       gfc_complex16_type_node,
+                                       gfc_complex16_type_node);
+  /* LLVM local end - correct cpow prototypes */
 
   gfor_fndecl_math_ishftc4 =
     gfc_build_library_function_decl (get_identifier (PREFIX("ishftc4")),