paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-18 20:39:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

* unit dbf_dbffile now compilable under OS/2

Browse Source 
git-svn-id: trunk@28894 -
This commit is contained in:
Tomas Hajny 2014-10-21 23:57:38 +00:00
parent ebccde996e
commit 585bedf2e8
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
packages/fcl-db/src/dbase/dbf_dbffile.pas
View File

@ -228,12 +228,14 @@ implementation
uses
{$ifndef WINDOWS}
{$ifndef FPC}
{$IFNDEF OS2}
{$ifndef FPC}
RTLConsts,
{$else}
{$else FPC}
BaseUnix,
{$endif}
{$endif}
{$endif FPC}
{$ENDIF OS2}
{$endif WINDOWS}
{$ifdef SUPPORT_MATH_UNIT}
Math,
{$endif}
@ -3155,8 +3157,10 @@ end;
procedure TDbfGlobals.InitUserName;
{$ifdef FPC}
{$ifndef WINDOWS}
{$IFNDEF OS2}
var
TempName: UTSName;
{$ENDIF OS2}
{$endif}
{$endif}
begin
@ -3176,8 +3180,12 @@ begin
{$endif wince}
{$else}
{$ifdef FPC}
{$IFDEF OS2}
FUserName := GetEnvironmentVariable ('HOSTNAME');
{$ELSE OS2}
FpUname(TempName);
FUserName := TempName.machine;
{$ENDIF OS2}
FUserNameLen := Length(FUserName);
{$endif}
{$endif}