[llvm-commits] [llvm-gcc-4.2] r44206 - in /llvm-gcc-4.2/trunk/gcc/ada: a-numaux-x86.adb a-numaux-x86.ads

[Duncan Sands]

Author: baldrick
Date: Sat Nov 17 05:46:02 2007
New Revision: 44206

URL: http://llvm.org/viewvc/llvm-project?rev=44206&view=rev
Log:
In this file "Double" corresponds to C long double.

Modified:
    llvm-gcc-4.2/trunk/gcc/ada/a-numaux-x86.adb
    llvm-gcc-4.2/trunk/gcc/ada/a-numaux-x86.ads

Modified: llvm-gcc-4.2/trunk/gcc/ada/a-numaux-x86.adb
URL: http://llvm.org/viewvc/llvm-project/llvm-gcc-4.2/trunk/gcc/ada/a-numaux-x86.adb?rev=44206&r1=44205&r2=44206&view=diff

==============================================================================
--- llvm-gcc-4.2/trunk/gcc/ada/a-numaux-x86.adb (original)
+++ llvm-gcc-4.2/trunk/gcc/ada/a-numaux-x86.adb Sat Nov 17 05:46:02 2007
@@ -58,7 +58,7 @@
    --  for values of Y in the open interval (-0.25, 0.25)
 
    --  LLVM local begin
-   pragma Import (C, Logarithmic_Pow, "pow");
+   pragma Import (C, Logarithmic_Pow, "powl");
    pragma Pure_Function (Logarithmic_Pow);
    --  LLVM local end
 
@@ -82,7 +82,7 @@
 
    --  LLVM local begin
    function C_Atan (X : Double) return Double;
-   pragma Import (C, C_Atan, "atan");
+   pragma Import (C, C_Atan, "atanl");
    pragma Pure_Function (C_Atan);
    --  LLVM local end
 
@@ -209,7 +209,7 @@
 
    --  LLVM local begin
    function C_Sqrt (X : Double) return Double;
-   pragma Import (C, C_Sqrt, "sqrt");
+   pragma Import (C, C_Sqrt, "sqrtl");
    pragma Pure_Function (C_Sqrt);
    --  LLVM local end
 
@@ -235,19 +235,19 @@
 
    --  LLVM local begin
    function C_Sin (X : Double) return Double;
-   pragma Import (C, C_Sin, "sin");
+   pragma Import (C, C_Sin, "sinl");
    pragma Pure_Function (C_Sin);
 
    function C_Cos (X : Double) return Double;
-   pragma Import (C, C_Cos, "cos");
+   pragma Import (C, C_Cos, "cosl");
    pragma Pure_Function (C_Cos);
 
    function C_Tan (X : Double) return Double;
-   pragma Import (C, C_Tan, "tan");
+   pragma Import (C, C_Tan, "tanl");
    pragma Pure_Function (C_Tan);
 
    procedure Sin_Cos (X : Double; Sin, Cos : out Double);
-   pragma Import (C, Sin_Cos, "sincos");
+   pragma Import (C, Sin_Cos, "sincosl");
    --  LLVM local end
 
    ----------

Modified: llvm-gcc-4.2/trunk/gcc/ada/a-numaux-x86.ads
URL: http://llvm.org/viewvc/llvm-project/llvm-gcc-4.2/trunk/gcc/ada/a-numaux-x86.ads?rev=44206&r1=44205&r2=44206&view=diff

==============================================================================
--- llvm-gcc-4.2/trunk/gcc/ada/a-numaux-x86.ads (original)
+++ llvm-gcc-4.2/trunk/gcc/ada/a-numaux-x86.ads Sat Nov 17 05:46:02 2007
@@ -84,9 +84,9 @@
    pragma Inline (Sqrt);
 
    --  LLVM local begin
-   pragma Import (C, Exp, "exp");
+   pragma Import (C, Exp, "expl");
    pragma Pure_Function (Exp);
-   pragma Import (C, Log, "log");
+   pragma Import (C, Log, "logl");
    pragma Pure_Function (Log);
    --  LLVM local end