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

* RegisterWindow problem fixed

Browse Source
This commit is contained in:
pierre 2000-01-10 00:25:06 +00:00
parent 1da849acde
commit b270e9c21d
1 changed files with 27 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
ide/text/fpdebug.pas
View File

@ -2212,7 +2212,9 @@ end;
procedure TRegistersView.Draw;
var
p : pchar;
p,po : pchar;
p10 : pchar;
i : integer;
s : string;
begin
@ -2228,13 +2230,25 @@ end;
WriteStr(0,0,'<Debugger error>',7)
else
begin
p:=StrNew(Debugger^.GetOutput);
po:=StrNew(Debugger^.GetOutput);
p:=po;
i:=0;
if assigned(p) then
begin
{!!!!!!!!! here we crash!! }
move(p^,s,strlen(p));
s[0]:=chr(strlen(p));
WriteStr(0,0,s,7);
p10:=strpos(p,#10);
while p10<>nil do
begin
move(p^,@s[1],dword(p10)-dword(p));
s[0]:=chr(dword(p10)-dword(p));
WriteStr(0,i,s,7);
inc(i);
p:=pchar(p10+1);
p10:=strpos(p,#10);
if (p10=nil) and (strlen(p)>0) then
p10:=p+strlen(p);
end;
{ free allocated memory }
strdispose(po);
end
else
WriteStr(0,0,'<unknown values>',7);
@ -2257,13 +2271,13 @@ end;
begin
Desktop^.GetExtent(R);
R.A.X:=R.B.X-24;
R.B.Y:=8;
R.A.X:=R.B.X-48;
R.B.Y:=R.A.Y+18;
inherited Init(R,' Register View', wnNoNumber);
Flags:=wfClose or wfMove;
Palette:=wpCyanWindow;
HelpCtx:=hcRegisters;
R.Assign(1,1,22,6);
R.Assign(1,1,47,17);
RV:=new(PRegistersView,init(R));
Insert(RV);
If assigned(RegistersWindow) then
@ -2578,7 +2592,10 @@ end.
{
$Log$
Revision 1.38 2000-01-09 21:05:51 florian
Revision 1.39 2000-01-10 00:25:06 pierre
* RegisterWindow problem fixed
Revision 1.38 2000/01/09 21:05:51 florian
* some fixes for register view
Revision 1.37 2000/01/08 18:26:20 florian