|
@@ -183,12 +183,14 @@ begin
|
|
|
Result:= SwapEndian(d);
|
|
Result:= SwapEndian(d);
|
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
|
|
+{$ifdef CPU64}
|
|
|
function TFPReaderTiff.FixEndian(q: QWord): QWord;
|
|
function TFPReaderTiff.FixEndian(q: QWord): QWord;
|
|
|
begin
|
|
begin
|
|
|
Result:=q;
|
|
Result:=q;
|
|
|
if FReverseEndian
|
|
if FReverseEndian
|
|
|
then Result:= SwapEndian(q);
|
|
then Result:= SwapEndian(q);
|
|
|
end;
|
|
end;
|
|
|
|
|
+{$endif}
|
|
|
|
|
|
|
|
procedure TFPReaderTiff.TiffError(Msg: string);
|
|
procedure TFPReaderTiff.TiffError(Msg: string);
|
|
|
begin
|
|
begin
|
Michaël Van Canneyt