paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-08 11:19:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Change two precondition checks into assertions.

Browse Source 
git-svn-id: trunk@3836 -
This commit is contained in:
daniel 2006-06-10 15:35:34 +00:00
parent cfcc14fdb9
commit 31c77b43d8
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/weditor.pas
View File

@ -1485,7 +1485,9 @@ end;
destructor TEditorLineInfo.Done;
begin
if Format<>nil then DisposeStr(Format); Format:=nil;
if Format<>nil then
DisposeStr(Format);
Format:=nil;
SetFold(nil);
inherited Done;
end;
@ -1522,8 +1524,7 @@ var B: PEditorBinding;
Count,I,Idx: sw_integer;
L: PCustomLine;
begin
if Assigned(AEditor)=false then Exit;
assert(Aeditor<>nil);
New(B, Init(AEditor));
Bindings^.Insert(B);
Idx:=Bindings^.IndexOf(B);
@ -1543,6 +1544,7 @@ var B: PEditorBinding;
Count,I: sw_integer;
L: PCustomLine;
begin
assert(Aeditor<>nil);
B:=SearchBinding(AEditor);
if Assigned(B) then
begin
@ -3044,7 +3046,7 @@ begin
Inc(LineDelta);
OK:=GetLineCount<MaxLineCount;
end;
if OK=false then EditorDialog(edTooManyLines,nil);
if not OK then EditorDialog(edTooManyLines,nil);
{ mainly to force eaMove insertion }
if not IsClipboard then
SetCurPtr(EPos.X,EPos.Y);