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

SynEdit: added debug code

Browse Source 
git-svn-id: trunk@25275 -
This commit is contained in:
martin 2010-05-09 13:56:04 +00:00
parent a12d403ae0
commit 9ef0d2701d
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
components/synedit/synedittextbase.pas
View File

@ -1232,12 +1232,18 @@ end;
function TSynEditStorageMem.GetItemPointer(Index: Integer): Pointer;
begin
//if (Index >= FCount) or (FCount > FCapacity) then raise Exception.Create('Bad Index');
{$IFDEF AssertSynMemIndex}
if (Index < 0) or (Index >= FCapacity) or (FCount > FCapacity) then
raise Exception.Create('Bad Index');
{$ENDIF}
Result := Pointer(FMem + Index * ItemSize);
end;
procedure TSynEditStorageMem.SetCapacity(const AValue: Integer);
begin
{$IFDEF AssertSynMemIndex}
if (AValue < 0) or (AValue < FCount) then raise Exception.Create('Bad Capacity');
{$ENDIF}
if FCapacity = AValue then exit;
FMem := ReallocMem(FMem, AValue * ItemSize);
if AValue > FCapacity then
@ -1247,6 +1253,9 @@ end;
procedure TSynEditStorageMem.SetCount(const AValue: Integer);
begin
{$IFDEF AssertSynMemIndex}
if (AValue < 0) or (AValue > FCapacity) then raise Exception.Create('Bad Count');
{$ENDIF}
FCount := AValue;
end;
@ -1292,6 +1301,12 @@ procedure TSynEditStorageMem.Move(AFrom, ATo, ALen: Integer);
var
len: Integer;
begin
{$IFDEF AssertSynMemIndex}
if (FCount > FCapacity) or (aTo=AFrom) or
(AFrom < 0) or (AFrom >= FCapacity) or
(ATo < 0) or (ATo >= FCapacity) then
raise Exception.Create('Bad Move');
{$ENDIF}
if ATo < AFrom then begin
Len := Min(ALen, AFrom-ATo);
System.Move((FMem+AFrom*ItemSize)^, (FMem+ATo*ItemSize)^, Alen*ItemSize);