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

* -dlogging no longer required to fuction correctly

Browse Source 
* some typo's fixed
This commit is contained in:
Jonas Maebe 1999-09-23 14:00:41 +00:00
parent b659954bc3
commit 5edf8b5488
2 changed files with 21 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
rtl/inc/graph/graph.inc
View File

@ -1732,10 +1732,12 @@ const CrtAddress: word = 0;
{$endif logging}
if VGADetected then
begin
{$ifdef logging}
SaveVideoState := SaveStateVGA;
{$ifdef logging}
LogLn('Setting VGA SaveVideoState to '+strf(longint(SaveVideoState)));
{$endif logging}
RestoreVideoState := RestoreStateVGA;
{$ifdef logging}
LogLn('Setting VGA RestoreVideoState to '+strf(longint(RestoreVideoState)));
{$endif logging}
@ -1925,12 +1927,13 @@ const CrtAddress: word = 0;
{ otherwise, if we use the VGA BIOS only function }
{ there might be a crash under DPMI, such as in the}
{ ATI Mach64 }
{$ifdef logging}
SaveVideoState := SaveStateVESA;
{$ifdef logging}
LogLn('Setting SaveVideoState to '+strf(longint(SaveVideoState)));
RestoreVideoState := RestoreStateVESA;
LogLn('Setting RestoreVideoState to '+strf(longint(RestoreVideoState)));
{$endif logging}
RestoreVideoState := RestoreStateVESA;
{$ifdef logging}
LogLn('Setting RestoreVideoState to '+strf(longint(RestoreVideoState)));
{ now check all supported modes...}
if SearchVESAModes(m320x200x32k) then
begin
@ -2622,7 +2625,11 @@ const CrtAddress: word = 0;
{
$Log$
Revision 1.15 1999-09-22 13:13:34 jonas
Revision 1.16 1999-09-23 14:00:41 jonas
* -dlogging no longer required to fuction correctly
* some typo's fixed
Revision 1.15 1999/09/22 13:13:34 jonas
* renamed text.inc -> gtext.inc to avoid conflict with system unit
* fixed textwidth
* isgraphmode now gets properly updated, so mode restoring works

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

@ -837,7 +837,7 @@ end;
end;
dec(VLength,l+1);
{$ifdef logging}
LogLn('Offset is now '+hexstr(offs,8)+', length left: '+strf(hlength));
LogLn('Offset is now '+hexstr(offs,8)+', length left: '+strf(vlength));
{$endif logging}
Until VLength = 0;
End;
@ -865,7 +865,7 @@ end;
end;
dec(VLength,l+1);
{$ifdef logging}
LogLn('Offset is now '+hexstr(offs,8)+', length left: '+strf(hlength));
LogLn('Offset is now '+hexstr(offs,8)+', length left: '+strf(vlength));
{$endif logging}
Until VLength = 0;
End;
@ -893,7 +893,7 @@ end;
end;
dec(VLength,l+1);
{$ifdef logging}
LogLn('Offset is now '+hexstr(offs,8)+', length left: '+strf(hlength));
LogLn('Offset is now '+hexstr(offs,8)+', length left: '+strf(vlength));
{$endif logging}
Until VLength = 0;
End;
@ -921,7 +921,7 @@ end;
end;
dec(VLength,l+1);
{$ifdef logging}
LogLn('Offset is now '+hexstr(offs,8)+', length left: '+strf(hlength));
LogLn('Offset is now '+hexstr(offs,8)+', length left: '+strf(vlength));
{$endif logging}
Until VLength = 0;
End;
@ -1921,7 +1921,11 @@ end;
{
$Log$
Revision 1.13 1999-09-20 09:34:30 florian
Revision 1.14 1999-09-23 14:00:42 jonas
* -dlogging no longer required to fuction correctly
* some typo's fixed
Revision 1.13 1999/09/20 09:34:30 florian
* conflicts solved
Revision 1.12 1999/09/18 22:21:11 jonas