summaryrefslogtreecommitdiff
path: root/example
diff options
context:
space:
mode:
Diffstat (limited to 'example')
-rw-r--r--example/virtual_io_example.adb7
1 files changed, 4 insertions, 3 deletions
diff --git a/example/virtual_io_example.adb b/example/virtual_io_example.adb
index 8953c07..add9b56 100644
--- a/example/virtual_io_example.adb
+++ b/example/virtual_io_example.adb
@@ -15,6 +15,7 @@ with
Ada.Directories,
Ada.Direct_IO,
Ada.Text_IO,
+ Interfaces,
Libsndfile.Virtual;
use type
@@ -27,7 +28,7 @@ procedure Virtual_IO_Example is
package ACom renames Ada.Command_Line;
package ADir renames Ada.Directories;
- package DIO is new Ada.Direct_IO (Element_Type => Character);
+ package DIO is new Ada.Direct_IO (Element_Type => Interfaces.Unsigned_8);
package TIO renames Ada.Text_IO;
@@ -69,7 +70,7 @@ procedure Virtual_IO_Example is
Bytes : in Libsndfile.Count_Type)
return Libsndfile.Count_Type
is
- Item : Character;
+ Item : Interfaces.Unsigned_8;
Data_Position : Integer := 1;
begin
while Current_Offset <= Libsndfile.Count_Type (DIO.Size (Virtual_File)) and
@@ -88,7 +89,7 @@ procedure Virtual_IO_Example is
Bytes : in Libsndfile.Count_Type)
return Libsndfile.Count_Type
is
- Item : Character;
+ Item : Interfaces.Unsigned_8;
Data_Position : Integer := 1;
begin
while Current_Offset <= Libsndfile.Count_Type (DIO.Size (Virtual_File)) and