paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 09:06:02 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Additional logging

Browse Source
This commit is contained in:
michael 1999-12-04 21:20:04 +00:00
parent 186749643c
commit 514f0f9879
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/inc/graph/modes.inc
View File

@ -156,6 +156,9 @@
i : integer; i : integer;
mode : PModeInfo; mode : PModeInfo;
begin begin
{$ifdef logging}
LogLn('GetModeRange : Enter ('+strf(GraphDriver)+')');
{$endif}
LoMode:=-1; LoMode:=-1;
HiMode:=-1; HiMode:=-1;
mode := nil; mode := nil;
@ -165,6 +168,9 @@
mode := SearchMode(GraphDriver, 0); mode := SearchMode(GraphDriver, 0);
{ driver not supported...} { driver not supported...}
if not assigned(mode) then exit; if not assigned(mode) then exit;
{$ifdef logging}
LogLn('GetModeRange : Mode 0 found');
{$endif}
{ now it exists... find highest available mode... } { now it exists... find highest available mode... }
LoMode := 0; LoMode := 0;
mode:=nil; mode:=nil;
@ -172,6 +178,9 @@
repeat repeat
inc(i); inc(i);
{ start search at 0.. } { start search at 0.. }
{$ifdef logging}
LogLn('GetModeRange : Searching Mode '+strf(i));
{$endif}
mode:=SearchMode(GraphDriver,i); mode:=SearchMode(GraphDriver,i);
until not assigned(mode); until not assigned(mode);
HiMode := i-1; HiMode := i-1;
@ -332,7 +341,10 @@
{ {
$Log$ $Log$
Revision 1.13 1999-11-28 16:13:55 jonas Revision 1.14 1999-12-04 21:20:04 michael
+ Additional logging
Revision 1.13 1999/11/28 16:13:55 jonas
* corrected misplacement of call to initvars in initgraph * corrected misplacement of call to initvars in initgraph
+ some extra debugging commands (for -dlogging) in the mode functions + some extra debugging commands (for -dlogging) in the mode functions