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

* other stream error for Watches/Breakpoints corrected

Browse Source
This commit is contained in:
pierre 1999-09-17 16:41:10 +00:00
parent ed31511a05
commit 4c42fc0a92
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/text/fpdesk.pas
View File

@ -122,7 +122,7 @@ begin
if OK then
begin
OWC:=WatchesCollection;
New(WatchesCollection,Load(S^));
WatchesCollection:=PWatchesCollection(S^.Get);
OK:=(S^.Status=stOK);
if OK and assigned(OWC) then
Dispose(OWC,Done);
@ -171,7 +171,7 @@ begin
if OK then
begin
OBC:=BreakpointsCollection;
New(BreakpointsCollection,Load(S^));
BreakpointsCollection:=PBreakpointCollection(S^.get);
OK:=(S^.Status=stOK);
If OK and assigned(OBC) then
Dispose(OBC,Done);
@ -403,7 +403,10 @@ end;
END.
{
$Log$
Revision 1.11 1999-09-17 16:28:58 pierre
Revision 1.12 1999-09-17 16:41:10 pierre
* other stream error for Watches/Breakpoints corrected
Revision 1.11 1999/09/17 16:28:58 pierre
* ResWatches in WriteBreakpoints typo !
Revision 1.10 1999/09/16 14:34:58 pierre