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

* some debug stuff changed

Browse Source
This commit is contained in:
pierre 2001-05-31 21:40:10 +00:00
parent 0de451dba1
commit 2313cc3ada
3 changed files with 47 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
fv/gfvgraph.pas
View File

@ -219,6 +219,11 @@ CONST
SysScreenWidth : Integer = 640; { Default screen width } SysScreenWidth : Integer = 640; { Default screen width }
SysScreenHeight: Integer = 480; { Default screen height} SysScreenHeight: Integer = 480; { Default screen height}
{$ifdef DEBUG}
const
WriteDebugInfo : boolean = false;
{$endif DEBUG}
{<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>} {<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}
IMPLEMENTATION IMPLEMENTATION
{<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>} {<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}
@ -313,7 +318,8 @@ BEGIN
ViewPort.Y2 := Y2; { Set Y2 port value } ViewPort.Y2 := Y2; { Set Y2 port value }
ViewPort.Clip := Clip; { Set port clip value } ViewPort.Clip := Clip; { Set port clip value }
{$ifdef DEBUG} {$ifdef DEBUG}
Writeln(stderr,'New ViewPort(',X1,',',Y1,',',X2,',',Y2,')'); If WriteDebugInfo then
Writeln(stderr,'New ViewPort(',X1,',',Y1,',',X2,',',Y2,')');
{$endif DEBUG} {$endif DEBUG}
Cxp := X1; { Set current x pos } Cxp := X1; { Set current x pos }
Cyp := Y1; { Set current y pos } Cyp := Y1; { Set current y pos }
@ -401,7 +407,10 @@ END;
END. END.
{ {
$Log$ $Log$
Revision 1.8 2001-05-10 16:46:28 pierre Revision 1.9 2001-05-31 21:40:10 pierre
* some debug stuff changed
Revision 1.8 2001/05/10 16:46:28 pierre
+ some improovements made + some improovements made
Revision 1.7 2001/05/07 23:36:35 pierre Revision 1.7 2001/05/07 23:36:35 pierre

13
fvision/gfvgraph.pas
View File

@ -219,6 +219,11 @@ CONST
SysScreenWidth : Integer = 640; { Default screen width } SysScreenWidth : Integer = 640; { Default screen width }
SysScreenHeight: Integer = 480; { Default screen height} SysScreenHeight: Integer = 480; { Default screen height}
{$ifdef DEBUG}
const
WriteDebugInfo : boolean = false;
{$endif DEBUG}
{<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>} {<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}
IMPLEMENTATION IMPLEMENTATION
{<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>} {<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}
@ -313,7 +318,8 @@ BEGIN
ViewPort.Y2 := Y2; { Set Y2 port value } ViewPort.Y2 := Y2; { Set Y2 port value }
ViewPort.Clip := Clip; { Set port clip value } ViewPort.Clip := Clip; { Set port clip value }
{$ifdef DEBUG} {$ifdef DEBUG}
Writeln(stderr,'New ViewPort(',X1,',',Y1,',',X2,',',Y2,')'); If WriteDebugInfo then
Writeln(stderr,'New ViewPort(',X1,',',Y1,',',X2,',',Y2,')');
{$endif DEBUG} {$endif DEBUG}
Cxp := X1; { Set current x pos } Cxp := X1; { Set current x pos }
Cyp := Y1; { Set current y pos } Cyp := Y1; { Set current y pos }
@ -401,7 +407,10 @@ END;
END. END.
{ {
$Log$ $Log$
Revision 1.8 2001-05-10 16:46:28 pierre Revision 1.9 2001-05-31 21:40:10 pierre
* some debug stuff changed
Revision 1.8 2001/05/10 16:46:28 pierre
+ some improovements made + some improovements made
Revision 1.7 2001/05/07 23:36:35 pierre Revision 1.7 2001/05/07 23:36:35 pierre

26
fvision/testapp.pas
View File

@ -39,6 +39,9 @@ PROGRAM TestApp;
{$ifdef TEST} {$ifdef TEST}
AsciiTab, AsciiTab,
{$endif TEST} {$endif TEST}
{$ifdef DEBUG}
Gfvgraph,
{$endif DEBUG}
Gadgets; Gadgets;
@ -105,10 +108,28 @@ begin
(P^.State and sfVisible <> 0); (P^.State and sfVisible <> 0);
end; end;
{$ifdef DEBUG}
Var
WasSet : boolean;
{$endif DEBUG}
begin begin
inherited Idle; inherited Idle;
{$ifdef DEBUG}
if WriteDebugInfo then
begin
WasSet:=true;
WriteDebugInfo:=false;
end
else
WasSet:=false;
{$endif DEBUG}
if WriteDebugInfo then
Clock^.Update; Clock^.Update;
Heap^.Update; Heap^.Update;
{$ifdef DEBUG}
if WasSet then
WriteDebugInfo:=true;
{$endif DEBUG}
if Desktop^.FirstThat(@IsTileable) <> nil then if Desktop^.FirstThat(@IsTileable) <> nil then
EnableCommands([cmTile, cmCascade]) EnableCommands([cmTile, cmCascade])
else else
@ -332,7 +353,10 @@ END.
{ {
$Log$ $Log$
Revision 1.5 2001-05-04 15:43:46 pierre Revision 1.6 2001-05-31 21:40:10 pierre
* some debug stuff changed
Revision 1.5 2001/05/04 15:43:46 pierre
* several more fixes * several more fixes
Revision 1.4 2001/05/04 10:46:02 pierre Revision 1.4 2001/05/04 10:46:02 pierre