From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 2140) id 85D8D3861841; Wed, 7 Oct 2020 13:58:42 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 85D8D3861841 Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit From: Alexandre Oliva To: gcc-cvs@gcc.gnu.org Subject: [gcc(refs/users/aoliva/heads/testme)] import elementary functions as intrinsics X-Act-Checkin: gcc X-Git-Author: Alexandre Oliva X-Git-Refname: refs/users/aoliva/heads/testme X-Git-Oldrev: 15af82f31a5e371171be80e6e34ffb74d2c5c658 X-Git-Newrev: 9fc8ab5615a2d66b943770731b5039201b37438f Message-Id: <20201007135842.85D8D3861841@sourceware.org> Date: Wed, 7 Oct 2020 13:58:42 +0000 (GMT) X-BeenThere: gcc-cvs@gcc.gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Gcc-cvs mailing list List-Unsubscribe: , List-Archive: List-Help: List-Subscribe: , X-List-Received-Date: Wed, 07 Oct 2020 13:58:42 -0000 https://gcc.gnu.org/g:9fc8ab5615a2d66b943770731b5039201b37438f commit 9fc8ab5615a2d66b943770731b5039201b37438f Author: Alexandre Oliva 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;