From 56f299a5a45c52eef2c1b1fffa593bf28afad879 Mon Sep 17 00:00:00 2001 From: marco Date: Wed, 12 Mar 2003 21:40:08 +0000 Subject: [PATCH] * fixed about a dozen Unix<->linux problems --- packages/base/odbc/odbcsql.pp | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/packages/base/odbc/odbcsql.pp b/packages/base/odbc/odbcsql.pp index d0a81674fa..55abcef8ca 100644 --- a/packages/base/odbc/odbcsql.pp +++ b/packages/base/odbc/odbcsql.pp @@ -1056,7 +1056,7 @@ var odbcversion:word; {$else} -{$ifdef linux} +{$ifdef unix} Const LibName = 'odbc'; {$else} @@ -1314,7 +1314,7 @@ type TSQLConfigDataSource=function ( lpszErrorMsg: PCHAR; cbErrorMsgMax: SQLUSMALLINT; pcbErrorMsg: PSQLUSMALLINT): SQLRETURN;stdcall; -{$ifndef linux} +{$ifndef unix} function SQLConfigDataSource( hwndParent: Integer; fRequest: Integer; @@ -1338,7 +1338,7 @@ procedure UnLoadOdbc; implementation -{$ifndef linux} +{$ifndef unix} uses Windows; {$endif} @@ -1346,7 +1346,7 @@ uses Windows; {$HPPEMIT '#pragma comment(lib,"odbc32.lib")'} {$ENDIF} -{$ifndef linux} +{$ifndef unix} Var {$IFDEF DYNLOADINGODBC} OdbcHMODULE: HMODULE; @@ -1532,7 +1532,7 @@ begin OdbcHMODULE := 0; {$endif} -{$ifndef linux} +{$ifndef unix} if OdbccpHMODULE <> 0 then begin if not FreeLibrary(OdbccpHMODULE) then @@ -1551,7 +1551,7 @@ end; // lpszDriverString: String; // lpszAttributes: String): Integer;stdcall;external 'ODBCCP32.DLL'; -{$ifndef linux} +{$ifndef unix} function SQLConfigDataSource( hwndParent: Integer; fRequest: Integer;