File : debug.ads

with System, System.Storage_Elements, Net;

package Debug is
   function To_Hex (pointer  : System.Address;
                    len      : Net.Integer_32;
                    fillchar : Character := ' ';
                    max      : Net.Integer_32 := 16)
     return String;

   procedure Dump (pointer : in System.Address;
                   len     : in Net.Integer_32;
                   offset  : in System.Storage_Elements.Storage_Offset := 0);

   procedure Dump (p : in Net.Payload_Type);

   function Dump (p : Net.Payload_Type) return Net.Payload_Type;
   
   procedure Log (msg : in String);
end Debug;