From b9703b29819b619037cc282d719c187e51bacd30 Mon Sep 17 00:00:00 2001
From: Tomas Bzatek <tbzatek@redhat.com>
Date: Mon, 23 Dec 2024 23:59:45 +0100
Subject: Port to g-i generated glib2 bindings

Includes switch to FPC -Mobjfpc and related pointer style fixes.
---
 UFileAssoc.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'UFileAssoc.pas')

diff --git a/UFileAssoc.pas b/UFileAssoc.pas
index 4b4f355..60ee2d5 100644
--- a/UFileAssoc.pas
+++ b/UFileAssoc.pas
@@ -206,7 +206,7 @@ begin
               if b then Break;
             end;
             if b then begin
-              Result := PluginList[i];
+              Result := TVFSPlugin(PluginList[i]);
               MaxFound := Length(s);
             end;
           end;
@@ -236,7 +236,7 @@ begin
               if b then Break;
             end;
             if b then begin
-              Result := AssocList[i];
+              Result := TFileAssoc(AssocList[i]);
               MaxFound := Length(s);
             end;
           end;
-- 
cgit v1.2.3