mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 17:47:56 +02:00
22b4860dd7
of the same register (or of a register and its aliases) -> make
sure that all relevant constraints are applied to it as well
(mantis #16980)
git-svn-id: trunk@15952 -
35 lines
868 B
ObjectPascal
35 lines
868 B
ObjectPascal
{ %norun }
|
|
|
|
{$mode delphi}
|
|
{$packset 4}
|
|
type
|
|
TColorComponent = (ccRed, ccGreen, ccBlue, ccAlpha);
|
|
TColorMask = set of TColorComponent;
|
|
|
|
TGLStateCache = class
|
|
private
|
|
FColorWriteMask: array[0..15] of TColorMask;
|
|
procedure SetColorWriteMask(Index: Integer; const Value: TColorMask);
|
|
end;
|
|
TGLuint = cardinal;
|
|
tglboolean = boolean;
|
|
|
|
var
|
|
glColorMaski: procedure(index: TGLuint; r: TGLboolean; g: TGLboolean;
|
|
b: TGLboolean; a: TGLboolean);{$IFDEF MSWINDOWS} stdcall; {$ENDIF} {$IFDEF UNIX} cdecl; {$ENDIF}
|
|
|
|
procedure TGLStateCache.SetColorWriteMask(Index: Integer;
|
|
const Value: TColorMask);
|
|
begin
|
|
// if FColorWriteMask[Index]<>Value then
|
|
begin
|
|
FColorWriteMask[Index] := Value;
|
|
glColorMaski(Index, ccRed in Value, ccGreen in Value, ccBlue in Value,
|
|
ccAlpha in Value);
|
|
end;
|
|
end;
|
|
|
|
|
|
begin
|
|
end.
|