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;