gcc/c-family/c-ada-spec.c

50 /* Global variables used in macro-related callbacks.  */
55 /* Given a cpp MACRO, compute the max length BUFFER_LEN of the macro, as well
57    SUPPORTED to 0 if the macro cannot be mapped to an Ada construct.  */
60 macro_length (const cpp_macro *macro, int *supported, int *buffer_len,
70   if (macro->fun_like)
73       for (i = 0; i < macro->paramc; i++)
75 	  cpp_hashnode *param = macro->parm.params[i];
79 	  if (i + 1 < macro->paramc)
83 	  else if (macro->variadic)
92   for (j = 0; j < macro->count; j++)
94       const cpp_token *token = &macro->exp.tokens[j];
107 	  NODE_LEN (macro->parm.params[token->val.macro_arg.arg_no - 1]);
170    PFILE and V are not used.  NODE is the current macro to consider.  */
178       const cpp_macro *macro = node->value.macro;
179       if (macro->count && LOCATION_FILE (macro->line) == macro_source_file)
187    PFILE is not used.  NODE is the current macro to store if relevant.
196       const cpp_macro *macro = node->value.macro;
197       if (macro->count
198 	  && LOCATION_FILE (macro->line) == macro_source_file)
205    two macro nodes to compare.  */
215   return n1->value.macro->line - n2->value.macro->line;
240       const cpp_macro *macro = node->value.macro;
247       macro_length (macro, &supported, &buffer_len, &param_len);
253 	  if (macro->fun_like)
256 	      for (i = 0; i < macro->paramc; i++)
258 		  cpp_hashnode *param = macro->parm.params[i];
263 		  if (i + 1 < macro->paramc)
268 		  else if (macro->variadic)
278 	  for (i = 0; supported && i < macro->count; i++)
280 	      const cpp_token *token = &macro->exp.tokens[i];
297 			macro->parm.params[token->val.macro_arg.arg_no - 1];
360 		    if (!macro->fun_like)
532 		    if (!macro->fun_like)
546       if (macro->fun_like && supported)
551 	  pp_string (pp, "   --  arg-macro: ");
584 	  expanded_location sloc = expand_location (macro->line);
619 	  pp_string (pp, "   --  unsupported macro: ");