Re: Porting from Modula-2 to Ada

[Lutz Donnerhacke <lutz@iks-jena.de>]

* Bernd Specht wrote:
> Would it be an idea not to substitute the procedure by _one_ other
> procedure but with a set of overloaded procedures?
> 
> procedure Xxx (raw : Integer_Field) is ...
> procedure Xxx (raw : Character_Field) is ...
> procedure Xxx (raw : Float_Field) is ...

And now use generics:

generic
  type T(<>) is limited private;
procedure Xxx (data : T);

procedure Xxx (data : T) is
  use System.Storage_Elements;
  raw : Storage_Array (Storage_Offset'First ..
        Storage_Offset'First + (data'Size + Storage_Unit - 1) / Storage_Unit);
  pragma Import (Ada, raw);
  for raw'Address use data'Address;
begin
  ...