From: beware <beware@bircd.org>
Date: Sat, 13 Nov 2010 14:55:15 +0000 (+0000)
Subject: MsgRec consistency
X-Git-Url: http://www.lcore.org/git/lcore.git/commitdiff_plain/d8999eeb3210dd13358a5c76fcc9722df1ef8d2e?ds=inline

MsgRec consistency

git-svn-id: file:///svnroot/lcore/trunk@91 b1de8a11-f9be-4011-bde0-cc7ace90066a
---

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;