pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* Correction for r2871: less ugly, more efficient code.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2873 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
bigchimp
2013-12-28 16:01:15 +00:00
parent 0368dda4a8
commit f76acb185e
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpspreadsheet/xlsbiff8.pas
View File

@ -298,7 +298,7 @@ begin
{$IFDEF FPC} {$IFDEF FPC}
{$IFDEF ENDIAN_LITTLE} {$IFDEF ENDIAN_LITTLE}
result:=(RGB shl 8); //tags $00 at end for the A byte result:=(RGB shl 8); //tags $00 at end for the A byte
result:=NtoBE(LEtoN(result)); //flip byte order result:=SwapEndian(result); //flip byte order
{$ELSE} {$ELSE}
//Big endian //Big endian
result:=RGB; //leave value as is //todo: verify if this turns out ok result:=RGB; //leave value as is //todo: verify if this turns out ok