فهرست منبع

* Dotted filenames for package dblib

Michaël Van Canneyt 2 سال پیش
والد
کامیت
352f864210
3فایلهای تغییر یافته به همراه12 افزوده شده و 0 حذف شده
  1. 3 0
      packages/dblib/namespaced/Api.Dblib.pp
  2. 3 0
      packages/dblib/namespaces.lst
  3. 6 0
      packages/dblib/src/dblib.pp

+ 3 - 0
packages/dblib/namespaced/Api.Dblib.pp

@@ -0,0 +1,3 @@
+unit Api.Dblib;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i dblib.pp}

+ 3 - 0
packages/dblib/namespaces.lst

@@ -0,0 +1,3 @@
+src/dblib.pp=namespaced/Api.Dblib.pp
+{s*:src/}=namespaced/
+{i+:src/}

+ 6 - 0
packages/dblib/src/dblib.pp

@@ -25,7 +25,9 @@
                     7.4 - MS SQL Server 2012/2014
       tds version can be set using env.var. TDSVER or in freetds.conf or .freetds.conf
 }
+{$IFNDEF FPC_DOTTEDUNITS}
 unit DBLib;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {$IFDEF FPC}{$mode objfpc}{$ENDIF}{$H+}
 
@@ -460,7 +462,11 @@ procedure ReleaseDBLib;
 implementation
 
 {$IFDEF LOAD_DYNAMICALLY}
+{$IFDEF FPC_DOTTEDUNITS}
+uses System.SysUtils, System.DynLibs;
+{$ELSE FPC_DOTTEDUNITS}
 uses SysUtils, Dynlibs;
+{$ENDIF FPC_DOTTEDUNITS}
 
 var DBLibLibraryHandle: TLibHandle;
     RefCount: integer;