From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 2140) id 0A4F23857C74; Wed, 7 Oct 2020 10:50:05 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 0A4F23857C74 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)] make sin and cos generics inlineable X-Act-Checkin: gcc X-Git-Author: Alexandre Oliva X-Git-Refname: refs/users/aoliva/heads/testme X-Git-Oldrev: 28511c67f64a9484ff0e4a8cd7fd75dce0decfa2 X-Git-Newrev: ca8bdad217e20f5d88e8a1234d8f287879a2d55f Message-Id: <20201007105005.0A4F23857C74@sourceware.org> Date: Wed, 7 Oct 2020 10:50:05 +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 10:50:05 -0000 https://gcc.gnu.org/g:ca8bdad217e20f5d88e8a1234d8f287879a2d55f commit ca8bdad217e20f5d88e8a1234d8f287879a2d55f Author: Alexandre Oliva Date: Tue Sep 29 12:52:41 2020 -0300 make sin and cos generics inlineable Diff: --- gcc/ada/libgnat/a-ngcefu.ads | 2 ++ gcc/ada/libgnat/a-ngelfu.ads | 2 ++ 2 files changed, 4 insertions(+) diff --git a/gcc/ada/libgnat/a-ngcefu.ads b/gcc/ada/libgnat/a-ngcefu.ads index 576c84ab267..ca0256ece08 100644 --- a/gcc/ada/libgnat/a-ngcefu.ads +++ b/gcc/ada/libgnat/a-ngcefu.ads @@ -33,7 +33,9 @@ package Ada.Numerics.Generic_Complex_Elementary_Functions is function "**" (Left : Real'Base; Right : Complex) return Complex; function Sin (X : Complex) return Complex; + pragma Inline (Sin); function Cos (X : Complex) return Complex; + pragma Inline (Cos); function Tan (X : Complex) return Complex; function Cot (X : Complex) return Complex; diff --git a/gcc/ada/libgnat/a-ngelfu.ads b/gcc/ada/libgnat/a-ngelfu.ads index 1a8e1764d21..957c4946aec 100644 --- a/gcc/ada/libgnat/a-ngelfu.ads +++ b/gcc/ada/libgnat/a-ngelfu.ads @@ -94,6 +94,7 @@ is function Sin (X : Float_Type'Base) return Float_Type'Base with Post => Sin'Result in -1.0 .. 1.0 and then (if X = 0.0 then Sin'Result = 0.0); + pragma Inline (Sin); function Sin (X, Cycle : Float_Type'Base) return Float_Type'Base with Pre => Cycle > 0.0, @@ -103,6 +104,7 @@ is function Cos (X : Float_Type'Base) return Float_Type'Base with Post => Cos'Result in -1.0 .. 1.0 and then (if X = 0.0 then Cos'Result = 1.0); + pragma Inline (Cos); function Cos (X, Cycle : Float_Type'Base) return Float_Type'Base with Pre => Cycle > 0.0,