From 71dba273ad8fe31aaa349224fa368fffd62817b9 Mon Sep 17 00:00:00 2001 From: Marek Kuziel Date: Sun, 19 Jan 2025 12:44:36 +0100 Subject: [PATCH] Cleaning continued --- .../Extensions/cfa-extensions-configurable_audio_ports.ads | 2 +- cfa/src/Extensions/cfa-extensions-guis.ads | 6 +++--- cfa/src/cfa-hosts.ads | 4 ++-- 3 files changed, 6 insertions(+), 6 deletions(-) diff --git a/cfa/src/Extensions/cfa-extensions-configurable_audio_ports.ads b/cfa/src/Extensions/cfa-extensions-configurable_audio_ports.ads index d7e373d..95d1a19 100644 --- a/cfa/src/Extensions/cfa-extensions-configurable_audio_ports.ads +++ b/cfa/src/Extensions/cfa-extensions-configurable_audio_ports.ads @@ -78,7 +78,7 @@ package CfA.Extensions.Configurable_Audio_Ports is -- or discarded together. -- -- Once the configuration is successfully applied, it isn't necessary for the plugin to call - -- clap_host_audio_ports->changed(); and it isn't necessary for the host to scan the + -- Clap_Host_Audio_Ports.Changed; and it isn't necessary for the host to scan the -- audio ports. -- -- Returns true if applied. diff --git a/cfa/src/Extensions/cfa-extensions-guis.ads b/cfa/src/Extensions/cfa-extensions-guis.ads index be7b6b3..d724f8a 100644 --- a/cfa/src/Extensions/cfa-extensions-guis.ads +++ b/cfa/src/Extensions/cfa-extensions-guis.ads @@ -98,8 +98,8 @@ package CfA.Extensions.GUIs is CLAP_Window_API_Wayland : constant Chars_Ptr := Interfaces.C.Strings.New_String ("wayland"); - subtype CLAP_Hwnd is System.Address; - subtype CLAP_Nsview is System.Address; + subtype CLAP_Hwnd is Void_Ptr; + subtype CLAP_Nsview is Void_Ptr; subtype CLAP_Xwnd is Interfaces.C.unsigned_long; -- Represent a window reference. @@ -119,7 +119,7 @@ package CfA.Extensions.GUIs is Win32 : CLAP_Hwnd := System.Null_Address; when Unknown_Idx => -- for anything defined outside of CLAP - Unknown : System.Address := System.Null_Address; + Unknown : Void_Ptr := Null_Void_Ptr; end case; end record with Convention => C, Unchecked_Union; diff --git a/cfa/src/cfa-hosts.ads b/cfa/src/cfa-hosts.ads index cb96bf0..6d0654c 100644 --- a/cfa/src/cfa-hosts.ads +++ b/cfa/src/cfa-hosts.ads @@ -31,7 +31,7 @@ package CfA.Hosts is type Get_Extension_Function is access function (Host : CLAP_Host_Access; Extension_ID : Chars_Ptr) - return System.Address + return Void_Ptr with Convention => C; -- Query an extension. -- The returned pointer is owned by the host. @@ -56,7 +56,7 @@ package CfA.Hosts is type Request_Callback_Function is access procedure (Host : CLAP_Host_Access) with Convention => C; - -- Request the host to schedule a call to plugin->on_main_thread(plugin) on the main thread. + -- Request the host to schedule a call to Plugin.On_Main_Thread (Plugin) on the main thread. -- [thread-safe] type CLAP_Host is