From d6e6b78c99d40a62644e48abc6b7d0f614256d1e Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Wed, 24 Mar 2021 23:03:16 +0000 Subject: [PATCH] fpexif: Undo previous commit. git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7982 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/fpexif/fpemetadata.pas | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/components/fpexif/fpemetadata.pas b/components/fpexif/fpemetadata.pas index 83fde901b..cae2dd30c 100644 --- a/components/fpexif/fpemetadata.pas +++ b/components/fpexif/fpemetadata.pas @@ -223,9 +223,8 @@ begin // From the current stream position (at the end) and the position where // the segment size must be written, we calculate the size of the segment - startPos := ASegmentStartPos + SizeOf(word); + startPos := ASegmentStartPos + SizeOf(word); // skip 2 marker bytes segmentSize := AStream.Position - startPos; - segmentSize := segmentSize - 2; // skip two marker bytes // Move the stream to where the segment size must be written... AStream.Position := startPos;