paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-19 05:39:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* included debugger result tye in execcommand (start fixing debugging on Mac OSX)

Browse Source 
git-svn-id: trunk@7170 -
This commit is contained in:
marc 2005-05-14 12:09:36 +00:00
parent d83e1c5b8e
commit e728ebef22
5 changed files with 424 additions and 495 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
debugger/cmdlinedebugger.pp
View File

@ -247,10 +247,13 @@ end;
destructor TCmdLineDebugger.Destroy;
begin
if (FDbgProcess <> nil) and (FDbgProcess.Running)
then FDbgProcess.Terminate(0);
inherited;
try
FDbgProcess.Free;
FDbgProcess:=nil;
FreeAndNil(FDbgProcess);
except
on E: Exception do DebugLn('Exeption while freeing debugger: ', E.Message);
end;
@ -403,6 +406,9 @@ initialization
end.
{ =============================================================================
$Log$
Revision 1.39 2005/05/14 12:09:36 marc
* included debugger result tye in execcommand (start fixing debugging on Mac OSX)
Revision 1.38 2004/11/19 12:18:50 vincents
create debugger without console.

118
debugger/dbgutils.pp
View File

@ -53,12 +53,6 @@ type
end;
function GetLine(var ABuffer: String): String;
function StripLN(const ALine: String): String;
function GetPart(const ASkipTo, AnEnd: String; var ASource: String): String; overload;
function GetPart(const ASkipTo, AnEnd: String; var ASource: String; const AnIgnoreCase: Boolean): String; overload;
function GetPart(const ASkipTo, AnEnd: array of String; var ASource: String): String; overload;
function GetPart(const ASkipTo, AnEnd: array of String; var ASource: String; const AnIgnoreCase: Boolean): String; overload;
function GetPart(const ASkipTo, AnEnd: array of String; var ASource: String; const AnIgnoreCase, AnUpdateSource: Boolean): String; overload;
function ConvertToCString(const AText: String): String;
function DeleteEscapeChars(const AText: String; const AEscapeChar: Char): String;
@ -117,115 +111,6 @@ begin
end;
end;
function StripLN(const ALine: String): String;
var
idx: Integer;
begin
idx := Pos(#10, ALine);
if idx = 0
then begin
idx := Pos(#13, ALine);
if idx = 0
then begin
Result := ALine;
Exit;
end;
end
else begin
if (idx > 1)
and (ALine[idx - 1] = #13)
then Dec(idx);
end;
Result := Copy(ALine, 1, idx - 1);
end;
function GetPart(const ASkipTo, AnEnd: String; var ASource: String): String;
begin
Result := GetPart([ASkipTo], [AnEnd], ASource, False, True);
end;
function GetPart(const ASkipTo, AnEnd: String; var ASource: String; const AnIgnoreCase: Boolean): String; overload;
begin
Result := GetPart([ASkipTo], [AnEnd], ASource, AnIgnoreCase, True);
end;
function GetPart(const ASkipTo, AnEnd: array of String; var ASource: String): String; overload;
begin
Result := GetPart(ASkipTo, AnEnd, ASource, False, True);
end;
function GetPart(const ASkipTo, AnEnd: array of String; var ASource: String; const AnIgnoreCase: Boolean): String; overload;
begin
Result := GetPart(ASkipTo, AnEnd, ASource, AnIgnoreCase, True);
end;
function GetPart(const ASkipTo, AnEnd: array of String; var ASource: String; const AnIgnoreCase, AnUpdateSource: Boolean): String; overload;
var
n, i, idx: Integer;
S, Source, Match: String;
HasEscape: Boolean;
begin
Source := ASource;
if High(ASkipTo) >= 0
then begin
idx := 0;
HasEscape := False;
if AnIgnoreCase
then S := UpperCase(Source)
else S := Source;
for n := Low(ASkipTo) to High(ASkipTo) do
begin
if ASkipTo[n] = ''
then begin
HasEscape := True;
Continue;
end;
if AnIgnoreCase
then i := Pos(UpperCase(ASkipTo[n]), S)
else i := Pos(ASkipTo[n], S);
if i > idx
then begin
idx := i;
Match := ASkipTo[n];
end;
end;
if (idx = 0) and not HasEscape
then begin
Result := '';
Exit;
end;
if idx > 0
then Delete(Source, 1, idx + Length(Match) - 1);
end;
if AnIgnoreCase
then S := UpperCase(Source)
else S := Source;
idx := MaxInt;
for n := Low(AnEnd) to High(AnEnd) do
begin
if AnEnd[n] = '' then Continue;
if AnIgnoreCase
then i := Pos(UpperCase(AnEnd[n]), S)
else i := Pos(AnEnd[n], S);
if (i > 0) and (i < idx) then idx := i;
end;
if idx = MaxInt
then begin
Result := Source;
Source := '';
end
else begin
Result := Copy(Source, 1, idx - 1);
Delete(Source, 1, idx - 1);
end;
if AnUpdateSource
then ASource := Source;
end;
function ConvertToCString(const AText: String): String;
var
n: Integer;
@ -316,6 +201,9 @@ initialization
end.
{ =============================================================================
$Log$
Revision 1.14 2005/05/14 12:09:36 marc
* included debugger result tye in execcommand (start fixing debugging on Mac OSX)
Revision 1.13 2005/02/05 14:46:09 mattias
fixed compilation

781
debugger/gdbmidebugger.pp
View File

File diff suppressed because it is too large Load Diff

5
debugger/gdbtypeinfo.pp
View File

@ -100,6 +100,8 @@ type
property Items[const AIndex: Integer]: TGDBType read GetType; default;
end;
{ TGDBType }
TGDBType = class(TObject)
private
FAncestor: String;
@ -618,6 +620,9 @@ end;
end.
{ =============================================================================
$Log$
Revision 1.5 2005/05/14 12:09:36 marc
* included debugger result tye in execcommand (start fixing debugging on Mac OSX)
Revision 1.4 2004/11/21 15:19:08 marc
* worked aound lack of %u as formatspecifier
+ introduced dbgptr for dealing with pointers on the target

5
debugger/sshgdbmidebugger.pas
View File

@ -38,7 +38,7 @@ interface
uses
Classes, SysUtils, Dialogs, Controls, LazConf, GDBMIDebugger, DBGUtils,
BaseDebugManager, Debugger, PropEdits, Graphics;
BaseDebugManager, Debugger, PropEdits, Graphics, LCLProc;
type
TSSHGDBMIDebugger = class(TGDBMIDebugger)
@ -206,6 +206,9 @@ end.
{ =============================================================================
$Log$
Revision 1.10 2005/05/14 12:09:36 marc
* included debugger result tye in execcommand (start fixing debugging on Mac OSX)
Revision 1.9 2004/01/17 13:29:04 mattias
using now fpc constant LineEnding from Vincent