procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

cobol: Remove dead code from the driver.

Browse source 
EXEC_LIB is no longer defined anywhere, so that the dependent code is
now dead.  The rpath code (if required) would need to be conditional
since rpath support is not available on all hosts.  Remove now and then
address if/when it is needed (other drivers do not do this).

gcc/cobol/ChangeLog:

	* gcobolspec.cc (append_rpath): Remove.
	(lang_specific_driver): Remove hard-wired rpath and library
	names.

Signed-off-by: Iain Sandoe <iain@sandoe.co.uk>
This commit is contained in:
Iain Sandoe 2025-03-16 10:31:44 +00:00
parent 544a9d9e49
commit 57d1424efe
1 changed files with 1 additions and 37 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

38
gcc/cobol/gcobolspec.cc
View file

@ -140,21 +140,6 @@ append_rdynamic()
return;
}
static void
append_rpath()
{
#ifdef EXEC_LIB
// Handing append_option() something on the stack Just Doesn't Work
if( strlen(EXEC_LIB) )
{
static char ach[256];
snprintf(ach, sizeof(ach), "-rpath=%s", EXEC_LIB);
append_option (OPT_Wl_, ach, 1);
}
#endif
return;
}
static void
append_allow_multiple_definition()
{
@ -250,9 +235,6 @@ lang_specific_driver (struct cl_decoded_option **in_decoded_options,
int index_libgcobol_a = 0;
// This is for the -Wl,-rpath=<EXEC_LIB>
bool need_rpath = true;
bool no_files_error = true;
#ifdef NOISY
@ -339,16 +321,6 @@ lang_specific_driver (struct cl_decoded_option **in_decoded_options,
{
need_allow_multiple_definition = false;
}
if( strstr(decoded_options[i].orig_option_with_args_text, "-rpath") )
{
// The caller is doing something with -rpath. Assume they know what
// they are doing
// On second thought, always install our rpath. It goes at the end,
// so if the user specifies and rpath that they prefer, it'll get
// taken first.
need_rpath = true;
}
break;
case OPT_nostdlib:
@ -616,12 +588,9 @@ lang_specific_driver (struct cl_decoded_option **in_decoded_options,
if( need_libgcobol )
{
#ifdef EXEC_LIB
append_option(OPT_L, EXEC_LIB, 1);
#endif
add_arg_lib(COBOL_LIBRARY, static_libgcobol);
}
if( need_libmath )
if( need_libmath)
{
add_arg_lib(MATH_LIBRARY, static_in_general);
}
@ -649,11 +618,6 @@ lang_specific_driver (struct cl_decoded_option **in_decoded_options,
append_allow_multiple_definition();
}
if( need_rpath && (n_infiles || n_outfiles) )
{
append_rpath();
}
if( prior_main )
{
char ach[] = "\"-main\" without a source file";