paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fpexif: Undo previous commit.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7982 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2021-03-24 23:03:16 +00:00
parent 8312fda08f
commit d6e6b78c99
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/fpexif/fpemetadata.pas
View File

@ -223,9 +223,8 @@ begin
// From the current stream position (at the end) and the position where // 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 // 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 := AStream.Position - startPos;
segmentSize := segmentSize - 2; // skip two marker bytes
// Move the stream to where the segment size must be written... // Move the stream to where the segment size must be written...
AStream.Position := startPos; AStream.Position := startPos;