paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-11 18:08:15 +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
Uses
Strings,Unix,BaseUnix,Syscall;
Strings,Unix,BaseUnix,{$ifdef FPC_USE_LIBC}initc{$ELSE}Syscall{$ENDIF};
{$ifndef FPC_USE_LIBC}
{$i sysnr.inc}
{$endif}
{$i settimeo.inc}
{******************************************************************************
@ -1044,7 +1045,10 @@ End.
{
$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
Revision 1.36 2004/10/30 20:55:54 marco