浏览代码

* FPC_USE_LIBC fixes

marco 21 年之前
父节点
当前提交
63335fbc10
共有 1 个文件被更改,包括 7 次插入3 次删除
  1. 7 3
      rtl/unix/dos.pp

+ 7 - 3
rtl/unix/dos.pp

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