Translate from C

[Jean-Baptiste CAMPESATO <camje_lemon@a2lf.org>]

Hello,
I've this code in C : http://www.a2lf.org/util.c
and i want to translate it in Ada; 
A friend tried :
   procedure Copy
     (Source      : Address;
      Destination : Address;
      Bytes       : Natural)
   is
      S : String (1 .. Bytes);
      D : String (1 .. Bytes);
      for S'Address use Source;
      for D'Address use Destination;
   begin
      for I in S'Range loop
         D (I) := S (I);
      end loop;
   end Copy;

Do you think it's Ok ?

Thanks.