From ba534b1192e3358638c5a1b5d6e8192466dea6ca Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Tue, 25 Jul 2023 13:29:08 +0200
Subject: [PATCH] * Fix 32-bit compilation

---
 packages/fcl-image/src/fpreadtiff.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/packages/fcl-image/src/fpreadtiff.pas b/packages/fcl-image/src/fpreadtiff.pas
index a38056bbf8..21c1a1315b 100644
--- a/packages/fcl-image/src/fpreadtiff.pas
+++ b/packages/fcl-image/src/fpreadtiff.pas
@@ -183,12 +183,14 @@ begin
     Result:= SwapEndian(d);
 end;
 
+{$ifdef CPU64}
 function TFPReaderTiff.FixEndian(q: QWord): QWord;
 begin
   Result:=q;
   if FReverseEndian
   then Result:= SwapEndian(q);
 end;
+{$endif}
 
 procedure TFPReaderTiff.TiffError(Msg: string);
 begin