Cleaning continued

ficorax · Jan 19, 2025 · 71dba27 · 71dba27
1 parent 71e430f
commit 71dba27
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 6 deletions.
diff --git 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
@@ -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
@@ -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