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

* allow FP to debug itself

Browse Source
This commit is contained in:
pierre 2000-02-01 10:59:58 +00:00
parent 2cbd2456cf
commit 82c78d2e22
1 changed files with 27 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
ide/text/fpdebug.pas
View File

@ -2873,11 +2873,33 @@ end;
****************************************************************************}
procedure InitDebugger;
{$ifdef DEBUG}
var s : string;
i,p : longint;
{$endif DEBUG}
begin
{$ifdef DEBUG}
Assign(gdb_file,GDBOutFileName);
{$I-}
Rewrite(gdb_file);
Use_gdb_file:=true;
if InOutRes<>0 then
begin
s:=GDBOutFileName;
p:=pos('.',s);
if p>1 then
for i:=0 to 9 do
begin
s:=copy(s,1,p-2)+chr(i+ord('0'))+copy(s,p,length(s));
InOutRes:=0;
Assign(gdb_file,s);
rewrite(gdb_file);
if InOutRes=0 then
break;
end;
end;
if IOResult=0 then
Use_gdb_file:=true;
{$I+}
{$endif}
if (not ExistsFile(ExeFile)) or (CompilationPhase<>cpDone) then
DoCompile(cRun);
@ -3018,7 +3040,10 @@ end.
{
$Log$
Revision 1.45 2000-01-28 22:38:21 pierre
Revision 1.46 2000-02-01 10:59:58 pierre
* allow FP to debug itself
Revision 1.45 2000/01/28 22:38:21 pierre
* CrtlF9 starts debugger if there are active breakpoints
Revision 1.44 2000/01/27 22:30:38 florian