Forgot to change the callbacks to Integer_AddressHEADmaster

1 files changed, 11 insertions, 12 deletions

diff --git a/src/portaudio-streams.adb b/src/portaudio-streams.adb
index 070da8b..e067d24 100644
--- a/src/portaudio-streams.adb
+++ b/src/portaudio-streams.adb
@@ -17,8 +17,7 @@ use type
     Interfaces.C.double,
     Interfaces.C.int,
     Interfaces.C.long,
-    Interfaces.C.unsigned_long,
-    System.Address;
+    Interfaces.C.unsigned_long;
 
 
 package body Portaudio.Streams is
@@ -255,32 +254,32 @@ package body Portaudio.Streams is
     ----------------------
 
     function Stream_Callback_Hook
-           (Input_Ptr   : in System.Address;
-            Output_Ptr  : in System.Address;
+           (Input_Ptr   : in Storage.Integer_Address;
+            Output_Ptr  : in Storage.Integer_Address;
             Frame_Count : in Interfaces.C.unsigned_long;
-            Time_Ptr    : in System.Address;
+            Time_Ptr    : in Storage.Integer_Address;
             Flag_Mask   : in Interfaces.C.unsigned_long;
-            Userdata    : in System.Address)
+            Userdata    : in Storage.Integer_Address)
         return Interfaces.C.int
     is
         Stream_Actual : Audio_Stream;
-        for Stream_Actual'Address use Userdata;
+        for Stream_Actual'Address use Storage.To_Address (Userdata);
         pragma Import (Ada, Stream_Actual);
 
         Input_Buffer : Buffer :=
            (My_Sam_Code => Stream_Actual.Sin,
             My_Channels => Natural (Stream_Actual.Chin),
             My_Frames   => Frame_Amount (Frame_Count),
-            My_Array    => Input_Ptr);
+            My_Array    => Storage.To_Address (Input_Ptr));
 
         Output_Buffer : Buffer :=
            (My_Sam_Code => Stream_Actual.Sout,
             My_Channels => Natural (Stream_Actual.Chout),
             My_Frames   => Frame_Amount (Frame_Count),
-            My_Array    => Output_Ptr);
+            My_Array    => Storage.To_Address (Output_Ptr));
 
         Raw_Time : C_Callback_Time_Info;
-        for Raw_Time'Address use Time_Ptr;
+        for Raw_Time'Address use Storage.To_Address (Time_Ptr);
         pragma Import (Ada, Raw_Time);
 
         Result : Callback_Result;
@@ -301,10 +300,10 @@ package body Portaudio.Streams is
     end Stream_Callback_Hook;
 
     procedure Stream_Finished_Callback_Hook
-           (Userdata : in System.Address)
+           (Userdata : in Storage.Integer_Address)
     is
         Stream_Actual : Audio_Stream;
-        for Stream_Actual'Address use Userdata;
+        for Stream_Actual'Address use Storage.To_Address (Userdata);
         pragma Import (Ada, Stream_Actual);
     begin
         Stream_Actual.Finfun.all;