From: beware <beware@bircd.org>
Date: Wed, 1 Oct 2025 22:32:46 +0000 (+0000)
Subject: unitfork: getfs was deprecated in fpc 2.6.2, use getfilehandle
X-Git-Url: http://www.lcore.org/git/lcore.git/commitdiff_plain/d7911799068d97efe3695e4097c9ab188b54218c?hp=6313ac6edd9ede352b1cfa5b6cd29fac79e21e0c

unitfork: getfs was deprecated in fpc 2.6.2, use getfilehandle
---

diff --git a/unitfork.pas b/unitfork.pas
index 3bcb3b1..9e8503f 100644
--- a/unitfork.pas
+++ b/unitfork.pas
@@ -65,7 +65,11 @@ begin
     if ioresult <> 0 then exit;
   end;
 
+  {$IF FPC_FULLVERSION>=20602}
+  handle := getfilehandle(pidfile);
+  {$else}
   handle := getfs(pidfile);
+  {$endif}
 
   //debugout('got handle');
   {check if locking is possible: it's not if other process still runs}