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

* final fixes for linux support (graphdriver value of the modes

Browse Source 
is now also not modified anymore)
This commit is contained in:
Jonas Maebe 2000-07-05 13:07:48 +00:00
parent c88da249b4
commit 011a187da3
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -100,7 +100,6 @@ end;
newModeList.modeinfo[driverNr]^ := mode; newModeList.modeinfo[driverNr]^ := mode;
with newModeList.modeinfo[driverNr]^ do with newModeList.modeinfo[driverNr]^ do
begin begin
driverNumber := driverNr;
internModeNumber := 1; internModeNumber := 1;
next := nil; next := nil;
end; end;
@ -131,11 +130,9 @@ end;
' ('+strf(mode.maxx)+'x'+strf(mode.maxy)+')'); ' ('+strf(mode.maxx)+'x'+strf(mode.maxy)+')');
{$endif logging} {$endif logging}
{ save/restore next, drivernr and drivermode in list } { save/restore next, drivernr and drivermode in list }
driverNr := list^.driverNumber;
modeNr := list^.internModeNumber; modeNr := list^.internModeNumber;
prev := list^.next; prev := list^.next;
list^ := mode; list^ := mode;
list^.driverNumber := driverNr;
list^.internModeNumber := modeNr; list^.internModeNumber := modeNr;
list^.next := prev; list^.next := prev;
end end
@ -145,7 +142,6 @@ end;
{ Increase the number of modes for this driver } { Increase the number of modes for this driver }
inc(newModeList.loHiModeNr[driverNr].hi); inc(newModeList.loHiModeNr[driverNr].hi);
newLst^ := mode; newLst^ := mode;
newLst^.driverNumber := driverNr;
{$ifdef logging} {$ifdef logging}
logln('Adding resolution '+strf(modenr)+' for drivernr '+strf(drivernr)+ logln('Adding resolution '+strf(modenr)+' for drivernr '+strf(drivernr)+
' ('+strf(mode.maxx)+'x'+strf(mode.maxy)+')'); ' ('+strf(mode.maxx)+'x'+strf(mode.maxy)+')');
@ -293,7 +289,7 @@ end;
begin begin
{$ifdef logging} {$ifdef logging}
Log('Found driver '+strf(list^.DriverNumber)+ Log('Found driver '+strf(list^.DriverNumber)+
' and mode $'+hexstr(list^.ModeNumber,4)+'... '); ' and mode $'+hexstr(list^.ModeNumber,4)+'...');
{$endif logging} {$endif logging}
if ((list^.DriverNumber = ReqDriver) and if ((list^.DriverNumber = ReqDriver) and
((list^.ModeNumber = ReqMode) or ((list^.ModeNumber = ReqMode) or
@ -577,7 +573,11 @@ end;
{ {
$Log$ $Log$
Revision 1.29 2000-07-05 11:25:20 jonas Revision 1.30 2000-07-05 13:07:48 jonas
* final fixes for linux support (graphdriver value of the modes
is now also not modified anymore)
Revision 1.29 2000/07/05 11:25:20 jonas
* added internModeNumber to modeinfo type to fix Linux compatibility * added internModeNumber to modeinfo type to fix Linux compatibility
with -dnewmodes code with -dnewmodes code