From 07e7b817c59c3dce263bfb89b51248316c343f0e Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
Date: Mon, 7 Oct 2024 19:51:28 +1300
Subject: Now using Integer_Address for C interface

---
 src/portaudio-streams.ads | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/portaudio-streams.ads')

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;
-- 
cgit