paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 13:00:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Applied (modified) patch from Colin Western

Browse Source 
git-svn-id: trunk@6743 -
This commit is contained in:
marc 2005-02-05 14:06:13 +00:00
parent ba33923ef4
commit b1b72542e5
3 changed files with 15 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
debugger/callstackdlg.pp
View File

@ -130,6 +130,8 @@ end;
destructor TCallStackDlg.Destroy;
begin
FCallStackNotification.OnChange := nil;
FCallStackNotification.ReleaseReference;
inherited Destroy;
end;
@ -198,6 +200,9 @@ end.
{ =============================================================================
$Log$
Revision 1.6 2005/02/05 14:06:13 marc
* Applied (modified) patch from Colin Western
Revision 1.5 2004/08/26 23:50:05 marc
* Restructured debugger view classes
* Fixed help

13
debugger/dbgutils.pp
View File

@ -253,18 +253,14 @@ end;
function DeleteEscapeChars(const AText: String; const AEscapeChar: Char): String;
var
i: Integer;
l: Integer;
Escape: Boolean;
begin
Result:=AText;
Escape := False;
i:=1;
l:=length(Result);
while i<l do begin
Escape := not Escape and (Result[i]=AEscapeChar);
if Escape then
while i<length(Result) do begin
if Result[i]=AEscapeChar then
System.Delete(Result,i,1);
inc(i);
Inc(i);
end;
end;
@ -321,6 +317,9 @@ initialization
end.
{ =============================================================================
$Log$
Revision 1.12 2005/02/05 14:06:13 marc
* Applied (modified) patch from Colin Western
Revision 1.11 2004/09/14 21:30:36 vincents
replaced writeln by DebugLn

5
debugger/debugger.pp
View File

@ -3158,7 +3158,7 @@ begin
if Assigned(FOnChange) then FOnChange(Self);
end
else begin
if AOldState = dsPause
if (AOldState = dsPause) or (AOldState = dsNone) { Force clear on initialisation }
then begin
Clear;
if Assigned(FOnClear) then FOnClear(Self);
@ -3576,6 +3576,9 @@ finalization
end.
{ =============================================================================
$Log$
Revision 1.69 2005/02/05 14:06:13 marc
* Applied (modified) patch from Colin Western
Revision 1.68 2005/01/29 14:36:04 mattias
reactivated fast xml units without widestrings