Now using Integer_Address for C interface

1 files changed, 2 insertions, 2 deletions

diff --git a/src/portaudio-streams.ads b/src/portaudio-streams.ads
index 0f3d2ba..4a431b8 100644
--- a/src/portaudio-streams.ads
+++ b/src/portaudio-streams.ads
@@ -482,7 +482,7 @@ private
         My_Channels : Interfaces.C.int;
         My_Samples  : Interfaces.C.unsigned_long;
         My_Latency  : Interfaces.C.double;
-        My_Specific : System.Address;
+        My_Specific : Storage.Integer_Address;
     end record with Convention => C;
 
 
@@ -506,7 +506,7 @@ private
 
 
     type Audio_Stream is tagged limited record
-        Ptr     : System.Address;
+        Ptr     : Storage.Integer_Address;
         Open    : Boolean := False;
         Callfun : Callback_Function;
         Finfun  : Stream_Finished_Function;