head 1.1; access; symbols pkgsrc-2026Q1:1.1.0.184 pkgsrc-2026Q1-base:1.1 pkgsrc-2025Q4:1.1.0.182 pkgsrc-2025Q4-base:1.1 pkgsrc-2025Q3:1.1.0.180 pkgsrc-2025Q3-base:1.1 pkgsrc-2025Q2:1.1.0.178 pkgsrc-2025Q2-base:1.1 pkgsrc-2025Q1:1.1.0.176 pkgsrc-2025Q1-base:1.1 pkgsrc-2024Q4:1.1.0.174 pkgsrc-2024Q4-base:1.1 pkgsrc-2024Q3:1.1.0.172 pkgsrc-2024Q3-base:1.1 pkgsrc-2024Q2:1.1.0.170 pkgsrc-2024Q2-base:1.1 pkgsrc-2024Q1:1.1.0.168 pkgsrc-2024Q1-base:1.1 pkgsrc-2023Q4:1.1.0.166 pkgsrc-2023Q4-base:1.1 pkgsrc-2023Q3:1.1.0.164 pkgsrc-2023Q3-base:1.1 pkgsrc-2023Q2:1.1.0.162 pkgsrc-2023Q2-base:1.1 pkgsrc-2023Q1:1.1.0.160 pkgsrc-2023Q1-base:1.1 pkgsrc-2022Q4:1.1.0.158 pkgsrc-2022Q4-base:1.1 pkgsrc-2022Q3:1.1.0.156 pkgsrc-2022Q3-base:1.1 pkgsrc-2022Q2:1.1.0.154 pkgsrc-2022Q2-base:1.1 pkgsrc-2022Q1:1.1.0.152 pkgsrc-2022Q1-base:1.1 pkgsrc-2021Q4:1.1.0.150 pkgsrc-2021Q4-base:1.1 pkgsrc-2021Q3:1.1.0.148 pkgsrc-2021Q3-base:1.1 pkgsrc-2021Q2:1.1.0.146 pkgsrc-2021Q2-base:1.1 pkgsrc-2021Q1:1.1.0.144 pkgsrc-2021Q1-base:1.1 pkgsrc-2020Q4:1.1.0.142 pkgsrc-2020Q4-base:1.1 pkgsrc-2020Q3:1.1.0.140 pkgsrc-2020Q3-base:1.1 pkgsrc-2020Q2:1.1.0.136 pkgsrc-2020Q2-base:1.1 pkgsrc-2020Q1:1.1.0.116 pkgsrc-2020Q1-base:1.1 pkgsrc-2019Q4:1.1.0.138 pkgsrc-2019Q4-base:1.1 pkgsrc-2019Q3:1.1.0.134 pkgsrc-2019Q3-base:1.1 pkgsrc-2019Q2:1.1.0.132 pkgsrc-2019Q2-base:1.1 pkgsrc-2019Q1:1.1.0.130 pkgsrc-2019Q1-base:1.1 pkgsrc-2018Q4:1.1.0.128 pkgsrc-2018Q4-base:1.1 pkgsrc-2018Q3:1.1.0.126 pkgsrc-2018Q3-base:1.1 pkgsrc-2018Q2:1.1.0.124 pkgsrc-2018Q2-base:1.1 pkgsrc-2018Q1:1.1.0.122 pkgsrc-2018Q1-base:1.1 pkgsrc-2017Q4:1.1.0.120 pkgsrc-2017Q4-base:1.1 pkgsrc-2017Q3:1.1.0.118 pkgsrc-2017Q3-base:1.1 pkgsrc-2017Q2:1.1.0.114 pkgsrc-2017Q2-base:1.1 pkgsrc-2017Q1:1.1.0.112 pkgsrc-2017Q1-base:1.1 pkgsrc-2016Q4:1.1.0.110 pkgsrc-2016Q4-base:1.1 pkgsrc-2016Q3:1.1.0.108 pkgsrc-2016Q3-base:1.1 pkgsrc-2016Q2:1.1.0.106 pkgsrc-2016Q2-base:1.1 pkgsrc-2016Q1:1.1.0.104 pkgsrc-2016Q1-base:1.1 pkgsrc-2015Q4:1.1.0.102 pkgsrc-2015Q4-base:1.1 pkgsrc-2015Q3:1.1.0.100 pkgsrc-2015Q3-base:1.1 pkgsrc-2015Q2:1.1.0.98 pkgsrc-2015Q2-base:1.1 pkgsrc-2015Q1:1.1.0.96 pkgsrc-2015Q1-base:1.1 pkgsrc-2014Q4:1.1.0.94 pkgsrc-2014Q4-base:1.1 pkgsrc-2014Q3:1.1.0.92 pkgsrc-2014Q3-base:1.1 pkgsrc-2014Q2:1.1.0.90 pkgsrc-2014Q2-base:1.1 pkgsrc-2014Q1:1.1.0.88 pkgsrc-2014Q1-base:1.1 pkgsrc-2013Q4:1.1.0.86 pkgsrc-2013Q4-base:1.1 pkgsrc-2013Q3:1.1.0.84 pkgsrc-2013Q3-base:1.1 pkgsrc-2013Q2:1.1.0.82 pkgsrc-2013Q2-base:1.1 pkgsrc-2013Q1:1.1.0.80 pkgsrc-2013Q1-base:1.1 pkgsrc-2012Q4:1.1.0.78 pkgsrc-2012Q4-base:1.1 pkgsrc-2012Q3:1.1.0.76 pkgsrc-2012Q3-base:1.1 pkgsrc-2012Q2:1.1.0.74 pkgsrc-2012Q2-base:1.1 pkgsrc-2012Q1:1.1.0.72 pkgsrc-2012Q1-base:1.1 pkgsrc-2011Q4:1.1.0.70 pkgsrc-2011Q4-base:1.1 pkgsrc-2011Q3:1.1.0.68 pkgsrc-2011Q3-base:1.1 pkgsrc-2011Q2:1.1.0.66 pkgsrc-2011Q2-base:1.1 pkgsrc-2011Q1:1.1.0.64 pkgsrc-2011Q1-base:1.1 pkgsrc-2010Q4:1.1.0.62 pkgsrc-2010Q4-base:1.1 pkgsrc-2010Q3:1.1.0.60 pkgsrc-2010Q3-base:1.1 pkgsrc-2010Q2:1.1.0.58 pkgsrc-2010Q2-base:1.1 pkgsrc-2010Q1:1.1.0.56 pkgsrc-2010Q1-base:1.1 pkgsrc-2009Q4:1.1.0.54 pkgsrc-2009Q4-base:1.1 pkgsrc-2009Q3:1.1.0.52 pkgsrc-2009Q3-base:1.1 pkgsrc-2009Q2:1.1.0.50 pkgsrc-2009Q2-base:1.1 pkgsrc-2009Q1:1.1.0.48 pkgsrc-2009Q1-base:1.1 pkgsrc-2008Q4:1.1.0.46 pkgsrc-2008Q4-base:1.1 pkgsrc-2008Q3:1.1.0.44 pkgsrc-2008Q3-base:1.1 cube-native-xorg:1.1.0.42 cube-native-xorg-base:1.1 pkgsrc-2008Q2:1.1.0.40 pkgsrc-2008Q2-base:1.1 cwrapper:1.1.0.38 pkgsrc-2008Q1:1.1.0.36 pkgsrc-2008Q1-base:1.1 pkgsrc-2007Q4:1.1.0.34 pkgsrc-2007Q4-base:1.1 pkgsrc-2007Q3:1.1.0.32 pkgsrc-2007Q3-base:1.1 pkgsrc-2007Q2:1.1.0.30 pkgsrc-2007Q2-base:1.1 pkgsrc-2007Q1:1.1.0.28 pkgsrc-2007Q1-base:1.1 pkgsrc-2006Q4:1.1.0.26 pkgsrc-2006Q4-base:1.1 pkgsrc-2006Q3:1.1.0.24 pkgsrc-2006Q3-base:1.1 pkgsrc-2006Q2:1.1.0.22 pkgsrc-2006Q2-base:1.1 pkgsrc-2006Q1:1.1.0.20 pkgsrc-2006Q1-base:1.1 pkgsrc-2005Q4:1.1.0.18 pkgsrc-2005Q4-base:1.1 pkgsrc-2005Q3:1.1.0.16 pkgsrc-2005Q3-base:1.1 pkgsrc-2005Q2:1.1.0.14 pkgsrc-2005Q2-base:1.1 pkgsrc-2005Q1:1.1.0.12 pkgsrc-2005Q1-base:1.1 pkgsrc-2004Q4:1.1.0.10 pkgsrc-2004Q4-base:1.1 pkgsrc-2004Q3:1.1.0.8 pkgsrc-2004Q3-base:1.1 pkgsrc-2004Q2:1.1.0.6 pkgsrc-2004Q2-base:1.1 pkgsrc-2004Q1:1.1.0.4 pkgsrc-2004Q1-base:1.1 pkgsrc-2003Q4:1.1.0.2 pkgsrc-2003Q4-base:1.1; locks; strict; comment @# @; 1.1 date 2003.07.12.11.39.52; author jtb; state Exp; branches; next ; desc @@ 1.1 log @Add the patches this time. @ text @$NetBSD$ --- ../gcc-2.95.3/gcc/gcc.c.orig +++ ../gcc-2.95.3/gcc/gcc.c @@@@ -189,9 +189,13 @@@@ static void clear_failure_queue PROTO((void)); static int check_live_switch PROTO((int, int)); static const char *handle_braces PROTO((const char *)); +static const struct spec_function *lookup_spec_function PROTO((const char *)); +static const char *eval_spec_function PROTO((const char *, const char *)); +static const char *handle_spec_function PROTO((const char *)); static char *save_string PROTO((const char *, int)); extern int do_spec PROTO((const char *)); static int do_spec_1 PROTO((const char *, int, const char *)); +static int do_spec_2 PROTO((const char *)); static const char *find_file PROTO((const char *)); static int is_directory PROTO((const char *, const char *, int)); static void validate_switches PROTO((const char *)); @@@@ -216,6 +220,7 @@@@ static void process_command PROTO ((int, char **)); static int execute PROTO ((void)); static void unused_prefix_warnings PROTO ((struct path_prefix *)); +static void alloc_args PROTO ((void)); static void clear_args PROTO ((void)); static void fatal_error PROTO ((int)); @@@@ -231,6 +236,8 @@@@ /* Number of extra output files that lang_specific_pre_link may generate. */ extern int lang_specific_extra_outfiles; +static const char *if_exists_spec_function PROTO ((int, const char **)); + /* Specs are strings containing lines, each of which (if not blank) is made up of a program name, and arguments separated by spaces. The program name must be exact and start from root, since no path @@@@ -335,6 +342,12 @@@@ %* substitute the variable part of a matched option. (See below.) Note that each comma in the substituted string is replaced by a single space. + %:function(args) + Call the named function FUNCTION, passing it ARGS. ARGS is + first processed as a nested spec string, then split into an + argument vector in the usual fashion. The function returns + a string which is processed as if it had appeared literally + as part of the current spec. %{S} substitutes the -S switch, if that switch was given to CC. If that switch was not specified, this substitutes nothing. Here S is a metasyntactic variable. @@@@ -1162,6 +1175,24 @@@@ static struct spec_list *specs = (struct spec_list *)0; +/* The mapping of a spec function name to the C function that + implements it. */ +struct spec_function +{ + const char *name; + const char *(*func) PROTO ((int, const char **)); +}; + +/* List of static spec functions. */ + +static const struct spec_function static_spec_functions[] = +{ + { "if-exists", if_exists_spec_function }, + { 0, 0 } +}; + +static int processing_spec_function; + /* Initialize the specs lookup routines. */ static void @@@@ -1404,6 +1435,15 @@@@ static const char *multilib_dir; +/* Allocate the argument vector. */ + +static void +alloc_args () +{ + argbuf_length = 10; + argbuf = (char **) xmalloc (argbuf_length * sizeof (char *)); +} + /* Clear out the vector of arguments (after a command is executed). */ static void @@@@ -2211,6 +2251,9 @@@@ struct command *commands; /* each command buffer with above info. */ + if (processing_spec_function) + abort (); + /* Count # of piped commands. */ for (n_commands = 1, i = 0; i < argbuf_index; i++) if (strcmp (argbuf[i], "|") == 0) @@@@ -3360,14 +3403,7 @@@@ { int value; - clear_args (); - arg_going = 0; - delete_this_arg = 0; - this_is_output_file = 0; - this_is_library_file = 0; - input_from_pipe = 0; - - value = do_spec_1 (spec, 0, NULL_PTR); + value = do_spec_2 (spec); /* Force out any unfinished command. If -pipe, this forces out the last command if it ended in `|'. */ @@@@ -3383,6 +3419,20 @@@@ return value; } +static int +do_spec_2 (spec) + const char *spec; +{ + clear_args (); + arg_going = 0; + delete_this_arg = 0; + this_is_output_file = 0; + this_is_library_file = 0; + input_from_pipe = 0; + + return do_spec_1 (spec, 0, NULL_PTR); +} + /* Process the sub-spec SPEC as a portion of a larger spec. This is like processing a whole spec except that we do not initialize at the beginning and we do not supply a @@@@ -4068,6 +4118,12 @@@@ return -1; break; + case ':': + p = handle_spec_function (p); + if (p == 0) + return -1; + break; + case '%': obstack_1grow (&obstack, '%'); break; @@@@ -4222,7 +4278,173 @@@@ arg_going = 1; } - return 0; /* End of string */ + /* End of string. If we are processing a spec function, we need to + end any pending argument. */ + if (processing_spec_function && arg_going) + { + obstack_1grow (&obstack, 0); + string = obstack_finish (&obstack); + if (this_is_library_file) + string = find_file (string); + store_arg (string, delete_this_arg, this_is_output_file); + if (this_is_output_file) + outfiles[input_file_number] = string; + arg_going = 0; + } + + return 0; +} + +/* Look up a spec function. */ + +static const struct spec_function * +lookup_spec_function (name) + const char *name; +{ + static const struct spec_function * const spec_function_tables[] = + { + static_spec_functions, + }; + const struct spec_function *sf; + unsigned int i; + + for (i = 0; i < ARRAY_SIZE (spec_function_tables); i++) + { + for (sf = spec_function_tables[i]; sf->name != NULL; sf++) + if (strcmp (sf->name, name) == 0) + return sf; + } + + return NULL; +} + +/* Evaluate a spec function. */ + +static const char * +eval_spec_function (func, args) + const char *func, *args; +{ + const struct spec_function *sf; + const char *funcval; + + /* Saved spec processing context. */ + int save_argbuf_index; + int save_argbuf_length; + char **save_argbuf; + + int save_arg_going; + int save_delete_this_arg; + int save_this_is_output_file; + int save_this_is_library_file; + int save_input_from_pipe; + + + sf = lookup_spec_function (func); + if (sf == NULL) + fatal ("unknown spec function `%s'", func); + + /* Push the spec processing context. */ + save_argbuf_index = argbuf_index; + save_argbuf_length = argbuf_length; + save_argbuf = argbuf; + + save_arg_going = arg_going; + save_delete_this_arg = delete_this_arg; + save_this_is_output_file = this_is_output_file; + save_this_is_library_file = this_is_library_file; + save_input_from_pipe = input_from_pipe; + + /* Create a new spec processing context, and build the function + arguments. */ + + alloc_args (); + if (do_spec_2 (args) < 0) + fatal ("error in args to spec function `%s'", func); + + /* argbuf_index is an index for the next argument to be inserted, and + so contains the count of the args already inserted. */ + + funcval = (*sf->func) (argbuf_index, (const char **) argbuf); + + /* Pop the spec processing context. */ + argbuf_index = save_argbuf_index; + argbuf_length = save_argbuf_length; + free (argbuf); + argbuf = save_argbuf; + + arg_going = save_arg_going; + delete_this_arg = save_delete_this_arg; + this_is_output_file = save_this_is_output_file; + this_is_library_file = save_this_is_library_file; + input_from_pipe = save_input_from_pipe; + + return funcval; +} + +/* Handle a spec function call of the form: + + %:function(args) + + ARGS is processed as a spec in a separate context and split into an + argument vector in the normal fashion. The function returns a string + containing a spec which we then process in the caller's context, or + NULL if no processing is required. */ + +static const char * +handle_spec_function (p) + const char *p; +{ + char *func, *args; + const char *endp, *funcval; + int count; + + processing_spec_function++; + + /* Get the function name. */ + for (endp = p; *endp != '\0'; endp++) + { + if (*endp == '(') /* ) */ + break; + /* Only allow [A-Za-z0-9], -, and _ in function names. */ + if (!ISALNUM (*endp) && !(*endp == '-' || *endp == '_')) + fatal ("malformed spec function name"); + } + if (*endp != '(') /* ) */ + fatal ("no arguments for spec function"); + func = save_string (p, endp - p); + p = ++endp; + + /* Get the arguments. */ + for (count = 0; *endp != '\0'; endp++) + { + /* ( */ + if (*endp == ')') + { + if (count == 0) + break; + count--; + } + else if (*endp == '(') /* ) */ + count++; + } + /* ( */ + if (*endp != ')') + fatal ("malformed spec function arguments"); + args = save_string (p, endp - p); + p = ++endp; + + /* p now points to just past the end of the spec function expression. */ + + funcval = eval_spec_function (func, args); + if (funcval != NULL && do_spec_1 (funcval, 0, NULL) < 0) + p = NULL; + + free (func); + free (args); + + processing_spec_function--; + + return p; } /* Return 0 if we call do_spec_1 and that returns -1. */ @@@@ -4674,8 +4896,8 @@@@ signal (SIGPIPE, fatal_error); #endif - argbuf_length = 10; - argbuf = (char **) xmalloc (argbuf_length * sizeof (char *)); + /* Allocate the argument vector. */ + alloc_args (); obstack_init (&obstack); @@@@ -5846,3 +6068,25 @@@@ ++p; } } + +/* if-exists built-in spec function. + + Checks to see if the file specified by the absolute pathname in + ARGS exists. Returns that pathname if found. + + The usual use for this function is to check for a library file + (whose name has been expanded with %s). */ + +#define IS_ABSOLUTE_PATHNAME(cp) ((cp)[0] == '/') + +static const char * +if_exists_spec_function (argc, argv) + int argc; + const char **argv; +{ + /* Must have only one argument. */ + if (argc == 1 && IS_ABSOLUTE_PATHNAME (argv[0]) && ! access (argv[0], R_OK)) + return argv[0]; + + return NULL; +} @