fix a warning

[lcore.git] / lmessages.pas

diff --git a/lmessages.pas b/lmessages.pas
index 1302e298afb5f3a5ed649bdc9f8a6f4f91ba8215..1b7db62b6380bc046dc64b41b2c85a68cad90f86 100755 (executable)
--- a/lmessages.pas
+++ b/lmessages.pas
@@ -14,6 +14,11 @@ interface
 \r
 uses pgtypes,sysutils,bsearchtree,strings,syncobjs;\r
 \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