From c877c6d97c8a448540eabcb9bd4ce857aad4a3bb Mon Sep 17 00:00:00 2001
From: Tomas Hajny <hajny@freepascal.org>
Date: Sat, 3 Jun 2006 23:43:06 +0000
Subject: [PATCH]   * removed unneeded variable

git-svn-id: trunk@3780 -
---
 rtl/os2/moncalls.pas | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/rtl/os2/moncalls.pas b/rtl/os2/moncalls.pas
index cee71abe0e..a68f900332 100644
--- a/rtl/os2/moncalls.pas
+++ b/rtl/os2/moncalls.pas
@@ -239,12 +239,9 @@ external 'EMXWRAP' index 404;
 {external 'MONCALLS' index 4;}
 
 function DosMonOpen(DevName:string;var MonHandle:word):word;
-var
-  i : byte;
 begin
     if DevName[0]=#255 then
     begin
-        I:=byte(DevName[0]);
         Move(DevName[1],DevName[0],255);
         DevName[255]:=#0;
         DosMonOpen:=DosMonOpen(@DevName,MonHandle);