public inbox for gcc-cvs@sourceware.org
help / color / mirror / Atom feed
* [gcc(refs/users/aoliva/heads/testme)] make sin and cos generics inlineable
@ 2020-10-07 13:58 Alexandre Oliva
  0 siblings, 0 replies; 4+ messages in thread
From: Alexandre Oliva @ 2020-10-07 13:58 UTC (permalink / raw)
  To: gcc-cvs

https://gcc.gnu.org/g:15af82f31a5e371171be80e6e34ffb74d2c5c658

commit 15af82f31a5e371171be80e6e34ffb74d2c5c658
Author: Alexandre Oliva <oliva@adacore.com>
Date:   Tue Sep 29 12:52:41 2020 -0300

    make sin and cos generics inlineable

Diff:
---
 gcc/ada/libgnat/a-ngelfu.ads | 2 ++
 1 file changed, 2 insertions(+)

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,


^ permalink raw reply	[flat|nested] 4+ messages in thread
* [gcc(refs/users/aoliva/heads/testme)] make sin and cos generics inlineable
@ 2020-10-12 17:31 Alexandre Oliva
  0 siblings, 0 replies; 4+ messages in thread
From: Alexandre Oliva @ 2020-10-12 17:31 UTC (permalink / raw)
  To: gcc-cvs

https://gcc.gnu.org/g:05328e52b154e2208bae5eee8bbdeec045ce33c8

commit 05328e52b154e2208bae5eee8bbdeec045ce33c8
Author: Alexandre Oliva <oliva@adacore.com>
Date:   Mon Oct 12 14:28:19 2020 -0300

    make sin and cos generics inlineable
    
    Enable the sincos optimization within callers of these
    (single-argument) elementary functions.
    
    for  gcc/ada/ChangeLog
    
            * libgnat/a-ngelfu.ads (Sin, Cos): Make the single-argument
            functions inline.

Diff:
---
 gcc/ada/libgnat/a-ngelfu.ads | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/gcc/ada/libgnat/a-ngelfu.ads b/gcc/ada/libgnat/a-ngelfu.ads
index 1a8e1764d21..70f9b7a969d 100644
--- a/gcc/ada/libgnat/a-ngelfu.ads
+++ b/gcc/ada/libgnat/a-ngelfu.ads
@@ -92,6 +92,7 @@ is
        and then (if Left  = 0.0 then "**"'Result = 0.0);
 
    function Sin (X : Float_Type'Base) return Float_Type'Base with
+     Inline,
      Post => Sin'Result in -1.0 .. 1.0
        and then (if X = 0.0 then Sin'Result = 0.0);
 
@@ -101,6 +102,7 @@ is
        and then (if X = 0.0 then Sin'Result = 0.0);
 
    function Cos (X : Float_Type'Base) return Float_Type'Base with
+     Inline,
      Post => Cos'Result in -1.0 .. 1.0
        and then (if X = 0.0 then Cos'Result = 1.0);


^ permalink raw reply	[flat|nested] 4+ messages in thread
* [gcc(refs/users/aoliva/heads/testme)] make sin and cos generics inlineable
@ 2020-10-07 10:50 Alexandre Oliva
  0 siblings, 0 replies; 4+ messages in thread
From: Alexandre Oliva @ 2020-10-07 10:50 UTC (permalink / raw)
  To: gcc-cvs

https://gcc.gnu.org/g:ca8bdad217e20f5d88e8a1234d8f287879a2d55f

commit ca8bdad217e20f5d88e8a1234d8f287879a2d55f
Author: Alexandre Oliva <oliva@adacore.com>
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,


^ permalink raw reply	[flat|nested] 4+ messages in thread
* [gcc(refs/users/aoliva/heads/testme)] make sin and cos generics inlineable
@ 2020-10-06 10:45 Alexandre Oliva
  0 siblings, 0 replies; 4+ messages in thread
From: Alexandre Oliva @ 2020-10-06 10:45 UTC (permalink / raw)
  To: gcc-cvs

https://gcc.gnu.org/g:b62b2062b56eb70e922f153d18cfbfa56b9ff08c

commit b62b2062b56eb70e922f153d18cfbfa56b9ff08c
Author: Alexandre Oliva <oliva@adacore.com>
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,


^ permalink raw reply	[flat|nested] 4+ messages in thread
end of thread, other threads:[~2020-10-12 17:31 UTC | newest]

Thread overview: 4+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2020-10-07 13:58 [gcc(refs/users/aoliva/heads/testme)] make sin and cos generics inlineable Alexandre Oliva
  -- strict thread matches above, loose matches on Subject: below --
2020-10-12 17:31 Alexandre Oliva
2020-10-07 10:50 Alexandre Oliva
2020-10-06 10:45 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).