# HG changeset patch
# User Tero Koskinen <tero.koskinen@iki.fi>
# Date 1438279645 -10800
#      Thu Jul 30 21:07:25 2015 +0300
# Node ID 401f9ca6a936e0a43e94924d10027db144b97c2e
# Parent  11b2e01fa9d7e934b7d0cd679141843845aa81d8
Remove commented out code.

diff --git a/generic_pn532.adb b/generic_pn532.adb
--- a/generic_pn532.adb
+++ b/generic_pn532.adb
@@ -197,8 +197,6 @@
          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 @@
       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 @@
       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 @@
          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 @@
       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 @@
    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 @@
    function PN532_Init_As_Target return Boolean is
       use type System.Address;
 
-      -- Data  : PN532_Buf (1..40);
       Len   : Unsigned_8;
       Ok    : Boolean;
    begin