Gabor fixes to avoid unused vars

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

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