blob: d3f1273b3a6b95506a27b39051fefbd5cdc6b5c2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
package Strub_Ind1 is
procedure P (X : Integer);
pragma Machine_Attribute (P, "strub", "internal");
function F (X : Integer) return Integer;
pragma Machine_Attribute (F, "strub");
X : aliased Integer := 0;
pragma Machine_Attribute (X, "strub");
type FT is access function (X : Integer) return Integer;
pragma Machine_Attribute (FT, "strub", "at-calls");
FP : FT := F'Access;
pragma Machine_Attribute (FP, "strub", "at-calls");
end Strub_Ind1;
|
