blob: 888ed18c3ae55bdac7a16d2bf27bfd3495aab22e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
package body Misaligned_Param_Pkg is
type IP is access all Integer;
function Channel_Eth (Kind : IP) return Integer;
pragma Export (Ada, Channel_Eth, "channel_eth");
function Channel_Eth (Kind : IP) return Integer is
begin
Kind.all := 111;
return 0;
end;
end Misaligned_Param_Pkg;
|