paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 06:09:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

* FPC_USE_LIBC fixes

Browse Source
This commit is contained in:
marco 2004-10-31 17:11:52 +00:00
parent 7f20bc1c96
commit 63335fbc10
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/unix/dos.pp
View File

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