@@ 197,8 197,6 @@ package body Generic_PN532 is
          return;
       end if;
 
-      -- Log (Reply (1..Len));
-
       Sens_Res := Unsigned_16 (Reply (5)) * 256 or Unsigned_16 (Reply (4));
       Sel_Res := Reply (6);
 

          
@@ 343,11 341,8 @@ package body Generic_PN532 is
       end if;
 
       PN532_Read_Data (Reply, Reply_Len, Ok);
-      -- Log ("Reply:");
-      -- Log (Reply (1..Reply_Len));
 
       if (not Ok) or (Reply_Len < 3) then
-         -- Log ("Read data failed");
          Status := False;
          return;
       end if;

          
@@ 389,19 384,16 @@ package body Generic_PN532 is
       end if;
 
       if not PN532_Wait_For_Ready (PN532_TIMEOUT_VALUE * 30) then
-         -- Log ("select: PN532_Wait_For_Ready failed");
          return False;
       end if;
 
       PN532_Read_Data (Data, Reply_Len, Ok);
 
       if (not Ok) or (Reply_Len < 5) then
-         -- Log ("select: PN532_Read_Data failed");
          return False;
       end if;
 
       if Data (2) /= 0 then -- status code not ok?
-         Log ("select: PN532_Read_Data - status code invalid");
          return False;
       end if;
 

          
@@ 410,11 402,9 @@ package body Generic_PN532 is
          return True;
       elsif Data (Reply_Len - 2) = 16#6A# and Data (Reply_Len - 1) = 16#82# then
          -- application not found
-         Log ("select: application not found");
          null;
       else
-         Log ("select: unknown status");
-         Log (Data (1..Reply_Len));
+         null; -- XXX unknown status, ignoring
       end if;
 
       return False;

          
@@ 478,9 468,8 @@ package body Generic_PN532 is
       Byte_Count : out Unsigned_8;
       Status     : out Boolean)
    is
-      -- Data : PN532_Buf (1..90);
+
       Len : Unsigned_8;
-      -- Reply : PN532_Buf (1..90);
       Reply_Len : Unsigned_8 := 0;
       Ok    : Boolean;
    begin

          
@@ 649,7 638,6 @@ package body Generic_PN532 is
    is
       Cmd : PN532_Buf (1..1) := (1 => PN532_TG_GET_DATA);
       Ok : Boolean;
-      -- Reply : PN532_Buf (1..48);
       Reply_Len : Unsigned_8;
    begin
       Ok := PN532_Send_Command (Cmd, PN532_TIMEOUT_VALUE);

          
@@ 715,7 703,6 @@ package body Generic_PN532 is
    function PN532_Init_As_Target return Boolean is
       use type System.Address;
 
-      -- Data  : PN532_Buf (1..40);
       Len   : Unsigned_8;
       Ok    : Boolean;
    begin