paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-26 11:32:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ save/retrieve remote support variables

Browse Source
This commit is contained in:
pierre 2002-11-28 12:55:06 +00:00
parent ab17afa294
commit 39df3d1b8c
1 changed files with 23 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
ide/fpini.pas
View File

@ -70,6 +70,11 @@ const
ieRunParameters = 'Parameters'; ieRunParameters = 'Parameters';
ieDebuggeeRedir = 'DebugRedirection'; ieDebuggeeRedir = 'DebugRedirection';
ieRemoteMachine = 'RemoteMachine'; ieRemoteMachine = 'RemoteMachine';
ieRemotePort = 'RemotePort';
ieRemoteSendCommand = 'RemoteSendCommand';
ieRemoteConfig = 'RemoteSendConfig';
ieRemoteIdent = 'RemoteSendIdent';
ieRemoteDirectory = 'RemoteDirectory';
iePrimaryFile = 'PrimaryFile'; iePrimaryFile = 'PrimaryFile';
ieCompileMode = 'CompileMode'; ieCompileMode = 'CompileMode';
iePalette = 'Palette'; iePalette = 'Palette';
@ -352,9 +357,14 @@ begin
SetRunParameters(INIFile^.GetEntry(secRun,ieRunParameters,GetRunParameters)); SetRunParameters(INIFile^.GetEntry(secRun,ieRunParameters,GetRunParameters));
{$ifndef GABOR} {$ifndef GABOR}
DebuggeeTTY := INIFile^.GetEntry(secRun,ieDebuggeeRedir,DebuggeeTTY); DebuggeeTTY := INIFile^.GetEntry(secRun,ieDebuggeeRedir,DebuggeeTTY);
{$ifdef CrossGDB} {$ifdef SUPPORT_REMOTE}
RemoteMachine :=INIFile^.GetEntry(secRun,ieRemoteMachine,RemoteMachine); RemoteMachine :=INIFile^.GetEntry(secRun,ieRemoteMachine,RemoteMachine);
{$endif CrossGDB} RemotePort :=INIFile^.GetEntry(secRun,ieRemotePort,RemotePort);
RemoteSendCommand :=INIFile^.GetEntry(secRun,ieRemoteSendCommand,RemoteSendCommand);
RemoteConfig :=INIFile^.GetEntry(secRun,ieRemoteConfig,RemoteConfig);
RemoteIdent :=INIFile^.GetEntry(secRun,ieRemoteIdent,RemoteIdent);
RemoteDir :=INIFile^.GetEntry(secRun,ieRemoteDirectory,RemoteDir);
{$endif SUPPORT_REMOTE}
{$endif} {$endif}
{ Compile } { Compile }
S:=INIFile^.GetEntry(secCompile,ieCompileMode,''); S:=INIFile^.GetEntry(secCompile,ieCompileMode,'');
@ -545,9 +555,14 @@ begin
{$ifndef GABOR} {$ifndef GABOR}
{ If DebuggeeTTY<>'' then } { If DebuggeeTTY<>'' then }
INIFile^.SetEntry(secRun,ieDebuggeeRedir,DebuggeeTTY); INIFile^.SetEntry(secRun,ieDebuggeeRedir,DebuggeeTTY);
{$ifdef CrossGDB} {$ifdef SUPPORT_REMOTE}
INIFile^.SetEntry(secRun,ieRemoteMachine,RemoteMachine); INIFile^.SetEntry(secRun,ieRemoteMachine,RemoteMachine);
{$endif CrossGDB} INIFile^.SetEntry(secRun,ieRemotePort,RemotePort);
INIFile^.SetEntry(secRun,ieRemoteSendCommand,RemoteSendCommand);
INIFile^.SetEntry(secRun,ieRemoteConfig,RemoteConfig);
INIFile^.SetEntry(secRun,ieRemoteIdent,RemoteIdent);
INIFile^.SetEntry(secRun,ieRemoteDirectory,RemoteDir);
{$endif SUPPORT_REMOTE}
{$endif} {$endif}
{ Compile } { Compile }
INIFile^.SetEntry(secCompile,iePrimaryFile,PrimaryFile); INIFile^.SetEntry(secCompile,iePrimaryFile,PrimaryFile);
@ -631,7 +646,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.9 2002-11-21 00:37:56 pierre Revision 1.10 2002-11-28 12:55:06 pierre
+ save/retrieve remote support variables
Revision 1.9 2002/11/21 00:37:56 pierre
+ some cross gdb enhancements + some cross gdb enhancements
Revision 1.8 2002/10/23 18:01:50 hajny Revision 1.8 2002/10/23 18:01:50 hajny