paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-10 23:38:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-image: fpreadtiff: fixed inline

Browse Source 
git-svn-id: trunk@42316 -
This commit is contained in:
Mattias Gaertner 2019-07-01 14:16:32 +00:00
parent 561fa85104
commit bd5a81c657
1 changed files with 19 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
packages/fcl-image/src/fpreadtiff.pas
View File

@ -161,6 +161,23 @@ begin
Result := FPColor(R and $ffff,G and $ffff,B and $ffff);
end ;
function TFPReaderTiff.FixEndian(w: Word): Word; inline;
begin
Result:=w;
if FReverseEndian then
Result:=((Result and $ff) shl 8) or (Result shr 8);
end;
function TFPReaderTiff.FixEndian(d: DWord): DWord; inline;
begin
Result:=d;
if FReverseEndian then
Result:=((Result and $ff) shl 24)
or ((Result and $ff00) shl 8)
or ((Result and $ff0000) shr 8)
or (Result shr 24);
end;
procedure TFPReaderTiff.TiffError(Msg: string);
begin
Msg:=Msg+' at position '+IntToStr(s.Position);
@ -1796,7 +1813,7 @@ begin
ChunkCount := TilesAcross * TilesDown;
ReadShortOrLongValues(IFD.TileOffsets,ChunkOffsets,CurCount);
if CurCount<ChunkCount then
TiffError('number of TileCounts is wrong');
TiffError('number of TileOffsets is wrong');
ReadShortOrLongValues(IFD.TileByteCounts,ChunkByteCounts,CurCount);
if CurCount<ChunkCount then
TiffError('number of TileByteCounts is wrong');
@ -1804,7 +1821,7 @@ begin
ChunkCount:=((IFD.ImageHeight-1) div IFD.RowsPerStrip)+1;
ReadShortOrLongValues(IFD.StripOffsets,ChunkOffsets,CurCount);
if CurCount<ChunkCount then
TiffError('number of StripCounts is wrong');
TiffError('number of StripOffsets is wrong');
ReadShortOrLongValues(IFD.StripByteCounts,ChunkByteCounts,CurCount);
if CurCount<ChunkCount then
TiffError('number of StripByteCounts is wrong');
@ -1950,23 +1967,6 @@ begin
s := nil;
end;
function TFPReaderTiff.FixEndian(w: Word): Word; inline;
begin
Result:=w;
if FReverseEndian then
Result:=((Result and $ff) shl 8) or (Result shr 8);
end;
function TFPReaderTiff.FixEndian(d: DWord): DWord; inline;
begin
Result:=d;
if FReverseEndian then
Result:=((Result and $ff) shl 24)
or ((Result and $ff00) shl 8)
or ((Result and $ff0000) shr 8)
or (Result shr 24);
end;
procedure TFPReaderTiff.DecodePackBits(var Buffer: Pointer; var Count: PtrInt);
var
NewBuffer: Pointer;