summaryrefslogtreecommitdiff
path: root/example/aao_example.adb
diff options
context:
space:
mode:
Diffstat (limited to 'example/aao_example.adb')
-rw-r--r--example/aao_example.adb8
1 files changed, 2 insertions, 6 deletions
diff --git a/example/aao_example.adb b/example/aao_example.adb
index 7d12b56..fd32e38 100644
--- a/example/aao_example.adb
+++ b/example/aao_example.adb
@@ -27,12 +27,9 @@ procedure AAO_Example is
begin
- -- Initialize
TIO.Put_Line ("libao example program");
- Libao.Startup;
-
-- Setup for default driver
@@ -89,12 +86,11 @@ begin
-- Close and shutdown
- -- Technically the binding will take care of closing open devices at shutdown,
- -- but it is always good practice to close them anyway.
+ -- Technically the binding will take care of closing open devices at the
+ -- end of runtime, but it is always good practice to close them anyway.
Libao.Close (My_Device);
- Libao.Shutdown;
end AAO_Example;