change ltimevalstuff to a unit and move defintion of ttimeval on windows

[lcore.git] / lmessages.pas

diff --git a/lmessages.pas b/lmessages.pas
index e17ccfe933b99e52adb663cc84b269efe28236ea..b5a6f25594f0a41cc5ca59463898a69a96ae3c0f 100755 (executable)
--- a/lmessages.pas
+++ b/lmessages.pas
@@ -99,7 +99,7 @@ procedure init;
 \r
 implementation\r
 uses\r
 \r
 implementation\r
 uses\r

-  baseunix,unix,lcore,unixutil;//,safewriteln;\r
+  baseunix,unix,lcore,unixutil,ltimevalstuff;//,safewriteln;\r

 {$i unixstuff.inc}\r
 \r
 type\r
 {$i unixstuff.inc}\r
 \r
 type\r


@@ -135,7 +135,7 @@ var
   //than crash after over four billion\r
   //windows have been made ;)\r
   nextwindowhandle : qword = $100000000;\r
   //than crash after over four billion\r
   //windows have been made ;)\r
   nextwindowhandle : qword = $100000000;\r

-{$i ltimevalstuff.inc}\r
+

 \r
 //findthreaddata should only be called while holding the structurelock\r
 function findthreaddata(threadid : integer) : tthreaddata;\r
 \r
 //findthreaddata should only be called while holding the structurelock\r
 function findthreaddata(threadid : integer) : tthreaddata;\r