fix a warning

[lcore.git] / lmessages.pas

diff --git a/lmessages.pas b/lmessages.pas
index 7bb73fded153a54c69899453e0a10928ace88e4f..1b7db62b6380bc046dc64b41b2c85a68cad90f86 100755 (executable)
--- a/lmessages.pas
+++ b/lmessages.pas
@@ -1,9 +1,24 @@
+{ Copyright (C) 2005 Bas Steendijk and Peter Green\r
+  For conditions of distribution and use, see copyright notice in zlib_license.txt\r
+  which is included in the package\r
+  ----------------------------------------------------------------------------- }\r
+\r
+//this unit provides a rough approximation of windows messages on linux\r
+//it is usefull for multithreaded applications on linux to communicate back to\r
+//the main lcore thread\r
+//This unit is *nix only, on windows you should use the real thing\r
+\r

 unit lmessages;\r
 //windows messages like system based on lcore tasks\r
 interface\r
 \r
 uses pgtypes,sysutils,bsearchtree,strings,syncobjs;\r
 \r
 unit lmessages;\r
 //windows messages like system based on lcore tasks\r
 interface\r
 \r
 uses pgtypes,sysutils,bsearchtree,strings,syncobjs;\r
 \r

+\r
+{$if (fpc_version < 2) or ((fpc_version=2) and ((fpc_release < 2) or ((fpc_release = 2) and (fpc_patch < 2)) ))}\r
+  {$error this code is only supported under fpc 2.2.2 and above due to bugs in the eventobject code in older versions}\r
+{$endif}\r
+\r

 type\r
   lparam=taddrint;\r
   wparam=taddrint;\r
 type\r
   lparam=taddrint;\r
   wparam=taddrint;\r


@@ -84,7 +99,7 @@ procedure init;
 \r
 implementation\r
 uses\r
 \r
 implementation\r
 uses\r

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

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


@@ -653,4 +668,4 @@ begin
   end;\r
 end;\r
 \r
   end;\r
 end;\r
 \r

-end.
\ No newline at end of file
+end.\r