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

* FPMake-option NoIDE added

Browse Source 
git-svn-id: trunk@44152 -
This commit is contained in:
joost 2020-02-11 19:31:35 +00:00
parent 39c48f0d01
commit 79bbc20f29
3 changed files with 23 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
fpmake.pp
View File

@ -47,6 +47,7 @@ begin
end; end;
begin begin
add_packages_comandlineoptions();
add_fpc(''); add_fpc('');
Installer.Run; Installer.Run;
end. end.

10
packages/fpmake.pp
View File

@ -24,11 +24,16 @@ rm fpmake_proc.inc fpmake_add.inc ; /bin/ls -1 */fpmake.pp| while read file; do
{$include fpmake_proc.inc} {$include fpmake_proc.inc}
procedure add_packages(const ADirectory: string); procedure add_packages_comandlineoptions();
begin begin
AddCustomFpmakeCommandlineOption('data2inc', 'Use indicated data2inc executable.'); AddCustomFpmakeCommandlineOption('data2inc', 'Use indicated data2inc executable.');
AddCustomFpmakeCommandlineOption('genfpmkunit', 'Regenerate the fpmkunitsrc.inc file (fppkg).'); AddCustomFpmakeCommandlineOption('genfpmkunit', 'Regenerate the fpmkunitsrc.inc file (fppkg).');
add_ide_comandlineoptions();
end;
procedure add_packages(const ADirectory: string);
begin
{$include fpmake_add.inc} {$include fpmake_add.inc}
@ -47,6 +52,7 @@ end;
{$ifdef no_parent} {$ifdef no_parent}
begin begin
add_packages_comandlineoptions();
add_packages(''); add_packages('');
Installer.Run; Installer.Run;
end. end.

18
packages/ide/fpmake.pp
View File

@ -140,6 +140,15 @@ begin
end; end;
end; end;
procedure add_ide_comandlineoptions();
begin
AddCustomFpmakeCommandlineOption('CompilerTarget','Target CPU for the IDE''s compiler');
AddCustomFpmakeCommandlineOption('NoGDB','If value=1 or ''Y'', no GDB support');
AddCustomFpmakeCommandlineOption('NoGDBMI','If value=1 or ''Y'', explicitly disable GDB/MI option');
AddCustomFpmakeCommandlineOption('GDBMI','If value=1 or ''Y'', builds IDE with GDB/MI support (no need for LibGDB)');
AddCustomFpmakeCommandlineOption('NoIDE','If value=1 or ''Y'', the IDE will be skipped');
end;
procedure add_ide(const ADirectory: string); procedure add_ide(const ADirectory: string);
Var Var
@ -150,12 +159,12 @@ Var
s: string; s: string;
begin begin
AddCustomFpmakeCommandlineOption('CompilerTarget','Target CPU for the IDE''s compiler');
AddCustomFpmakeCommandlineOption('NoGDB','If value=1 or ''Y'', no GDB support');
AddCustomFpmakeCommandlineOption('NOGDBMI','If value=1 or ''Y'', explicitly disable GDB/MI option');
AddCustomFpmakeCommandlineOption('GDBMI','If value=1 or ''Y'', builds IDE with GDB/MI support (no need for LibGDB)');
With Installer do With Installer do
begin begin
s := GetCustomFpmakeCommandlineOptionValue('NoIDE');
if (s='1') or (s='Y') then
Exit;
s := GetCustomFpmakeCommandlineOptionValue('NoGDB'); s := GetCustomFpmakeCommandlineOptionValue('NoGDB');
if (s='1') or (s='Y') then if (s='1') or (s='Y') then
NoGDBOption := true; NoGDBOption := true;
@ -319,6 +328,7 @@ end;
{$ifndef ALLPACKAGES} {$ifndef ALLPACKAGES}
begin begin
add_ide_comandlineoptions();
add_ide(''); add_ide('');
Installer.Run; Installer.Run;
end. end.