fix: broken compiler conditionals

ansgarbecker · ansgarbecker · commit 556e4fbf9a01 · 2025-12-19T11:50:56.000+01:00
Refs #2337
diff --git a/source/dbconnection.pas b/source/dbconnection.pas
@@ -1926,7 +1926,7 @@ function TConnectionParameters.GetLibraries: TStringList;
     rx.ModifierI := True;
     case NetTypeGroup of
       ngMySQL:
-        {$IfDef LINUX}
+        {$If defined(LINUX)}
         // libmariadb.so.0 (libc,...) => /lib/x86_64-linux-gnu/libmariadb.so
         rx.Expression := '^\s*lib(mysqlclient|mariadb|perconaserverclient)\.[^=]+=>\s*(\S+)$';
         {$ElseIf defined(FREEBSD)}
@@ -1941,15 +1941,15 @@ function TConnectionParameters.GetLibraries: TStringList;
         rx.Expression := '^(dblib|libsybdb).*\.' + SharedSuffix;
         {$EndIf}
       ngPgSQL:
-        {$IfDef LINUX}
+        {$If defined(LINUX)}
         rx.Expression := '^\s*(libpq)[^=]+=>\s*(\S+)$';
         {$ElseIf defined(FREEBSD)}
         rx.Expression := '(lpq)[^=]+=>\s*(\S+)$';
         {$Else}
         rx.Expression := '^libpq.*\.' + SharedSuffix;
         {$EndIf}
       ngSQLite: begin
-        {$IfDef LINUX}
+        {$If defined(LINUX)}
         rx.Expression := '^\s*(libsqlite3)[^=]+=>\s*(\S+)$';
         {$ElseIf defined(FREEBSD)}
         rx.Expression := '(lsqlite3)[^=]+=>\s*(\S+)$';
@@ -1965,7 +1965,8 @@ function TConnectionParameters.GetLibraries: TStringList;
     end;
     case NetTypeGroup of
       ngMySQL, ngMSSQL, ngPgSQL, ngSQLite, ngInterbase: begin
-        {$IfDEF LINUX}
+        {$if defined(LINUX) or defined(FREEBSD)}
+        {$If defined(LINUX)}
         // See https://serverfault.com/a/513938
         Process.RunCommandInDir('', '/sbin/ldconfig', ['-p'], LibMapOutput);
         {$ElseIf defined(FREEBSD)}
