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

+ cmResetDebugger and cmGrep

Browse Source 
* Avoid StatusStack overflow
This commit is contained in:
pierre 1999-02-04 12:23:43 +00:00
parent 0d65d4126f
commit 33e7e22e1a
2 changed files with 32 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/text/fpconst.pas
View File

@ -75,7 +75,8 @@ const
cmAddWatch = 225;
cmTraceInto = 226;
cmStepOver = 227;
cmResetDebugger = 228;
cmNotImplemented = 1000;
cmNewFromTemplate = 1001;
@ -86,6 +87,7 @@ const
cmCalculatorPaste = 1603;
cmMsgClear = 1604;
cmUpdateTools = 1605;
cmGrep = 1606;
cmAddItem = 1620;
cmEditItem = 1621;
@ -168,6 +170,7 @@ const
hcSaveINI = hcShift+cmSaveINI;
hcSaveAsINI = hcShift+cmSaveAsINI;
hcCalculator = hcShift+cmCalculator;
hcGrep = hcShift+cmGrep;
hcSwitchesMode = hcShift+cmSwitchesMode;
hcAbout = hcShift+cmAbout;
@ -194,6 +197,7 @@ const
hcGlobals = hcShift+cmGlobals;
hcRun = hcShift+cmRun;
hcParameters = hcShift+cmParameters;
hcResetDebugger = hcShift+cmResetDebugger;
hcCompile = hcShift+cmCompile;
hcMake = hcShift+cmMake;
hcBuild = hcShift+cmBuild;
@ -263,7 +267,11 @@ implementation
END.
{
$Log$
Revision 1.7 1999-01-22 10:24:02 peter
Revision 1.8 1999-02-04 12:23:43 pierre
+ cmResetDebugger and cmGrep
* Avoid StatusStack overflow
Revision 1.7 1999/01/22 10:24:02 peter
* first debugger things
Revision 1.6 1999/01/21 11:54:12 peter

27
ide/text/fphelp.pas
View File

@ -59,7 +59,10 @@ uses Objects,Views,App,MsgBox,
WHelp,
FPConst,FPVars,FPUtils;
var StatusStack : array[0..10] of string[MaxViewWidth];
const
MaxStatusLevel = 10;
var StatusStack : array[0..MaxStatusLevel] of string[MaxViewWidth];
const
StatusStackPtr : integer = 0;
@ -125,6 +128,7 @@ begin
hcRunMenu : S:='Execution and parameters';
hcRun : S:='Run the current program';
hcParameters : S:='Set command-line parameters passed to program at execution';
hcResetDebugger : S:='Reset Program';
hcUserScreen : S:='Switch to the full-screen user output';
hcCompileMenu : S:='Compile, build & make';
@ -137,9 +141,12 @@ begin
hcInformation : S:='Show compiler messages and program information';
hcDebugMenu : S:='';
hcToggleBreakpoint : S:='Toggles Breakpoint';
hcToolsMenu : S:='User installed tools';
hcCalculator : S:='Show calculator';
hcGrep : S:='Run grep';
hcToolsBase..
hcToolsBase+MaxToolCount
: S:='User installed tool';
@ -292,7 +299,10 @@ end;
procedure PushStatus(S: string);
begin
if StatusLine=nil then Exit;
StatusStack[StatusStackPtr]:=PAdvancedStatusLine(StatusLine)^.GetStatusText;
If StatusStackPtr<=MaxStatusLevel then
StatusStack[StatusStackPtr]:=PAdvancedStatusLine(StatusLine)^.GetStatusText
else
StatusStack[MaxStatusLevel]:=PAdvancedStatusLine(StatusLine)^.GetStatusText;
SetStatus(S);
Inc(StatusStackPtr);
end;
@ -301,7 +311,10 @@ procedure PopStatus;
begin
if StatusLine=nil then Exit;
Dec(StatusStackPtr);
SetStatus(StatusStack[StatusStackPtr]);
If StatusStackPtr<=MaxStatusLevel then
SetStatus(StatusStack[StatusStackPtr])
else
SetStatus(StatusStack[MaxStatusLevel]);
end;
procedure SetStatus(S: string);
@ -328,7 +341,11 @@ end;
END.
{
$Log$
Revision 1.4 1999-01-21 11:54:13 peter
Revision 1.5 1999-02-04 12:23:44 pierre
+ cmResetDebugger and cmGrep
* Avoid StatusStack overflow
Revision 1.4 1999/01/21 11:54:13 peter
+ tools menu
+ speedsearch in symbolbrowser
* working run command