paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-04 18:20:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: added rileDQWordBoundary for alignment on 128bit boundary (#8425) from Tom

Browse Source 
git-svn-id: trunk@10701 -
This commit is contained in:
vincents 2007-03-01 10:27:21 +00:00
parent 5180096267
commit 9cbe4baa12
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lcl/graphtype.pp
View File

@ -72,7 +72,8 @@ type
// of 5 unused bits at the end.
rileWordBoundary, // each line starts at word (16bit) boundary
rileDWordBoundary, // each line starts at double word (32bit) boundary
rileQWordBoundary // each line starts at quad word (64bit) boundary
rileQWordBoundary, // each line starts at quad word (64bit) boundary
rileDQWordBoundary // each line starts at double quad word (128bit) boundary
);
TRawImageLineOrder = (
@ -151,7 +152,8 @@ const
'rileByteBoundary',
'rileWordBoundary',
'rileDWordBoundary',
'rileQWordBoundary'
'rileQWordBoundary',
'rileDQWordBoundary'
);
RawImageLineOrderNames: array[TRawImageLineOrder] of string = (
@ -648,10 +650,11 @@ begin
BitsPerLine:=Width*BitsPerPixel;
case LineEnd of
rileTight: ;
rileByteBoundary: BitsPerLine:=(BitsPerLine+7) and not cardinal(7);
rileWordBoundary: BitsPerLine:=(BitsPerLine+15) and not cardinal(15);
rileDWordBoundary: BitsPerLine:=(BitsPerLine+31) and not cardinal(31);
rileQWordBoundary: BitsPerLine:=(BitsPerLine+63) and not cardinal(63);
rileByteBoundary: BitsPerLine:=(BitsPerLine+7) and not cardinal(7);
rileWordBoundary: BitsPerLine:=(BitsPerLine+15) and not cardinal(15);
rileDWordBoundary: BitsPerLine:=(BitsPerLine+31) and not cardinal(31);
rileQWordBoundary: BitsPerLine:=(BitsPerLine+63) and not cardinal(63);
rileDQWordBoundary: BitsPerLine:=(BitsPerLine+127) and not cardinal(127);
end;
Result:=BitsPerLine;
end;