paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 10:39:39 +02: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; Debuggeefile : text;
ResetOK, TTYUsed : boolean; ResetOK, TTYUsed : boolean;
{$endif Unix} {$endif Unix}
{$ifdef PALMOSGDB}
const
TargetProtocol = 'palmos';
{$else}
const
TargetProtocol = 'remote';
{$endif PALMOSGDB}
{$ifdef SUPPORT_REMOTE} {$ifdef SUPPORT_REMOTE}
var var
S,ErrorStr : string; S,ErrorStr : string;
@ -724,13 +732,23 @@ begin
S:=RemoteMachine; S:=RemoteMachine;
If pos('@',S)>0 then If pos('@',S)>0 then
S:=copy(S,pos('@',S)+1,High(S)); 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 if Error then
begin begin
ErrorStr:=strpas(GetError); 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; exit;
end; end;
PopStatus;
end end
else else
begin begin
@ -3342,7 +3360,11 @@ end;
function GetGDBTargetShortName : string; function GetGDBTargetShortName : string;
begin begin
{$ifdef SUPPORT_REMOTE} {$ifdef SUPPORT_REMOTE}
{$ifdef PALMOSGDB}
GetGDBTargetShortName:='palmos';
{$else}
GetGDBTargetShortName:='linux'; GetGDBTargetShortName:='linux';
{$endif PALMOSGDB}
{$else not SUPPORT_REMOTE} {$else not SUPPORT_REMOTE}
{$ifdef COMPILER_1_0} {$ifdef COMPILER_1_0}
GetGDBTargetShortName:=source_os.shortname GetGDBTargetShortName:=source_os.shortname
@ -3574,7 +3596,10 @@ end.
{ {
$Log$ $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 + Use TEditorInputLine instead of TInputLine
Revision 1.42 2002/12/16 15:15:40 pierre Revision 1.42 2002/12/16 15:15:40 pierre