From 051cbfe4113a906087cd7f64408a95ed53b5c76d Mon Sep 17 00:00:00 2001
From: Ugochukwu Mmaduekwe <ugo4brain@gmail.com>
Date: Wed, 1 Jul 2026 19:57:29 +0100
Subject: [PATCH] fix Delphi macOS compilation

---
 HashLib/src/Utils/HlpDarwinSysCtl.pas | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/HashLib/src/Utils/HlpDarwinSysCtl.pas b/HashLib/src/Utils/HlpDarwinSysCtl.pas
index 30f00d87..cff9b67a 100644
--- a/HashLib/src/Utils/HlpDarwinSysCtl.pas
+++ b/HashLib/src/Utils/HlpDarwinSysCtl.pas
@@ -64,12 +64,17 @@ implementation
 
 class procedure TDarwinSysCtl.ResolveDynamicImports();
 var
-  LHandle: Pointer;
+  LHandle: NativeUInt;
 begin
   FSysCtlByName := nil;
 
+{$IFDEF FPC}
+  LHandle := NativeUInt(dlopen(nil, RTLD_NOW));
+{$ELSE}
   LHandle := dlopen(nil, RTLD_NOW);
-  if LHandle = nil then
+{$ENDIF}
+
+  if LHandle = 0 then
     Exit;
 
   try