paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 05:59:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed about a dozen Unix<->linux problems

Browse Source
This commit is contained in:
marco 2003-03-12 21:40:08 +00:00
parent 400baab806
commit 56f299a5a4
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/base/odbc/odbcsql.pp
View File

@ -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;