Subversion Repositories openrisc

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;