blob: f19826d63575625287fd65bf4acb0db3f47058b3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
package body Noinline3_Pkg is
function Inner (A, B : Integer) return Integer;
pragma No_Inline (Inner);
function Inner (A, B : Integer) return Integer is
begin
return A + B;
end;
function F (A, B : Integer) return Integer is
begin
return Inner (A, B) + Inner (A, -B);
end;
end Noinline3_Pkg;
|