paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-31 03:52:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: syneditmiscclasses: safer align, bug #19109

Browse Source 
git-svn-id: trunk@32570 -
This commit is contained in:
mattias 2011-09-30 14:28:58 +00:00
parent 883880f37a
commit 09ed77ad6c
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/synedit/syneditmiscclasses.pp
View File

@ -336,7 +336,11 @@ type
property Options: TSynSearchOptions write SetOptions;
end;
{$IFDEF FPC_REQUIRES_PROPER_ALIGNMENT}
TSynClipboardStreamTag = type integer;
{$ELSE }
TSynClipboardStreamTag = type word;
{$ENDIF}
{ TSynClipboardStream }
@ -1283,6 +1287,9 @@ begin
inc(ctag, SizeOf(TSynClipboardStreamTag));
inc(ctag, PInteger(ctag)^);
inc(ctag, SizeOf(Integer));
{$IFDEF FPC_REQUIRES_PROPER_ALIGNMENT}
ctag := Align(ctag, SizeOf(integer));
{$ENDIF}
end;
end;
if (Result <> nil) and
@ -1310,9 +1317,14 @@ procedure TSynClipboardStream.AddTag(ATag: TSynClipboardStreamTag; Location: Poi
var
msize: Int64;
mpos: Pointer;
LenBlock:PtrUInt;
begin
msize := FMemStream.Size;
FMemStream.Size := msize + Len + SizeOf(TSynClipboardStreamTag) + SizeOf(Integer);
LenBlock:= Len + SizeOf(TSynClipboardStreamTag) + SizeOf(Integer);
{$IFDEF FPC_REQUIRES_PROPER_ALIGNMENT}
LenBlock := Align(LenBlock, SizeOf(integer));
{$ENDIF}
FMemStream.Size := msize +LenBlock;
mpos := FMemStream.Memory + msize;
TSynClipboardStreamTag(mpos^) := ATag;
inc(mpos, SizeOf(TSynClipboardStreamTag));