From a9a297e8f7282bcc9b3ffb14862160bb1abad511 Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
Date: Wed, 26 Jul 2023 22:32:42 +1200
Subject: Changed data buffer type for better interop with other libraries

---
 src/libao.ads | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'src/libao.ads')

diff --git a/src/libao.ads b/src/libao.ads
index baea557..db5f7ce 100644
--- a/src/libao.ads
+++ b/src/libao.ads
@@ -29,7 +29,7 @@ package Libao is
     type Driver_ID_Number is new Natural;
 
 
-    type Data_Buffer is new String;
+    type Data_Buffer is array (Positive range <>) of Interfaces.Unsigned_8;
 
 
     type Device is tagged private;
@@ -214,6 +214,9 @@ private
     pragma Linker_Options ("-lao");
 
 
+    for Data_Buffer'Component_Size use Interfaces.C.CHAR_BIT;
+
+
     procedure Do_Append
            (Ptr   : in out System.Address;
             Key   : in     Interfaces.C.char_array;
-- 
cgit