paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 19:31:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* added unixtype unit in addition to baseunix unit (currently baseunix contains all types of unixtype)

Browse Source 
git-svn-id: trunk@11782 -
This commit is contained in:
ivost 2008-09-14 18:54:55 +00:00
parent cd6b57c733
commit 2439dbd5a6
14 changed files with 17 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-async/src/unix/libasync.pp
View File

@ -39,7 +39,7 @@ type
implementation
uses baseunix, Unix;
uses unixtype, baseunix, Unix;
const
MaxHandle = SizeOf(TFDSet) * 8 - 1;

2
packages/fcl-base/src/libtar.pp
View File

@ -95,7 +95,7 @@ USES
Libc, // MvdV: Nothing is used from this???
{$ENDIF}
{$ifdef Unix}
BaseUnix, Unix,
UnixType, BaseUnix, Unix,
{$endif}
(*$IFDEF MSWINDOWS *)
Windows,

2
packages/fcl-fpcunit/src/digesttestreport.pp
View File

@ -108,7 +108,7 @@ implementation
uses LibTar,
{$IFDEF UNIX}
Unix,BaseUnix,
UnixType,Unix,BaseUnix,
{$ENDIF}
{$IFDEF MSWINDOWS}
windows,

2
packages/fcl-process/src/process.pp
View File

@ -145,6 +145,8 @@ Uses
{$endif WINDOWS}
{$ifdef UNIX}
uses
ctypes,
UnixType,
Unix,
Baseunix;
{$endif UNIX}

2
packages/fv/src/drivers.pas
View File

@ -86,7 +86,7 @@ USES
{$ifdef VER1_0}
linux,
{$else}
baseunix,unix,
unixtype,baseunix,unix,
{$endif}
{$ENDIF}

2
packages/gtk2/src/gtk2x11/gdk2x.pas
View File

@ -25,7 +25,7 @@ unit gdk2x;
interface
uses
Classes, SysUtils, Unix, BaseUnix, glib2, gdk2, XLib, X, XRender;
Classes, SysUtils, UnixType, Unix, BaseUnix, glib2, gdk2, XLib, X, XRender;
{$ifdef FREEBSD}
{$linklib pthread}

2
packages/iconvenc/src/iconvenc.pas
View File

@ -22,7 +22,7 @@ interface
{DEFINE LOADDYNAMIC}
uses
baseunix,
ctypes,unixtype,baseunix,
{$ifdef LOADDYNAMIC}
dl,
{$endif}

2
packages/libxml/src/libxml2.pas
View File

@ -14,7 +14,7 @@ uses
windows,
{$ENDIF}
{$IFDEF UNIX}
baseunix,
unixtype,
{$ENDIF}
ctypes;

2
packages/pcap/src/pcap.pp
View File

@ -41,7 +41,7 @@ interface
uses
{$ifdef UNIX}
BaseUnix,
UnixType,BaseUnix,
{$endif}
{$ifdef Windows}
WinSock, Windows,

6
packages/pthreads/src/pthreads.pp
View File

@ -25,16 +25,16 @@ uses initc,BaseUnix, unixtype;
{$i pthrbsd.inc}
{$else}
{$ifdef linux}
uses initc,unixtype;
uses initc, ctypes, unixtype;
{$i pthrlinux.inc}
{$else}
{$ifdef sunos}
uses initc,unixtype;
uses initc, ctypes, unixtype;
{$i pthrsnos.inc}
{$else}
{$ifdef beos}
uses initc, baseunix, unixtype;
uses initc, ctypes, baseunix, unixtype;
{$i pthrbeos.inc}
{$else}
{$error operating system not detected}

1
packages/sdl/src/sdl.pas
View File

@ -300,6 +300,7 @@ uses
{$IFDEF UNIX}
{$IFDEF FPC}
pthreads,
unixtype,
baseunix,
{$IFNDEF GP2X}
unix,

2
packages/users/src/grp.pp
View File

@ -3,7 +3,7 @@ unit grp;
interface
uses
initc,baseunix,ctypes;
initc,unixtype,baseunix,ctypes;
{$IFDEF FPC}
{$PACKRECORDS C}

2
packages/users/src/pwd.pp
View File

@ -3,7 +3,7 @@ unit pwd;
interface
uses
initc,baseunix,ctypes;
initc,unixtype,baseunix,ctypes;
{$IFDEF FPC}
{$PACKRECORDS C}

2
packages/users/src/users.pp
View File

@ -2,7 +2,7 @@ unit users;
Interface
{$mode delphi}
uses BaseUnix,pwd,grp, {$ifdef Linux} shadow,{$endif}SysUtils,Classes;
uses UnixType,BaseUnix,pwd,grp, {$ifdef Linux} shadow,{$endif}SysUtils,Classes;
Type
EUserLookupError = Class(Exception);