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

* better storing of breakpoints

Browse Source
This commit is contained in:
pierre 1999-02-10 09:53:14 +00:00
parent f8ecd046d1
commit ec63373072
1 changed files with 19 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
ide/text/fpini.pas
View File

@ -77,18 +77,12 @@ const
ieBreakpointTyp = 'Type';
ieBreakpointCount = 'Count';
ieBreakpointState = 'State';
ieBreakpointFunc = 'Function';
ieBreakpointName = 'Name';
ieBreakpointFile = 'FileName';
ieBreakpointLine = 'LineNumber';
ieBreakpointCond = 'Condition';
ieSourceList = 'SourceList';
const
BreakpointTypeStr : Array[BreakpointType] of String[9]
= ( 'function','file-line','watch','awatch','rwatch','invalid' );
BreakpointStateStr : Array[BreakpointState] of String[8]
= ( 'enabled','disabled','invalid' );
procedure InitINIFile;
var S: string;
begin
@ -150,15 +144,13 @@ begin
Begin
INIFile^.SetEntry(secBreakpoint,ieBreakpointTyp+S,BreakpointTypeStr[typ]);
INIFile^.SetEntry(secBreakpoint,ieBreakpointState+S,BreakpointStateStr[state]);
case typ of
bt_function :
INIFile^.SetEntry(secBreakpoint,ieBreakpointFunc+S,Name^);
bt_file_line :
begin
INIFile^.SetEntry(secBreakpoint,ieBreakpointFile+S,Name^);
INIFile^.SetIntEntry(secBreakpoint,ieBreakpointLine+S,Line);
end;
end;
if typ=bt_file_line then
begin
INIFile^.SetEntry(secBreakpoint,ieBreakpointFile+S,FileName^);
INIFile^.SetIntEntry(secBreakpoint,ieBreakpointLine+S,Line);
end
else
INIFile^.SetEntry(secBreakpoint,ieBreakpointName+S,Name^);
if assigned(Conditions) then
INIFile^.SetEntry(secBreakpoint,ieBreakpointCond+S,Conditions^);
end;
@ -183,21 +175,23 @@ begin
If pos(BreakpointStateStr[state],S)>0 then break;
case typ of
bt_invalid :;
bt_function :
begin
S:=INIFile^.GetEntry(secBreakpoint,ieBreakpointFunc+S2,'');
end;
bt_file_line :
begin
S:=INIFile^.GetEntry(secBreakpoint,ieBreakpointFile+S2,'');
Line:=INIFile^.GetIntEntry(secBreakpoint,ieBreakpointLine+S2,0);
end;
else
begin
S:=INIFile^.GetEntry(secBreakpoint,ieBreakpointName+S2,'');
end;
end;
SC:=INIFile^.GetEntry(secBreakpoint,ieBreakpointCond+S,'');
if (typ=bt_function) and (S<>'') then
new(PB,init_function(S))
else if (typ=bt_file_line) and (S<>'') then
new(PB,init_file_line(S,Line));
new(PB,init_file_line(S,Line))
else
new(PB,init_type(typ,S));
If assigned(PB) then
begin
PB^.state:=state;
@ -374,7 +368,10 @@ end;
end.
{
$Log$
Revision 1.10 1999-02-05 13:08:42 pierre
Revision 1.11 1999-02-10 09:53:14 pierre
* better storing of breakpoints
Revision 1.10 1999/02/05 13:08:42 pierre
+ new breakpoint types added
Revision 1.9 1999/02/05 12:11:55 pierre