From d8999eeb3210dd13358a5c76fcc9722df1ef8d2e Mon Sep 17 00:00:00 2001
From: beware <beware@bircd.org>
Date: Sat, 13 Nov 2010 14:55:15 +0000
Subject: [PATCH 1/1] MsgRec consistency
git-svn-id: file:///svnroot/lcore/trunk@91 b1de8a11-f9be-4011-bde0-cc7ace90066a
---
wcore.pas | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/wcore.pas b/wcore.pas
index 8b402b5..1c063ad 100755
--- a/wcore.pas
+++ b/wcore.pas
@@ -359,13 +359,13 @@ end;
function ProcessMessage : Boolean;
var
- Msg : TMsg;
+ MsgRec : TMsg;
begin
Result := FALSE;
- if PeekMessage(Msg, 0, 0, 0, PM_REMOVE) then begin
+ if PeekMessage(MsgRec, 0, 0, 0, PM_REMOVE) then begin
Result := TRUE;
TranslateMessage(MsgRec);
- DispatchMessage(Msg);
+ DispatchMessage(MsgRec);
end;
end;
--
2.30.2