mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-18 06:09:22 +02:00
* FPC_USE_LIBC fixes
This commit is contained in:
parent
7f20bc1c96
commit
63335fbc10
@ -66,10 +66,11 @@ Procedure AddDisk(const path:string);
|
|||||||
Implementation
|
Implementation
|
||||||
|
|
||||||
Uses
|
Uses
|
||||||
Strings,Unix,BaseUnix,Syscall;
|
Strings,Unix,BaseUnix,{$ifdef FPC_USE_LIBC}initc{$ELSE}Syscall{$ENDIF};
|
||||||
|
|
||||||
|
|
||||||
|
{$ifndef FPC_USE_LIBC}
|
||||||
{$i sysnr.inc}
|
{$i sysnr.inc}
|
||||||
|
{$endif}
|
||||||
{$i settimeo.inc}
|
{$i settimeo.inc}
|
||||||
|
|
||||||
{******************************************************************************
|
{******************************************************************************
|
||||||
@ -1044,7 +1045,10 @@ End.
|
|||||||
|
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.37 2004-10-31 16:20:58 peter
|
Revision 1.38 2004-10-31 17:11:52 marco
|
||||||
|
* FPC_USE_LIBC fixes
|
||||||
|
|
||||||
|
Revision 1.37 2004/10/31 16:20:58 peter
|
||||||
* remove sysutils
|
* remove sysutils
|
||||||
|
|
||||||
Revision 1.36 2004/10/30 20:55:54 marco
|
Revision 1.36 2004/10/30 20:55:54 marco
|
||||||
|
Loading…
Reference in New Issue
Block a user