15 lines
305 B
Ada
15 lines
305 B
Ada
|
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;
|