eliminated a lot of hints and warnings

[lcore.git] / lcore.pas

diff --git a/lcore.pas b/lcore.pas
index 0f6eaef5025a5cbf3a9b8db87bf33b047108c24e..1a2f93cb45efbb83552b07ee63c57289020786c8 100755 (executable)
--- a/lcore.pas
+++ b/lcore.pas
@@ -258,18 +258,20 @@ implementation
 \r
 {!!! added sleep call -beware}\r
 procedure sleep(i:integer);\r
 \r
 {!!! added sleep call -beware}\r
 procedure sleep(i:integer);\r

+{$ifdef win32}\r
+begin\r
+  windows.sleep(i);\r
+{$else}\r

 var\r
   tv:ttimeval;\r
 begin\r
 var\r
   tv:ttimeval;\r
 begin\r

-  {$ifdef win32}\r
-    windows.sleep(i);\r
-  {$else}\r
-    tv.tv_sec := i div 1000;\r
-    tv.tv_usec := (i mod 1000) * 1000;\r
-    select(0,nil,nil,nil,@tv);\r
-  {$endif}\r
+  tv.tv_sec := i div 1000;\r
+  tv.tv_usec := (i mod 1000) * 1000;\r
+  select(0,nil,nil,nil,@tv);\r
+{$endif}\r

 end;\r
 \r
 end;\r
 \r

+\r

 destructor tlcomponent.destroy;\r
 begin\r
   disconnecttasks(self);\r
 destructor tlcomponent.destroy;\r
 begin\r
   disconnecttasks(self);\r