浏览代码

* remove warning

peter 24 年之前
父节点
当前提交
eae7ae3fd1
共有 1 个文件被更改,包括 5 次插入2 次删除
  1. 5 2
      rtl/unix/unix.pp

+ 5 - 2
rtl/unix/unix.pp

@@ -1937,7 +1937,7 @@ end;
 
 Function TCFlush(fd,qsel:longint):boolean;
 
-var com:longint;
+{var com:longint;}
 
 begin
  {$ifndef BSD}
@@ -2841,7 +2841,10 @@ End.
 
 {
   $Log$
-  Revision 1.5  2001-03-27 11:47:25  michael
+  Revision 1.6  2001-04-13 22:37:21  peter
+    * remove warning
+
+  Revision 1.5  2001/03/27 11:47:25  michael
   + Fixed F_[G,S]etOwn constants. By Alexander Sychev
 
   Revision 1.4  2001/03/17 16:04:37  hajny