From 536fc9d69b479da4efacf0fcab500b656008209a Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Tue, 21 Mar 2000 23:22:37 +0000
Subject: [PATCH]  Gabor fixes to avoid unused vars

---
 ide/text/fpmrun.inc |  9 ++++++++-
 ide/text/vesa.pas   | 13 ++++++++++++-
 2 files changed, 20 insertions(+), 2 deletions(-)

diff --git a/ide/text/fpmrun.inc b/ide/text/fpmrun.inc
index e64bf04f3e..e6fbccd6ed 100644
--- a/ide/text/fpmrun.inc
+++ b/ide/text/fpmrun.inc
@@ -192,10 +192,12 @@ begin
 end;
 
 procedure TIDEApp.DoContToCursor;
+{$ifndef NODEBUG}
 var
   W : PSourceWindow;
   FileName : string;
   LineNr : longint;
+{$endif}
 begin
 {$ifndef NODEBUG}
   if (DeskTop^.Current=nil) or
@@ -236,11 +238,13 @@ begin
 end;
 
 procedure TIDEApp.DoToggleBreak;
+{$ifndef NODEBUG}
 var
   W : PSourceWindow;
   FileName : string;
   b : boolean;
   LineNr : longint;
+{$endif}
 begin
 {$ifndef NODEBUG}
   if (DeskTop^.Current=nil) or
@@ -266,7 +270,10 @@ end;
 
 {
   $Log$
-  Revision 1.29  2000-03-08 16:58:12  pierre
+  Revision 1.30  2000-03-21 23:27:35  pierre
+   Gabor fixes to avoid unused vars
+
+  Revision 1.29  2000/03/08 16:58:12  pierre
    Uses Debugger^.IsRunning
 
   Revision 1.28  2000/02/04 00:15:31  pierre
diff --git a/ide/text/vesa.pas b/ide/text/vesa.pas
index 5f4ece6ed3..291658f9a7 100644
--- a/ide/text/vesa.pas
+++ b/ide/text/vesa.pas
@@ -307,7 +307,11 @@ end;
 function VESAGetModeList(var B: TVESAModeList): boolean;
 var OK: boolean;
     VI: TVESAInfoBlock;
+    {$ifdef TP}
+    {$ifdef DPMI}
     Sel: word;
+    {$endif}
+    {$endif}
 begin
   FillChar(B,SizeOf(B),0);
   OK:=VESAGetInfo(VI);
@@ -360,7 +364,11 @@ end;
 function VESAGetOemString: string;
 var OK: boolean;
     VI: TVESAInfoBlock;
+    {$ifdef TP}
+    {$ifdef DPMI}
     Sel: word;
+    {$endif}
+    {$endif}
     S: array[0..256] of char;
 begin
   FillChar(S,SizeOf(S),0);
@@ -482,7 +490,10 @@ BEGIN
 END.
 {
   $Log$
-  Revision 1.6  2000-01-03 11:38:35  michael
+  Revision 1.7  2000-03-21 23:22:37  pierre
+   Gabor fixes to avoid unused vars
+
+  Revision 1.6  2000/01/03 11:38:35  michael
   Changes from Gabor
 
   Revision 1.4  1999/04/07 21:55:58  peter