1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
|
Description: fix FTBFS on arm*
Author: Balázs Székely
Source: https://bugs.freepascal.org/view.php?id=34329
Index: lazarus/components/virtualtreeview/include/intf/qt/vtgraphicsi.inc
===================================================================
--- lazarus.orig/components/virtualtreeview/include/intf/qt/vtgraphicsi.inc
+++ lazarus/components/virtualtreeview/include/intf/qt/vtgraphicsi.inc
@@ -1,7 +1,9 @@
uses
qt4, 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,
// 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,
// 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, D
// 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(D
// 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}
//----------------------------------------------------------------------------------------------------------------------
|
