make sin and cos generics inlineable
authorAlexandre Oliva <oliva@adacore.com>
Mon, 12 Oct 2020 21:55:37 +0000 (18:55 -0300)
committerAlexandre Oliva <oliva@gnu.org>
Mon, 12 Oct 2020 21:55:37 +0000 (18:55 -0300)
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.

gcc/ada/libgnat/a-ngelfu.ads

index 1a8e1764d21eb51aa3d4d431171904eb1ce706b1..70f9b7a969d8d18054bbc2300a570f6557f4f6bb 100644 (file)
@@ -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);