Move Init to up also.
1 files changed, 1 insertions(+), 19 deletions(-)

M pn532_twi.adb
M pn532_twi.adb +1 -19
@@ 30,6 30,7 @@ use Interfaces;
 package body PN532_TWI is
    use AVR;
 
+   procedure Init renames PN532_BUS_I2C.Init;
    function PN532_Busy return Boolean renames PN532_BUS_I2C.PN532_Busy;
    procedure PN532_Write (Cmd : PN532_Buf) renames PN532_BUS_I2C.PN532_Write;
    procedure PN532_Read_Raw (Buf : out PN532_Buf) renames PN532_BUS_I2C.PN532_Read_Raw;

          
@@ 937,23 938,4 @@ package body PN532_TWI is
          end if;
       end loop;
    end PN532_NFC_Forum_Type_4_Emulate;
-
-   procedure Init renames PN532_BUS_I2C.Init;
---      Empty_Buf : AVR.I2C.Data_Buffer (1 .. 1) := (1 => 16#55#);
---   begin
---      Log ("PN532.Init");
---      AVR.I2C.Master.Init;
---
---      AVR.MCU.DDRD_Bits (6) := DD_Output;
---      AVR.MCU.DDRD_Bits (3) := DD_Output; -- Reset pin
---      AVR.MCU.DDRD_Bits (2) := DD_Input; -- IRQ, digital pin 2
---      AVR.MCU.PORTD_Bits (3) := True;
---      AVR.MCU.PORTD_Bits (3) := False;
---      AVR.MCU.PORTD_Bits (6) := False;
---      delay 0.4;
---      AVR.MCU.PORTD_Bits (6) := True;
---      AVR.MCU.PORTD_Bits (3) := True;
---
---      Log ("PN532.Init done");
---   end Init;
 end PN532_TWI;