FreeBSD/contrib/gcc/c-common.c
/* This routine recognizes legal block attributes. In case of block's "format" 
 attribute, it calls block_delta_format_args to compensate for hidden 
 argument _self getting passed to block's helper function. */
This routine recognizes legal block attributes. In case of block's "format"
attribute, it calls block_delta_format_args to compensate for hidden
argument _self getting passed to block's helper function.
This routine recognizes legal block attributes . In case of block ' s " format " attribute it calls block_delta_format_args to compensate for hidden argument _self getting passed to block ' s helper function .
bool
any_recognized_block_attribute (tree attributes)
{
  tree chain;
  bool res = false;
  for (chain = attributes; chain; chain = TREE_CHAIN (chain))
  {
      if (is_attribute_p ("format", TREE_PURPOSE (chain)))
      {
	block_delta_format_args (chain);
	res = true;
      }
      else if (is_attribute_p ("sentinel", TREE_PURPOSE (chain)))
	res = true;	
  }
  return res;
}
bool any_recognized_block_attribute ( tree attributes ) { tree chain ; bool res = false ; for ( chain = attributes ; chain ; chain = TREE_CHAIN ( chain ) ) { if ( is_attribute_p ( " " , TREE_PURPOSE ( chain ) ) ) { block_delta_format_args ( chain ) ; res = true ; } else if ( is_attribute_p ( " " , TREE_PURPOSE ( chain ) ) ) res = true ; } return res ; }
This routine recognizes legal block attributes.
This routine recognizes legal block attributes .