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

VESA 3.0 support

Browse Source 
git-svn-id: trunk@15758 -
This commit is contained in:
nickysn 2010-08-10 00:01:06 +00:00
parent 8b1889d033
commit 0b75bedaf9
2 changed files with 28 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
packages/graph/src/go32v2/vesa.inc
View File

@ -1583,7 +1583,7 @@ end;
PortW[$3ce] := $0001; { Index 01 : Disable ops on all four planes. } PortW[$3ce] := $0001; { Index 01 : Disable ops on all four planes. }
end; end;
procedure HLineVESA16(x,x2,y: smallint); {$ifndef fpc}far;{$endif fpc} procedure HLineVESA16(x,x2,y: smallint); {$ifndef fpc}far;{$endif fpc}
var var
xtmp: smallint; xtmp: smallint;
@ -2122,6 +2122,12 @@ Const
function SetupLinear(var ModeInfo: TVESAModeInfo;mode : word) : boolean; function SetupLinear(var ModeInfo: TVESAModeInfo;mode : word) : boolean;
begin begin
SetUpLinear:=false; SetUpLinear:=false;
if VESAInfo.Version >= $0300 then
BytesPerLine := VESAModeInfo.LinBytesPerScanLine
else
BytesPerLine := VESAModeInfo.BytesPerScanLine;
{$ifdef FPC} {$ifdef FPC}
case mode of case mode of
m320x200x32k, m320x200x32k,
@ -2219,6 +2225,9 @@ Const
procedure SetupWindows(var ModeInfo: TVESAModeInfo); procedure SetupWindows(var ModeInfo: TVESAModeInfo);
begin begin
InLinear:=false; InLinear:=false;
BytesPerLine := VESAModeInfo.BytesPerScanLine;
{ now we check the windowing scheme ...} { now we check the windowing scheme ...}
if (ModeInfo.WinAAttr and WinSupported) <> 0 then if (ModeInfo.WinAAttr and WinSupported) <> 0 then
{ is this window supported ... } { is this window supported ... }
@ -2368,7 +2377,8 @@ Const
Inc(BankShift); Inc(BankShift);
CurrentWriteBank := -1; CurrentWriteBank := -1;
CurrentReadBank := -1; CurrentReadBank := -1;
BytesPerLine := VESAModeInfo.BytesPerScanLine; { nickysn: setting BytesPerLine moved to SetupLinear and SetupWindowed
BytesPerLine := VESAModeInfo.BytesPerScanLine;}
{ These are the window adresses ... } { These are the window adresses ... }
WinWriteSeg := 0; { This is the segment to use for writes } WinWriteSeg := 0; { This is the segment to use for writes }

17
packages/graph/src/go32v2/vesah.inc
View File

@ -31,6 +31,7 @@ TYPE
end; { VESA standard because of bugs on } end; { VESA standard because of bugs on }
{ some video cards. } { some video cards. }
*) *)
{ VESA 1.1 }
TotalMem : word; TotalMem : word;
{ VESA 2.0 } { VESA 2.0 }
OEMversion : word; OEMversion : word;
@ -82,7 +83,21 @@ TYPE
PhysAddress : longint; { pos $28 } PhysAddress : longint; { pos $28 }
OffscreenPtr : longint; { pos $2C } OffscreenPtr : longint; { pos $2C }
OffscreenMem : word; { pos $30 } OffscreenMem : word; { pos $30 }
reserved2 : Array[1..458]of Byte; { pos $32 } { VESA 3.0 }
LinBytesPerScanLine: Word; {bytes per scan line for linear modes}
BnkNumberOfImagePages: Byte; {number of images for banked modes}
LinNumberOfImagePages: Byte; {number of images for linear modes}
LinRedMaskSize: Byte; {size of direct color red mask (linear modes)}
LinRedFieldPosition: Byte; {bit position of lsb of red mask (linear modes)}
LinGreenMaskSize: Byte; {size of direct color green mask (linear modes)}
LinGreenFieldPosition: Byte; {bit position of lsb of green mask (linear modes)}
LinBlueMaskSize: Byte; {size of direct color blue mask (linear modes)}
LinBlueFieldPosition: Byte; {bit position of lsb of blue mask (linear modes)}
LinRsvdMaskSize: Byte; {size of direct color reserved mask (linear modes)}
LinRsvdFieldPosition: Byte; {bit position of lsb of reserved mask (linear modes)}
MaxPixelClock: longint; {maximum pixel clock (in Hz) for graphics mode}
reserved2: array [1..189] of Byte; {remainder of ModeInfoBlock}
end; end;