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

Use 0 instead of 0xffffffff to disable page width

Browse Source 
git-svn-id: trunk@45357 -
This commit is contained in:
pierre 2020-05-13 15:03:35 +00:00
parent c77ef7d6dd
commit db0f0be3ba
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/gdbint/src/gdbcon.pp
View File

@ -474,7 +474,7 @@ begin
SavedWindowWidth:=-1; SavedWindowWidth:=-1;
val(strpas(p),SavedWindowWidth); val(strpas(p),SavedWindowWidth);
if SavedWindowWidth<>-1 then if SavedWindowWidth<>-1 then
Command('set width 0xffffffff'); Command('set width 0');
end; end;
procedure TGDBController.NormWidth; procedure TGDBController.NormWidth;

4
packages/ide/fpviews.pas
View File

@ -2772,7 +2772,7 @@ begin
{$ifndef NODEBUG} {$ifndef NODEBUG}
If not assigned(Debugger) then Exit; If not assigned(Debugger) then Exit;
Debugger^.SetCommand('print symbol on'); Debugger^.SetCommand('print symbol on');
Debugger^.SetCommand('width 0xffffffff'); Debugger^.SetCommand('width 0');
Debugger^.Command('disas /m '+FuncName); Debugger^.Command('disas /m '+FuncName);
p:=StrNew(Debugger^.GetOutput); p:=StrNew(Debugger^.GetOutput);
ProcessPChar(p); ProcessPChar(p);
@ -2788,7 +2788,7 @@ begin
{$ifndef NODEBUG} {$ifndef NODEBUG}
If not assigned(Debugger) then Exit; If not assigned(Debugger) then Exit;
Debugger^.SetCommand('print symbol on'); Debugger^.SetCommand('print symbol on');
Debugger^.SetCommand('width 0xffffffff'); Debugger^.SetCommand('width 0');
Debugger^.Command('disas /m 0x'+HexStr(Addr,sizeof(Addr)*2)); Debugger^.Command('disas /m 0x'+HexStr(Addr,sizeof(Addr)*2));
p:=StrNew(Debugger^.GetOutput); p:=StrNew(Debugger^.GetOutput);
ProcessPChar(p); ProcessPChar(p);