diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2023-07-26 22:32:42 +1200 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2023-07-26 22:32:42 +1200 |
| commit | a9a297e8f7282bcc9b3ffb14862160bb1abad511 (patch) | |
| tree | a98e21194729781855a7844235994afe5cb91b98 /src/libao.ads | |
| parent | 2a68b941e023a891df495ae6636fe3ae7c5e66b6 (diff) | |
Changed data buffer type for better interop with other libraries
Diffstat (limited to 'src/libao.ads')
| -rw-r--r-- | src/libao.ads | 5 |
1 files changed, 4 insertions, 1 deletions
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; |