paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 12:39:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ small palmos specific additions

Browse Source
This commit is contained in:
pierre 2003-01-14 16:25:23 +00:00
parent a9ca8a2c12
commit 1a41c4487a
1 changed files with 28 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
ide/fpdebug.pas
View File

@ -707,6 +707,14 @@ var
Debuggeefile : text;
ResetOK, TTYUsed : boolean;
{$endif Unix}
{$ifdef PALMOSGDB}
const
TargetProtocol = 'palmos';
{$else}
const
TargetProtocol = 'remote';
{$endif PALMOSGDB}
{$ifdef SUPPORT_REMOTE}
var
S,ErrorStr : string;
@ -724,13 +732,23 @@ begin
S:=RemoteMachine;
If pos('@',S)>0 then
S:=copy(S,pos('@',S)+1,High(S));
Command('target remote '+S+':'+RemotePort);
If RemotePort<>'' then
S:=S+':'+RemotePort;
{$ifdef PALMOSGDB}
{ set the default value for PalmOS }
If S='' then
S:='localhost:2000';
{$endif PALMOSGDB}
PushStatus(msg_connectingto+S);
Command('target '+TargetProtocol+' '+S);
if Error then
begin
ErrorStr:=strpas(GetError);
ErrorBox(#3'Error in "target remote"'#13#3+ErrorStr,nil);
ErrorBox(#3'Error in "target '+TargetProtocol+'"'#13#3+ErrorStr,nil);
PopStatus;
exit;
end;
PopStatus;
end
else
begin
@ -3342,7 +3360,11 @@ end;
function GetGDBTargetShortName : string;
begin
{$ifdef SUPPORT_REMOTE}
{$ifdef PALMOSGDB}
GetGDBTargetShortName:='palmos';
{$else}
GetGDBTargetShortName:='linux';
{$endif PALMOSGDB}
{$else not SUPPORT_REMOTE}
{$ifdef COMPILER_1_0}
GetGDBTargetShortName:=source_os.shortname
@ -3574,7 +3596,10 @@ end.
{
$Log$
Revision 1.43 2002-12-18 01:20:12 pierre
Revision 1.44 2003-01-14 16:25:23 pierre
+ small palmos specific additions
Revision 1.43 2002/12/18 01:20:12 pierre
+ Use TEditorInputLine instead of TInputLine
Revision 1.42 2002/12/16 15:15:40 pierre