1 package body Misaligned_Param_Pkg
is
3 type IP
is access all Integer;
5 function Channel_Eth
(Kind
: IP
) return Integer;
6 pragma Export
(Ada
, Channel_Eth
, "channel_eth");
8 function Channel_Eth
(Kind
: IP
) return Integer is
14 end Misaligned_Param_Pkg
;