From 68e8dba861ee0738e795e9ec5c6e30144a929f81 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Thu, 8 Dec 2022 17:58:19 +0000
Subject: [PATCH] fpexif: Minor optimization.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8642 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/fpexif/fpemetadata.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/fpexif/fpemetadata.pas b/components/fpexif/fpemetadata.pas
index 923fdd507..8d2b20dd3 100644
--- a/components/fpexif/fpemetadata.pas
+++ b/components/fpexif/fpemetadata.pas
@@ -529,12 +529,12 @@ var
   sa: ansistring;
  {$ENDIF}
 begin
-  p := AStream.Position;
   streamsize := AStream.Size;
 
   if not ((ReadByte(AStream) = $FF) and (ReadByte(AStream) = M_SOI)) then
     exit;
 
+  p := AStream.Position;
   while p < streamsize do begin
     // The basic structure of the jpeg segments is
     //   $FF ..... identifier (sometimes repeated)