public inbox for gcc-cvs@sourceware.org
help / color / mirror / Atom feed
* [gcc(refs/users/aoliva/heads/testme)] import elementary functions as intrinsics
@ 2020-10-06 10:45 Alexandre Oliva
0 siblings, 0 replies; 3+ messages in thread
From: Alexandre Oliva @ 2020-10-06 10:45 UTC (permalink / raw)
To: gcc-cvs
https://gcc.gnu.org/g:fffb183cd3d210a21f88092086e54f9c8a728258
commit fffb183cd3d210a21f88092086e54f9c8a728258
Author: Alexandre Oliva <oliva@adacore.com>
Date: Tue Sep 29 12:53:34 2020 -0300
import elementary functions as intrinsics
Diff:
---
gcc/ada/libgnat/a-numaux.ads | 26 +++++++++++++-------------
gcc/ada/libgnat/a-numaux__darwin.ads | 22 +++++++++++-----------
gcc/ada/libgnat/a-numaux__libc-x86.ads | 26 +++++++++++++-------------
gcc/ada/libgnat/a-numaux__vxworks.ads | 26 +++++++++++++-------------
4 files changed, 50 insertions(+), 50 deletions(-)
diff --git a/gcc/ada/libgnat/a-numaux.ads b/gcc/ada/libgnat/a-numaux.ads
index 3ad70671629..4154e1ab216 100644
--- a/gcc/ada/libgnat/a-numaux.ads
+++ b/gcc/ada/libgnat/a-numaux.ads
@@ -58,55 +58,55 @@ package Ada.Numerics.Aux is
-- all as pure functions, because indeed all of them are in fact pure.
function Sin (X : Double) return Double;
- pragma Import (C, Sin, "sin");
+ pragma Import (Intrinsic, Sin, "sin");
pragma Pure_Function (Sin);
function Cos (X : Double) return Double;
- pragma Import (C, Cos, "cos");
+ pragma Import (Intrinsic, Cos, "cos");
pragma Pure_Function (Cos);
function Tan (X : Double) return Double;
- pragma Import (C, Tan, "tan");
+ pragma Import (Intrinsic, Tan, "tan");
pragma Pure_Function (Tan);
function Exp (X : Double) return Double;
- pragma Import (C, Exp, "exp");
+ pragma Import (Intrinsic, Exp, "exp");
pragma Pure_Function (Exp);
function Sqrt (X : Double) return Double;
- pragma Import (C, Sqrt, "sqrt");
+ pragma Import (Intrinsic, Sqrt, "sqrt");
pragma Pure_Function (Sqrt);
function Log (X : Double) return Double;
- pragma Import (C, Log, "log");
+ pragma Import (Intrinsic, Log, "log");
pragma Pure_Function (Log);
function Acos (X : Double) return Double;
- pragma Import (C, Acos, "acos");
+ pragma Import (Intrinsic, Acos, "acos");
pragma Pure_Function (Acos);
function Asin (X : Double) return Double;
- pragma Import (C, Asin, "asin");
+ pragma Import (Intrinsic, Asin, "asin");
pragma Pure_Function (Asin);
function Atan (X : Double) return Double;
- pragma Import (C, Atan, "atan");
+ pragma Import (Intrinsic, Atan, "atan");
pragma Pure_Function (Atan);
function Sinh (X : Double) return Double;
- pragma Import (C, Sinh, "sinh");
+ pragma Import (Intrinsic, Sinh, "sinh");
pragma Pure_Function (Sinh);
function Cosh (X : Double) return Double;
- pragma Import (C, Cosh, "cosh");
+ pragma Import (Intrinsic, Cosh, "cosh");
pragma Pure_Function (Cosh);
function Tanh (X : Double) return Double;
- pragma Import (C, Tanh, "tanh");
+ pragma Import (Intrinsic, Tanh, "tanh");
pragma Pure_Function (Tanh);
function Pow (X, Y : Double) return Double;
- pragma Import (C, Pow, "pow");
+ pragma Import (Intrinsic, Pow, "pow");
pragma Pure_Function (Pow);
end Ada.Numerics.Aux;
diff --git a/gcc/ada/libgnat/a-numaux__darwin.ads b/gcc/ada/libgnat/a-numaux__darwin.ads
index f2a442815bb..add87a49193 100644
--- a/gcc/ada/libgnat/a-numaux__darwin.ads
+++ b/gcc/ada/libgnat/a-numaux__darwin.ads
@@ -57,47 +57,47 @@ package Ada.Numerics.Aux is
-- all as pure functions, because indeed all of them are in fact pure.
function Tan (X : Double) return Double;
- pragma Import (C, Tan, "tan");
+ pragma Import (Intrinsic, Tan, "tan");
pragma Pure_Function (Tan);
function Exp (X : Double) return Double;
- pragma Import (C, Exp, "exp");
+ pragma Import (Intrinsic, Exp, "exp");
pragma Pure_Function (Exp);
function Sqrt (X : Double) return Double;
- pragma Import (C, Sqrt, "sqrt");
+ pragma Import (Intrinsic, Sqrt, "sqrt");
pragma Pure_Function (Sqrt);
function Log (X : Double) return Double;
- pragma Import (C, Log, "log");
+ pragma Import (Intrinsic, Log, "log");
pragma Pure_Function (Log);
function Acos (X : Double) return Double;
- pragma Import (C, Acos, "acos");
+ pragma Import (Intrinsic, Acos, "acos");
pragma Pure_Function (Acos);
function Asin (X : Double) return Double;
- pragma Import (C, Asin, "asin");
+ pragma Import (Intrinsic, Asin, "asin");
pragma Pure_Function (Asin);
function Atan (X : Double) return Double;
- pragma Import (C, Atan, "atan");
+ pragma Import (Intrinsic, Atan, "atan");
pragma Pure_Function (Atan);
function Sinh (X : Double) return Double;
- pragma Import (C, Sinh, "sinh");
+ pragma Import (Intrinsic, Sinh, "sinh");
pragma Pure_Function (Sinh);
function Cosh (X : Double) return Double;
- pragma Import (C, Cosh, "cosh");
+ pragma Import (Intrinsic, Cosh, "cosh");
pragma Pure_Function (Cosh);
function Tanh (X : Double) return Double;
- pragma Import (C, Tanh, "tanh");
+ pragma Import (Intrinsic, Tanh, "tanh");
pragma Pure_Function (Tanh);
function Pow (X, Y : Double) return Double;
- pragma Import (C, Pow, "pow");
+ pragma Import (Intrinsic, Pow, "pow");
pragma Pure_Function (Pow);
end Ada.Numerics.Aux;
diff --git a/gcc/ada/libgnat/a-numaux__libc-x86.ads b/gcc/ada/libgnat/a-numaux__libc-x86.ads
index c4647fd7005..f6deebecbad 100644
--- a/gcc/ada/libgnat/a-numaux__libc-x86.ads
+++ b/gcc/ada/libgnat/a-numaux__libc-x86.ads
@@ -43,55 +43,55 @@ package Ada.Numerics.Aux is
-- all as pure functions, because indeed all of them are in fact pure.
function Sin (X : Double) return Double;
- pragma Import (C, Sin, "sinl");
+ pragma Import (Intrinsic, Sin, "sinl");
pragma Pure_Function (Sin);
function Cos (X : Double) return Double;
- pragma Import (C, Cos, "cosl");
+ pragma Import (Intrinsic, Cos, "cosl");
pragma Pure_Function (Cos);
function Tan (X : Double) return Double;
- pragma Import (C, Tan, "tanl");
+ pragma Import (Intrinsic, Tan, "tanl");
pragma Pure_Function (Tan);
function Exp (X : Double) return Double;
- pragma Import (C, Exp, "expl");
+ pragma Import (Intrinsic, Exp, "expl");
pragma Pure_Function (Exp);
function Sqrt (X : Double) return Double;
- pragma Import (C, Sqrt, "sqrtl");
+ pragma Import (Intrinsic, Sqrt, "sqrtl");
pragma Pure_Function (Sqrt);
function Log (X : Double) return Double;
- pragma Import (C, Log, "logl");
+ pragma Import (Intrinsic, Log, "logl");
pragma Pure_Function (Log);
function Acos (X : Double) return Double;
- pragma Import (C, Acos, "acosl");
+ pragma Import (Intrinsic, Acos, "acosl");
pragma Pure_Function (Acos);
function Asin (X : Double) return Double;
- pragma Import (C, Asin, "asinl");
+ pragma Import (Intrinsic, Asin, "asinl");
pragma Pure_Function (Asin);
function Atan (X : Double) return Double;
- pragma Import (C, Atan, "atanl");
+ pragma Import (Intrinsic, Atan, "atanl");
pragma Pure_Function (Atan);
function Sinh (X : Double) return Double;
- pragma Import (C, Sinh, "sinhl");
+ pragma Import (Intrinsic, Sinh, "sinhl");
pragma Pure_Function (Sinh);
function Cosh (X : Double) return Double;
- pragma Import (C, Cosh, "coshl");
+ pragma Import (Intrinsic, Cosh, "coshl");
pragma Pure_Function (Cosh);
function Tanh (X : Double) return Double;
- pragma Import (C, Tanh, "tanhl");
+ pragma Import (Intrinsic, Tanh, "tanhl");
pragma Pure_Function (Tanh);
function Pow (X, Y : Double) return Double;
- pragma Import (C, Pow, "powl");
+ pragma Import (Intrinsic, Pow, "powl");
pragma Pure_Function (Pow);
end Ada.Numerics.Aux;
diff --git a/gcc/ada/libgnat/a-numaux__vxworks.ads b/gcc/ada/libgnat/a-numaux__vxworks.ads
index c291334304e..410655de8a6 100644
--- a/gcc/ada/libgnat/a-numaux__vxworks.ads
+++ b/gcc/ada/libgnat/a-numaux__vxworks.ads
@@ -43,55 +43,55 @@ package Ada.Numerics.Aux is
-- all as pure functions, because indeed all of them are in fact pure.
function Sin (X : Double) return Double;
- pragma Import (C, Sin, "sin");
+ pragma Import (Intrinsic, Sin, "sin");
pragma Pure_Function (Sin);
function Cos (X : Double) return Double;
- pragma Import (C, Cos, "cos");
+ pragma Import (Intrinsic, Cos, "cos");
pragma Pure_Function (Cos);
function Tan (X : Double) return Double;
- pragma Import (C, Tan, "tan");
+ pragma Import (Intrinsic, Tan, "tan");
pragma Pure_Function (Tan);
function Exp (X : Double) return Double;
- pragma Import (C, Exp, "exp");
+ pragma Import (Intrinsic, Exp, "exp");
pragma Pure_Function (Exp);
function Sqrt (X : Double) return Double;
- pragma Import (C, Sqrt, "sqrt");
+ pragma Import (Intrinsic, Sqrt, "sqrt");
pragma Pure_Function (Sqrt);
function Log (X : Double) return Double;
- pragma Import (C, Log, "log");
+ pragma Import (Intrinsic, Log, "log");
pragma Pure_Function (Log);
function Acos (X : Double) return Double;
- pragma Import (C, Acos, "acos");
+ pragma Import (Intrinsic, Acos, "acos");
pragma Pure_Function (Acos);
function Asin (X : Double) return Double;
- pragma Import (C, Asin, "asin");
+ pragma Import (Intrinsic, Asin, "asin");
pragma Pure_Function (Asin);
function Atan (X : Double) return Double;
- pragma Import (C, Atan, "atan");
+ pragma Import (Intrinsic, Atan, "atan");
pragma Pure_Function (Atan);
function Sinh (X : Double) return Double;
- pragma Import (C, Sinh, "sinh");
+ pragma Import (Intrinsic, Sinh, "sinh");
pragma Pure_Function (Sinh);
function Cosh (X : Double) return Double;
- pragma Import (C, Cosh, "cosh");
+ pragma Import (Intrinsic, Cosh, "cosh");
pragma Pure_Function (Cosh);
function Tanh (X : Double) return Double;
- pragma Import (C, Tanh, "tanh");
+ pragma Import (Intrinsic, Tanh, "tanh");
pragma Pure_Function (Tanh);
function Pow (X, Y : Double) return Double;
- pragma Import (C, Pow, "pow");
+ pragma Import (Intrinsic, Pow, "pow");
pragma Pure_Function (Pow);
end Ada.Numerics.Aux;
^ permalink raw reply [flat|nested] 3+ messages in thread
* [gcc(refs/users/aoliva/heads/testme)] import elementary functions as intrinsics
@ 2020-10-07 10:50 Alexandre Oliva
0 siblings, 0 replies; 3+ messages in thread
From: Alexandre Oliva @ 2020-10-07 10:50 UTC (permalink / raw)
To: gcc-cvs
https://gcc.gnu.org/g:4eabb35041dcec6fd54cb11bb6e35cfe89adeedf
commit 4eabb35041dcec6fd54cb11bb6e35cfe89adeedf
Author: Alexandre Oliva <oliva@adacore.com>
Date: Tue Sep 29 12:53:34 2020 -0300
import elementary functions as intrinsics
Diff:
---
gcc/ada/libgnat/a-numaux.ads | 26 +++++++++++++-------------
gcc/ada/libgnat/a-numaux__darwin.ads | 22 +++++++++++-----------
gcc/ada/libgnat/a-numaux__libc-x86.ads | 26 +++++++++++++-------------
gcc/ada/libgnat/a-numaux__vxworks.ads | 26 +++++++++++++-------------
4 files changed, 50 insertions(+), 50 deletions(-)
diff --git a/gcc/ada/libgnat/a-numaux.ads b/gcc/ada/libgnat/a-numaux.ads
index 3ad70671629..4154e1ab216 100644
--- a/gcc/ada/libgnat/a-numaux.ads
+++ b/gcc/ada/libgnat/a-numaux.ads
@@ -58,55 +58,55 @@ package Ada.Numerics.Aux is
-- all as pure functions, because indeed all of them are in fact pure.
function Sin (X : Double) return Double;
- pragma Import (C, Sin, "sin");
+ pragma Import (Intrinsic, Sin, "sin");
pragma Pure_Function (Sin);
function Cos (X : Double) return Double;
- pragma Import (C, Cos, "cos");
+ pragma Import (Intrinsic, Cos, "cos");
pragma Pure_Function (Cos);
function Tan (X : Double) return Double;
- pragma Import (C, Tan, "tan");
+ pragma Import (Intrinsic, Tan, "tan");
pragma Pure_Function (Tan);
function Exp (X : Double) return Double;
- pragma Import (C, Exp, "exp");
+ pragma Import (Intrinsic, Exp, "exp");
pragma Pure_Function (Exp);
function Sqrt (X : Double) return Double;
- pragma Import (C, Sqrt, "sqrt");
+ pragma Import (Intrinsic, Sqrt, "sqrt");
pragma Pure_Function (Sqrt);
function Log (X : Double) return Double;
- pragma Import (C, Log, "log");
+ pragma Import (Intrinsic, Log, "log");
pragma Pure_Function (Log);
function Acos (X : Double) return Double;
- pragma Import (C, Acos, "acos");
+ pragma Import (Intrinsic, Acos, "acos");
pragma Pure_Function (Acos);
function Asin (X : Double) return Double;
- pragma Import (C, Asin, "asin");
+ pragma Import (Intrinsic, Asin, "asin");
pragma Pure_Function (Asin);
function Atan (X : Double) return Double;
- pragma Import (C, Atan, "atan");
+ pragma Import (Intrinsic, Atan, "atan");
pragma Pure_Function (Atan);
function Sinh (X : Double) return Double;
- pragma Import (C, Sinh, "sinh");
+ pragma Import (Intrinsic, Sinh, "sinh");
pragma Pure_Function (Sinh);
function Cosh (X : Double) return Double;
- pragma Import (C, Cosh, "cosh");
+ pragma Import (Intrinsic, Cosh, "cosh");
pragma Pure_Function (Cosh);
function Tanh (X : Double) return Double;
- pragma Import (C, Tanh, "tanh");
+ pragma Import (Intrinsic, Tanh, "tanh");
pragma Pure_Function (Tanh);
function Pow (X, Y : Double) return Double;
- pragma Import (C, Pow, "pow");
+ pragma Import (Intrinsic, Pow, "pow");
pragma Pure_Function (Pow);
end Ada.Numerics.Aux;
diff --git a/gcc/ada/libgnat/a-numaux__darwin.ads b/gcc/ada/libgnat/a-numaux__darwin.ads
index f2a442815bb..add87a49193 100644
--- a/gcc/ada/libgnat/a-numaux__darwin.ads
+++ b/gcc/ada/libgnat/a-numaux__darwin.ads
@@ -57,47 +57,47 @@ package Ada.Numerics.Aux is
-- all as pure functions, because indeed all of them are in fact pure.
function Tan (X : Double) return Double;
- pragma Import (C, Tan, "tan");
+ pragma Import (Intrinsic, Tan, "tan");
pragma Pure_Function (Tan);
function Exp (X : Double) return Double;
- pragma Import (C, Exp, "exp");
+ pragma Import (Intrinsic, Exp, "exp");
pragma Pure_Function (Exp);
function Sqrt (X : Double) return Double;
- pragma Import (C, Sqrt, "sqrt");
+ pragma Import (Intrinsic, Sqrt, "sqrt");
pragma Pure_Function (Sqrt);
function Log (X : Double) return Double;
- pragma Import (C, Log, "log");
+ pragma Import (Intrinsic, Log, "log");
pragma Pure_Function (Log);
function Acos (X : Double) return Double;
- pragma Import (C, Acos, "acos");
+ pragma Import (Intrinsic, Acos, "acos");
pragma Pure_Function (Acos);
function Asin (X : Double) return Double;
- pragma Import (C, Asin, "asin");
+ pragma Import (Intrinsic, Asin, "asin");
pragma Pure_Function (Asin);
function Atan (X : Double) return Double;
- pragma Import (C, Atan, "atan");
+ pragma Import (Intrinsic, Atan, "atan");
pragma Pure_Function (Atan);
function Sinh (X : Double) return Double;
- pragma Import (C, Sinh, "sinh");
+ pragma Import (Intrinsic, Sinh, "sinh");
pragma Pure_Function (Sinh);
function Cosh (X : Double) return Double;
- pragma Import (C, Cosh, "cosh");
+ pragma Import (Intrinsic, Cosh, "cosh");
pragma Pure_Function (Cosh);
function Tanh (X : Double) return Double;
- pragma Import (C, Tanh, "tanh");
+ pragma Import (Intrinsic, Tanh, "tanh");
pragma Pure_Function (Tanh);
function Pow (X, Y : Double) return Double;
- pragma Import (C, Pow, "pow");
+ pragma Import (Intrinsic, Pow, "pow");
pragma Pure_Function (Pow);
end Ada.Numerics.Aux;
diff --git a/gcc/ada/libgnat/a-numaux__libc-x86.ads b/gcc/ada/libgnat/a-numaux__libc-x86.ads
index c4647fd7005..f6deebecbad 100644
--- a/gcc/ada/libgnat/a-numaux__libc-x86.ads
+++ b/gcc/ada/libgnat/a-numaux__libc-x86.ads
@@ -43,55 +43,55 @@ package Ada.Numerics.Aux is
-- all as pure functions, because indeed all of them are in fact pure.
function Sin (X : Double) return Double;
- pragma Import (C, Sin, "sinl");
+ pragma Import (Intrinsic, Sin, "sinl");
pragma Pure_Function (Sin);
function Cos (X : Double) return Double;
- pragma Import (C, Cos, "cosl");
+ pragma Import (Intrinsic, Cos, "cosl");
pragma Pure_Function (Cos);
function Tan (X : Double) return Double;
- pragma Import (C, Tan, "tanl");
+ pragma Import (Intrinsic, Tan, "tanl");
pragma Pure_Function (Tan);
function Exp (X : Double) return Double;
- pragma Import (C, Exp, "expl");
+ pragma Import (Intrinsic, Exp, "expl");
pragma Pure_Function (Exp);
function Sqrt (X : Double) return Double;
- pragma Import (C, Sqrt, "sqrtl");
+ pragma Import (Intrinsic, Sqrt, "sqrtl");
pragma Pure_Function (Sqrt);
function Log (X : Double) return Double;
- pragma Import (C, Log, "logl");
+ pragma Import (Intrinsic, Log, "logl");
pragma Pure_Function (Log);
function Acos (X : Double) return Double;
- pragma Import (C, Acos, "acosl");
+ pragma Import (Intrinsic, Acos, "acosl");
pragma Pure_Function (Acos);
function Asin (X : Double) return Double;
- pragma Import (C, Asin, "asinl");
+ pragma Import (Intrinsic, Asin, "asinl");
pragma Pure_Function (Asin);
function Atan (X : Double) return Double;
- pragma Import (C, Atan, "atanl");
+ pragma Import (Intrinsic, Atan, "atanl");
pragma Pure_Function (Atan);
function Sinh (X : Double) return Double;
- pragma Import (C, Sinh, "sinhl");
+ pragma Import (Intrinsic, Sinh, "sinhl");
pragma Pure_Function (Sinh);
function Cosh (X : Double) return Double;
- pragma Import (C, Cosh, "coshl");
+ pragma Import (Intrinsic, Cosh, "coshl");
pragma Pure_Function (Cosh);
function Tanh (X : Double) return Double;
- pragma Import (C, Tanh, "tanhl");
+ pragma Import (Intrinsic, Tanh, "tanhl");
pragma Pure_Function (Tanh);
function Pow (X, Y : Double) return Double;
- pragma Import (C, Pow, "powl");
+ pragma Import (Intrinsic, Pow, "powl");
pragma Pure_Function (Pow);
end Ada.Numerics.Aux;
diff --git a/gcc/ada/libgnat/a-numaux__vxworks.ads b/gcc/ada/libgnat/a-numaux__vxworks.ads
index c291334304e..410655de8a6 100644
--- a/gcc/ada/libgnat/a-numaux__vxworks.ads
+++ b/gcc/ada/libgnat/a-numaux__vxworks.ads
@@ -43,55 +43,55 @@ package Ada.Numerics.Aux is
-- all as pure functions, because indeed all of them are in fact pure.
function Sin (X : Double) return Double;
- pragma Import (C, Sin, "sin");
+ pragma Import (Intrinsic, Sin, "sin");
pragma Pure_Function (Sin);
function Cos (X : Double) return Double;
- pragma Import (C, Cos, "cos");
+ pragma Import (Intrinsic, Cos, "cos");
pragma Pure_Function (Cos);
function Tan (X : Double) return Double;
- pragma Import (C, Tan, "tan");
+ pragma Import (Intrinsic, Tan, "tan");
pragma Pure_Function (Tan);
function Exp (X : Double) return Double;
- pragma Import (C, Exp, "exp");
+ pragma Import (Intrinsic, Exp, "exp");
pragma Pure_Function (Exp);
function Sqrt (X : Double) return Double;
- pragma Import (C, Sqrt, "sqrt");
+ pragma Import (Intrinsic, Sqrt, "sqrt");
pragma Pure_Function (Sqrt);
function Log (X : Double) return Double;
- pragma Import (C, Log, "log");
+ pragma Import (Intrinsic, Log, "log");
pragma Pure_Function (Log);
function Acos (X : Double) return Double;
- pragma Import (C, Acos, "acos");
+ pragma Import (Intrinsic, Acos, "acos");
pragma Pure_Function (Acos);
function Asin (X : Double) return Double;
- pragma Import (C, Asin, "asin");
+ pragma Import (Intrinsic, Asin, "asin");
pragma Pure_Function (Asin);
function Atan (X : Double) return Double;
- pragma Import (C, Atan, "atan");
+ pragma Import (Intrinsic, Atan, "atan");
pragma Pure_Function (Atan);
function Sinh (X : Double) return Double;
- pragma Import (C, Sinh, "sinh");
+ pragma Import (Intrinsic, Sinh, "sinh");
pragma Pure_Function (Sinh);
function Cosh (X : Double) return Double;
- pragma Import (C, Cosh, "cosh");
+ pragma Import (Intrinsic, Cosh, "cosh");
pragma Pure_Function (Cosh);
function Tanh (X : Double) return Double;
- pragma Import (C, Tanh, "tanh");
+ pragma Import (Intrinsic, Tanh, "tanh");
pragma Pure_Function (Tanh);
function Pow (X, Y : Double) return Double;
- pragma Import (C, Pow, "pow");
+ pragma Import (Intrinsic, Pow, "pow");
pragma Pure_Function (Pow);
end Ada.Numerics.Aux;
^ permalink raw reply [flat|nested] 3+ messages in thread
* [gcc(refs/users/aoliva/heads/testme)] import elementary functions as intrinsics
@ 2020-10-07 13:58 Alexandre Oliva
0 siblings, 0 replies; 3+ messages in thread
From: Alexandre Oliva @ 2020-10-07 13:58 UTC (permalink / raw)
To: gcc-cvs
https://gcc.gnu.org/g:9fc8ab5615a2d66b943770731b5039201b37438f
commit 9fc8ab5615a2d66b943770731b5039201b37438f
Author: Alexandre Oliva <oliva@adacore.com>
Date: Tue Sep 29 12:53:34 2020 -0300
import elementary functions as intrinsics
Diff:
---
gcc/ada/libgnat/a-numaux.ads | 26 +++++++++++++-------------
gcc/ada/libgnat/a-numaux__darwin.ads | 22 +++++++++++-----------
gcc/ada/libgnat/a-numaux__libc-x86.ads | 26 +++++++++++++-------------
gcc/ada/libgnat/a-numaux__vxworks.ads | 26 +++++++++++++-------------
4 files changed, 50 insertions(+), 50 deletions(-)
diff --git a/gcc/ada/libgnat/a-numaux.ads b/gcc/ada/libgnat/a-numaux.ads
index 3ad70671629..4154e1ab216 100644
--- a/gcc/ada/libgnat/a-numaux.ads
+++ b/gcc/ada/libgnat/a-numaux.ads
@@ -58,55 +58,55 @@ package Ada.Numerics.Aux is
-- all as pure functions, because indeed all of them are in fact pure.
function Sin (X : Double) return Double;
- pragma Import (C, Sin, "sin");
+ pragma Import (Intrinsic, Sin, "sin");
pragma Pure_Function (Sin);
function Cos (X : Double) return Double;
- pragma Import (C, Cos, "cos");
+ pragma Import (Intrinsic, Cos, "cos");
pragma Pure_Function (Cos);
function Tan (X : Double) return Double;
- pragma Import (C, Tan, "tan");
+ pragma Import (Intrinsic, Tan, "tan");
pragma Pure_Function (Tan);
function Exp (X : Double) return Double;
- pragma Import (C, Exp, "exp");
+ pragma Import (Intrinsic, Exp, "exp");
pragma Pure_Function (Exp);
function Sqrt (X : Double) return Double;
- pragma Import (C, Sqrt, "sqrt");
+ pragma Import (Intrinsic, Sqrt, "sqrt");
pragma Pure_Function (Sqrt);
function Log (X : Double) return Double;
- pragma Import (C, Log, "log");
+ pragma Import (Intrinsic, Log, "log");
pragma Pure_Function (Log);
function Acos (X : Double) return Double;
- pragma Import (C, Acos, "acos");
+ pragma Import (Intrinsic, Acos, "acos");
pragma Pure_Function (Acos);
function Asin (X : Double) return Double;
- pragma Import (C, Asin, "asin");
+ pragma Import (Intrinsic, Asin, "asin");
pragma Pure_Function (Asin);
function Atan (X : Double) return Double;
- pragma Import (C, Atan, "atan");
+ pragma Import (Intrinsic, Atan, "atan");
pragma Pure_Function (Atan);
function Sinh (X : Double) return Double;
- pragma Import (C, Sinh, "sinh");
+ pragma Import (Intrinsic, Sinh, "sinh");
pragma Pure_Function (Sinh);
function Cosh (X : Double) return Double;
- pragma Import (C, Cosh, "cosh");
+ pragma Import (Intrinsic, Cosh, "cosh");
pragma Pure_Function (Cosh);
function Tanh (X : Double) return Double;
- pragma Import (C, Tanh, "tanh");
+ pragma Import (Intrinsic, Tanh, "tanh");
pragma Pure_Function (Tanh);
function Pow (X, Y : Double) return Double;
- pragma Import (C, Pow, "pow");
+ pragma Import (Intrinsic, Pow, "pow");
pragma Pure_Function (Pow);
end Ada.Numerics.Aux;
diff --git a/gcc/ada/libgnat/a-numaux__darwin.ads b/gcc/ada/libgnat/a-numaux__darwin.ads
index f2a442815bb..add87a49193 100644
--- a/gcc/ada/libgnat/a-numaux__darwin.ads
+++ b/gcc/ada/libgnat/a-numaux__darwin.ads
@@ -57,47 +57,47 @@ package Ada.Numerics.Aux is
-- all as pure functions, because indeed all of them are in fact pure.
function Tan (X : Double) return Double;
- pragma Import (C, Tan, "tan");
+ pragma Import (Intrinsic, Tan, "tan");
pragma Pure_Function (Tan);
function Exp (X : Double) return Double;
- pragma Import (C, Exp, "exp");
+ pragma Import (Intrinsic, Exp, "exp");
pragma Pure_Function (Exp);
function Sqrt (X : Double) return Double;
- pragma Import (C, Sqrt, "sqrt");
+ pragma Import (Intrinsic, Sqrt, "sqrt");
pragma Pure_Function (Sqrt);
function Log (X : Double) return Double;
- pragma Import (C, Log, "log");
+ pragma Import (Intrinsic, Log, "log");
pragma Pure_Function (Log);
function Acos (X : Double) return Double;
- pragma Import (C, Acos, "acos");
+ pragma Import (Intrinsic, Acos, "acos");
pragma Pure_Function (Acos);
function Asin (X : Double) return Double;
- pragma Import (C, Asin, "asin");
+ pragma Import (Intrinsic, Asin, "asin");
pragma Pure_Function (Asin);
function Atan (X : Double) return Double;
- pragma Import (C, Atan, "atan");
+ pragma Import (Intrinsic, Atan, "atan");
pragma Pure_Function (Atan);
function Sinh (X : Double) return Double;
- pragma Import (C, Sinh, "sinh");
+ pragma Import (Intrinsic, Sinh, "sinh");
pragma Pure_Function (Sinh);
function Cosh (X : Double) return Double;
- pragma Import (C, Cosh, "cosh");
+ pragma Import (Intrinsic, Cosh, "cosh");
pragma Pure_Function (Cosh);
function Tanh (X : Double) return Double;
- pragma Import (C, Tanh, "tanh");
+ pragma Import (Intrinsic, Tanh, "tanh");
pragma Pure_Function (Tanh);
function Pow (X, Y : Double) return Double;
- pragma Import (C, Pow, "pow");
+ pragma Import (Intrinsic, Pow, "pow");
pragma Pure_Function (Pow);
end Ada.Numerics.Aux;
diff --git a/gcc/ada/libgnat/a-numaux__libc-x86.ads b/gcc/ada/libgnat/a-numaux__libc-x86.ads
index c4647fd7005..f6deebecbad 100644
--- a/gcc/ada/libgnat/a-numaux__libc-x86.ads
+++ b/gcc/ada/libgnat/a-numaux__libc-x86.ads
@@ -43,55 +43,55 @@ package Ada.Numerics.Aux is
-- all as pure functions, because indeed all of them are in fact pure.
function Sin (X : Double) return Double;
- pragma Import (C, Sin, "sinl");
+ pragma Import (Intrinsic, Sin, "sinl");
pragma Pure_Function (Sin);
function Cos (X : Double) return Double;
- pragma Import (C, Cos, "cosl");
+ pragma Import (Intrinsic, Cos, "cosl");
pragma Pure_Function (Cos);
function Tan (X : Double) return Double;
- pragma Import (C, Tan, "tanl");
+ pragma Import (Intrinsic, Tan, "tanl");
pragma Pure_Function (Tan);
function Exp (X : Double) return Double;
- pragma Import (C, Exp, "expl");
+ pragma Import (Intrinsic, Exp, "expl");
pragma Pure_Function (Exp);
function Sqrt (X : Double) return Double;
- pragma Import (C, Sqrt, "sqrtl");
+ pragma Import (Intrinsic, Sqrt, "sqrtl");
pragma Pure_Function (Sqrt);
function Log (X : Double) return Double;
- pragma Import (C, Log, "logl");
+ pragma Import (Intrinsic, Log, "logl");
pragma Pure_Function (Log);
function Acos (X : Double) return Double;
- pragma Import (C, Acos, "acosl");
+ pragma Import (Intrinsic, Acos, "acosl");
pragma Pure_Function (Acos);
function Asin (X : Double) return Double;
- pragma Import (C, Asin, "asinl");
+ pragma Import (Intrinsic, Asin, "asinl");
pragma Pure_Function (Asin);
function Atan (X : Double) return Double;
- pragma Import (C, Atan, "atanl");
+ pragma Import (Intrinsic, Atan, "atanl");
pragma Pure_Function (Atan);
function Sinh (X : Double) return Double;
- pragma Import (C, Sinh, "sinhl");
+ pragma Import (Intrinsic, Sinh, "sinhl");
pragma Pure_Function (Sinh);
function Cosh (X : Double) return Double;
- pragma Import (C, Cosh, "coshl");
+ pragma Import (Intrinsic, Cosh, "coshl");
pragma Pure_Function (Cosh);
function Tanh (X : Double) return Double;
- pragma Import (C, Tanh, "tanhl");
+ pragma Import (Intrinsic, Tanh, "tanhl");
pragma Pure_Function (Tanh);
function Pow (X, Y : Double) return Double;
- pragma Import (C, Pow, "powl");
+ pragma Import (Intrinsic, Pow, "powl");
pragma Pure_Function (Pow);
end Ada.Numerics.Aux;
diff --git a/gcc/ada/libgnat/a-numaux__vxworks.ads b/gcc/ada/libgnat/a-numaux__vxworks.ads
index c291334304e..410655de8a6 100644
--- a/gcc/ada/libgnat/a-numaux__vxworks.ads
+++ b/gcc/ada/libgnat/a-numaux__vxworks.ads
@@ -43,55 +43,55 @@ package Ada.Numerics.Aux is
-- all as pure functions, because indeed all of them are in fact pure.
function Sin (X : Double) return Double;
- pragma Import (C, Sin, "sin");
+ pragma Import (Intrinsic, Sin, "sin");
pragma Pure_Function (Sin);
function Cos (X : Double) return Double;
- pragma Import (C, Cos, "cos");
+ pragma Import (Intrinsic, Cos, "cos");
pragma Pure_Function (Cos);
function Tan (X : Double) return Double;
- pragma Import (C, Tan, "tan");
+ pragma Import (Intrinsic, Tan, "tan");
pragma Pure_Function (Tan);
function Exp (X : Double) return Double;
- pragma Import (C, Exp, "exp");
+ pragma Import (Intrinsic, Exp, "exp");
pragma Pure_Function (Exp);
function Sqrt (X : Double) return Double;
- pragma Import (C, Sqrt, "sqrt");
+ pragma Import (Intrinsic, Sqrt, "sqrt");
pragma Pure_Function (Sqrt);
function Log (X : Double) return Double;
- pragma Import (C, Log, "log");
+ pragma Import (Intrinsic, Log, "log");
pragma Pure_Function (Log);
function Acos (X : Double) return Double;
- pragma Import (C, Acos, "acos");
+ pragma Import (Intrinsic, Acos, "acos");
pragma Pure_Function (Acos);
function Asin (X : Double) return Double;
- pragma Import (C, Asin, "asin");
+ pragma Import (Intrinsic, Asin, "asin");
pragma Pure_Function (Asin);
function Atan (X : Double) return Double;
- pragma Import (C, Atan, "atan");
+ pragma Import (Intrinsic, Atan, "atan");
pragma Pure_Function (Atan);
function Sinh (X : Double) return Double;
- pragma Import (C, Sinh, "sinh");
+ pragma Import (Intrinsic, Sinh, "sinh");
pragma Pure_Function (Sinh);
function Cosh (X : Double) return Double;
- pragma Import (C, Cosh, "cosh");
+ pragma Import (Intrinsic, Cosh, "cosh");
pragma Pure_Function (Cosh);
function Tanh (X : Double) return Double;
- pragma Import (C, Tanh, "tanh");
+ pragma Import (Intrinsic, Tanh, "tanh");
pragma Pure_Function (Tanh);
function Pow (X, Y : Double) return Double;
- pragma Import (C, Pow, "pow");
+ pragma Import (Intrinsic, Pow, "pow");
pragma Pure_Function (Pow);
end Ada.Numerics.Aux;
^ permalink raw reply [flat|nested] 3+ messages in thread
end of thread, other threads:[~2020-10-07 13:58 UTC | newest]
Thread overview: 3+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2020-10-06 10:45 [gcc(refs/users/aoliva/heads/testme)] import elementary functions as intrinsics Alexandre Oliva
2020-10-07 10:50 Alexandre Oliva
2020-10-07 13:58 Alexandre Oliva
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).