paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-10 00:27:21 +01:00
Code Issues Packages Projects Releases Wiki Activity

Gabor fixes to avoid unused vars

Browse Source
This commit is contained in:
pierre 2000-03-21 23:22:37 +00:00
parent 0a2e9c3bbd
commit 536fc9d69b
2 changed files with 20 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/text/fpmrun.inc
View File

@ -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

13
ide/text/vesa.pas
View File

@ -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