paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-26 23:00:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

VTV: Prevent building failure on the following architectures: arm64, armel and armhf(issue #34329).

Browse Source 
git-svn-id: trunk@59526 -
This commit is contained in:
balazs 2018-11-12 05:58:03 +00:00
parent 1b9614bd52
commit 2fb4a813cf
1 changed files with 29 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
components/virtualtreeview/include/intf/qt5/vtgraphicsi.inc
View File

@ -1,7 +1,9 @@
uses
qt5, qtobjects;
{$ASMMODE INTEL}
{$if Defined(CPU386)}
{$ASMMODE INTEL}
{$endif}
procedure AlphaBlendLineConstant(Source, Destination: Pointer; Count: Integer; ConstantAlpha, Bias: Integer);
@ -10,7 +12,11 @@ procedure AlphaBlendLineConstant(Source, Destination: Pointer; Count: Integer; C
// ConstantAlpha must be in the range 0..255 where 0 means totally transparent (destination pixel only)
// and 255 totally opaque (source pixel only).
// Bias is an additional value which gets added to every component and must be in the range -128..127
{$if not Defined(CPU386)}
begin
end;
{$else}
asm
{$ifdef CPU64}
@ -168,6 +174,7 @@ asm
POP ESI
{$endif}
end;
{$endif}
//----------------------------------------------------------------------------------------------------------------------
@ -176,7 +183,11 @@ procedure AlphaBlendLinePerPixel(Source, Destination: Pointer; Count, Bias: Inte
// Blends a line of Count pixels from Source to Destination using the alpha value of the source pixels.
// The layout of a pixel must be BGRA.
// Bias is an additional value which gets added to every component and must be in the range -128..127
{$if not Defined(CPU386)}
begin
end;
{$else}
asm
{$ifdef CPU64}
@ -327,6 +338,7 @@ asm
POP ESI
{$endif}
end;
{$endif}
//----------------------------------------------------------------------------------------------------------------------
@ -336,7 +348,11 @@ procedure AlphaBlendLineMaster(Source, Destination: Pointer; Count: Integer; Con
// The layout of a pixel must be BGRA.
// ConstantAlpha must be in the range 0..255.
// Bias is an additional value which gets added to every component and must be in the range -128..127
{$if not Defined(CPU386)}
begin
end;
{$else}
asm
{$ifdef CPU64}
@ -511,7 +527,7 @@ asm
POP ESI
{$endif}
end;
{$endif}
//----------------------------------------------------------------------------------------------------------------------
procedure AlphaBlendLineMasterAndColor(Destination: Pointer; Count: Integer; ConstantAlpha, Color: Integer);
@ -519,7 +535,11 @@ procedure AlphaBlendLineMasterAndColor(Destination: Pointer; Count: Integer; Con
// Blends a line of Count pixels in Destination against the given color using a constant alpha value.
// The layout of a pixel must be BGRA and Color must be rrggbb00 (as stored by a COLORREF).
// ConstantAlpha must be in the range 0..255.
{$if not Defined(CPU386)}
begin
end;
{$else}
asm
{$ifdef CPU64}
@ -649,10 +669,16 @@ asm
JNZ @1
{$endif}
end;
{$endif}
//----------------------------------------------------------------------------------------------------------------------
procedure EMMS;
{$if not Defined(CPU386)}
begin
end;
{$else}
// Reset MMX state to use the FPU for other tasks again.
@ -667,6 +693,7 @@ asm
DB $0F, $77 /// EMMS
end;
{$endif}
{$endif}
//----------------------------------------------------------------------------------------------------------------------