[thirdparty/gcc.git] / gcc / diagnostic-format-json.cc

/* JSON output for diagnostics
   Copyright (C) 2018-2021 Free Software Foundation, Inc.
   Contributed by David Malcolm <dmalcolm@redhat.com>.

This file is part of GCC.

GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 3, or (at your option) any later
version.

GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
for more details.

You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING3.  If not see
<http://www.gnu.org/licenses/>.  */


#include "config.h"
#include "system.h"
#include "coretypes.h"
#include "diagnostic.h"
#include "selftest-diagnostic.h"
#include "diagnostic-metadata.h"
#include "json.h"
#include "selftest.h"

/* The top-level JSON array of pending diagnostics.  */

static json::array *toplevel_array;

/* The JSON object for the current diagnostic group.  */

static json::object *cur_group;

/* The JSON array for the "children" array within the current diagnostic
   group.  */

static json::array *cur_children_array;

/* Generate a JSON object for LOC.  */

json::value *
json_from_expanded_location (diagnostic_context *context, location_t loc)
{
  expanded_location exploc = expand_location (loc);
  json::object *result = new json::object ();
  if (exploc.file)
    result->set ("file", new json::string (exploc.file));
  result->set ("line", new json::integer_number (exploc.line));

  const enum diagnostics_column_unit orig_unit = context->column_unit;
  struct
  {
    const char *name;
    enum diagnostics_column_unit unit;
  } column_fields[] = {
    {"display-column", DIAGNOSTICS_COLUMN_UNIT_DISPLAY},
    {"byte-column", DIAGNOSTICS_COLUMN_UNIT_BYTE}
  };
  int the_column = INT_MIN;
  for (int i = 0; i != sizeof column_fields / sizeof (*column_fields); ++i)
    {
      context->column_unit = column_fields[i].unit;
      const int col = diagnostic_converted_column (context, exploc);
      result->set (column_fields[i].name, new json::integer_number (col));
      if (column_fields[i].unit == orig_unit)
	the_column = col;
    }
  gcc_assert (the_column != INT_MIN);
  result->set ("column", new json::integer_number (the_column));
  context->column_unit = orig_unit;
  return result;
}

/* Generate a JSON object for LOC_RANGE.  */

static json::object *
json_from_location_range (diagnostic_context *context,
			  const location_range *loc_range, unsigned range_idx)
{
  location_t caret_loc = get_pure_location (loc_range->m_loc);

  if (caret_loc == UNKNOWN_LOCATION)
    return NULL;

  location_t start_loc = get_start (loc_range->m_loc);
  location_t finish_loc = get_finish (loc_range->m_loc);

  json::object *result = new json::object ();
  result->set ("caret", json_from_expanded_location (context, caret_loc));
  if (start_loc != caret_loc
      && start_loc != UNKNOWN_LOCATION)
    result->set ("start", json_from_expanded_location (context, start_loc));
  if (finish_loc != caret_loc
      && finish_loc != UNKNOWN_LOCATION)
    result->set ("finish", json_from_expanded_location (context, finish_loc));

  if (loc_range->m_label)
    {
      label_text text;
      text = loc_range->m_label->get_text (range_idx);
      if (text.m_buffer)
	result->set ("label", new json::string (text.m_buffer));
      text.maybe_free ();
    }

  return result;
}

/* Generate a JSON object for HINT.  */

static json::object *
json_from_fixit_hint (diagnostic_context *context, const fixit_hint *hint)
{
  json::object *fixit_obj = new json::object ();

  location_t start_loc = hint->get_start_loc ();
  fixit_obj->set ("start", json_from_expanded_location (context, start_loc));
  location_t next_loc = hint->get_next_loc ();
  fixit_obj->set ("next", json_from_expanded_location (context, next_loc));
  fixit_obj->set ("string", new json::string (hint->get_string ()));

  return fixit_obj;
}

/* Generate a JSON object for METADATA.  */

static json::object *
json_from_metadata (const diagnostic_metadata *metadata)
{
  json::object *metadata_obj = new json::object ();

  if (metadata->get_cwe ())
    metadata_obj->set ("cwe",
		       new json::integer_number (metadata->get_cwe ()));

  return metadata_obj;
}

/* No-op implementation of "begin_diagnostic" for JSON output.  */

static void
json_begin_diagnostic (diagnostic_context *, diagnostic_info *)
{
}

/* Implementation of "end_diagnostic" for JSON output.
   Generate a JSON object for DIAGNOSTIC, and store for output
   within current diagnostic group.  */

static void
json_end_diagnostic (diagnostic_context *context, diagnostic_info *diagnostic,
		     diagnostic_t orig_diag_kind)
{
  json::object *diag_obj = new json::object ();

  /* Get "kind" of diagnostic.  */
  {
    static const char *const diagnostic_kind_text[] = {
#define DEFINE_DIAGNOSTIC_KIND(K, T, C) (T),
#include "diagnostic.def"
#undef DEFINE_DIAGNOSTIC_KIND
      "must-not-happen"
    };
    /* Lose the trailing ": ".  */
    const char *kind_text = diagnostic_kind_text[diagnostic->kind];
    size_t len = strlen (kind_text);
    gcc_assert (len > 2);
    gcc_assert (kind_text[len - 2] == ':');
    gcc_assert (kind_text[len - 1] == ' ');
    char *rstrip = xstrdup (kind_text);
    rstrip[len - 2] = '\0';
    diag_obj->set ("kind", new json::string (rstrip));
    free (rstrip);
  }

  // FIXME: encoding of the message (json::string requires UTF-8)
  diag_obj->set ("message",
		 new json::string (pp_formatted_text (context->printer)));
  pp_clear_output_area (context->printer);

  char *option_text;
  option_text = context->option_name (context, diagnostic->option_index,
				      orig_diag_kind, diagnostic->kind);
  if (option_text)
    {
      diag_obj->set ("option", new json::string (option_text));
      free (option_text);
    }

  if (context->get_option_url)
    {
      char *option_url = context->get_option_url (context,
						  diagnostic->option_index);
      if (option_url)
	{
	  diag_obj->set ("option_url", new json::string (option_url));
	  free (option_url);
	}
    }

  /* If we've already emitted a diagnostic within this auto_diagnostic_group,
     then add diag_obj to its "children" array.  */
  if (cur_group)
    {
      gcc_assert (cur_children_array);
      cur_children_array->append (diag_obj);
    }
  else
    {
      /* Otherwise, make diag_obj be the top-level object within the group;
	 add a "children" array and record the column origin.  */
      toplevel_array->append (diag_obj);
      cur_group = diag_obj;
      cur_children_array = new json::array ();
      diag_obj->set ("children", cur_children_array);
      diag_obj->set ("column-origin",
		     new json::integer_number (context->column_origin));
    }

  const rich_location *richloc = diagnostic->richloc;

  json::array *loc_array = new json::array ();
  diag_obj->set ("locations", loc_array);

  for (unsigned int i = 0; i < richloc->get_num_locations (); i++)
    {
      const location_range *loc_range = richloc->get_range (i);
      json::object *loc_obj = json_from_location_range (context, loc_range, i);
      if (loc_obj)
	loc_array->append (loc_obj);
    }

  if (richloc->get_num_fixit_hints ())
    {
      json::array *fixit_array = new json::array ();
      diag_obj->set ("fixits", fixit_array);
      for (unsigned int i = 0; i < richloc->get_num_fixit_hints (); i++)
	{
	  const fixit_hint *hint = richloc->get_fixit_hint (i);
	  json::object *fixit_obj = json_from_fixit_hint (context, hint);
	  fixit_array->append (fixit_obj);
	}
    }

  /* TODO: tree-ish things:
     TODO: functions
     TODO: inlining information
     TODO: macro expansion information.  */

  if (diagnostic->metadata)
    {
      json::object *metadata_obj = json_from_metadata (diagnostic->metadata);
      diag_obj->set ("metadata", metadata_obj);
    }

  const diagnostic_path *path = richloc->get_path ();
  if (path && context->make_json_for_path)
    {
      json::value *path_value = context->make_json_for_path (context, path);
      diag_obj->set ("path", path_value);
    }

  diag_obj->set ("escape-source",
		 new json::literal (richloc->escape_on_output_p ()));
}

/* No-op implementation of "begin_group_cb" for JSON output.  */

static void
json_begin_group (diagnostic_context *)
{
}

/* Implementation of "end_group_cb" for JSON output.  */

static void
json_end_group (diagnostic_context *)
{
  cur_group = NULL;
  cur_children_array = NULL;
}

/* Callback for final cleanup for JSON output.  */

static void
json_final_cb (diagnostic_context *)
{
  /* Flush the top-level array.  */
  toplevel_array->dump (stderr);
  fprintf (stderr, "\n");
  delete toplevel_array;
  toplevel_array = NULL;
}

/* Set the output format for CONTEXT to FORMAT.  */

void
diagnostic_output_format_init (diagnostic_context *context,
			       enum diagnostics_output_format format)
{
  switch (format)
    {
    default:
      gcc_unreachable ();
    case DIAGNOSTICS_OUTPUT_FORMAT_TEXT:
      /* The default; do nothing.  */
      break;

    case DIAGNOSTICS_OUTPUT_FORMAT_JSON:
      {
	/* Set up top-level JSON array.  */
	if (toplevel_array == NULL)
	  toplevel_array = new json::array ();

	/* Override callbacks.  */
	context->begin_diagnostic = json_begin_diagnostic;
	context->end_diagnostic = json_end_diagnostic;
	context->begin_group_cb = json_begin_group;
	context->end_group_cb =  json_end_group;
	context->final_cb =  json_final_cb;
	context->print_path = NULL; /* handled in json_end_diagnostic.  */

	/* The metadata is handled in JSON format, rather than as text.  */
	context->show_cwe = false;

	/* The option is handled in JSON format, rather than as text.  */
	context->show_option_requested = false;

	/* Don't colorize the text.  */
	pp_show_color (context->printer) = false;
      }
      break;
    }
}

#if CHECKING_P

namespace selftest {

/* We shouldn't call json_from_expanded_location on UNKNOWN_LOCATION,
   but verify that we handle this gracefully.  */

static void
test_unknown_location ()
{
  test_diagnostic_context dc;
  delete json_from_expanded_location (&dc, UNKNOWN_LOCATION);
}

/* Verify that we gracefully handle attempts to serialize bad
   compound locations.  */

static void
test_bad_endpoints ()
{
  location_t bad_endpoints
    = make_location (BUILTINS_LOCATION,
		     UNKNOWN_LOCATION, UNKNOWN_LOCATION);

  location_range loc_range;
  loc_range.m_loc = bad_endpoints;
  loc_range.m_range_display_kind = SHOW_RANGE_WITH_CARET;
  loc_range.m_label = NULL;

  test_diagnostic_context dc;
  json::object *obj = json_from_location_range (&dc, &loc_range, 0);
  /* We should have a "caret" value, but no "start" or "finish" values.  */
  ASSERT_TRUE (obj != NULL);
  ASSERT_TRUE (obj->get ("caret") != NULL);
  ASSERT_TRUE (obj->get ("start") == NULL);
  ASSERT_TRUE (obj->get ("finish") == NULL);
  delete obj;
}

/* Run all of the selftests within this file.  */

void
diagnostic_format_json_cc_tests ()
{
  test_unknown_location ();
  test_bad_endpoints ();
}

} // namespace selftest

#endif /* #if CHECKING_P */
Commit	Line	Data
478dd60d	1	/* JSON output for diagnostics
99dee823	2	Copyright (C) 2018-2021 Free Software Foundation, Inc.
478dd60d DM	3	Contributed by David Malcolm <dmalcolm@redhat.com>.
	4
	5	This file is part of GCC.
	6
	7	GCC is free software; you can redistribute it and/or modify it under
	8	the terms of the GNU General Public License as published by the Free
	9	Software Foundation; either version 3, or (at your option) any later
	10	version.
	11
	12	GCC is distributed in the hope that it will be useful, but WITHOUT ANY
	13	WARRANTY; without even the implied warranty of MERCHANTABILITY or
	14	FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
	15	for more details.
	16
	17	You should have received a copy of the GNU General Public License
	18	along with GCC; see the file COPYING3. If not see
	19	<http://www.gnu.org/licenses/>. */
	20
	21
	22	#include "config.h"
	23	#include "system.h"
	24	#include "coretypes.h"
	25	#include "diagnostic.h"
004bb936	26	#include "selftest-diagnostic.h"
6d4a35ca	27	#include "diagnostic-metadata.h"
478dd60d	28	#include "json.h"
30d3ba51	29	#include "selftest.h"
478dd60d DM	30
	31	/* The top-level JSON array of pending diagnostics. */
	32
	33	static json::array *toplevel_array;
	34
	35	/* The JSON object for the current diagnostic group. */
	36
	37	static json::object *cur_group;
	38
	39	/* The JSON array for the "children" array within the current diagnostic
	40	group. */
	41
	42	static json::array *cur_children_array;
	43
	44	/* Generate a JSON object for LOC. */
	45
4bc1899b	46	json::value *
004bb936	47	json_from_expanded_location (diagnostic_context *context, location_t loc)
478dd60d DM	48	{
	49	expanded_location exploc = expand_location (loc);
	50	json::object *result = new json::object ();
30d3ba51 DM	51	if (exploc.file)
30d3ba51 DM	52	result->set ("file", new json::string (exploc.file));
07622278	53	result->set ("line", new json::integer_number (exploc.line));
004bb936 LH	54
	55	const enum diagnostics_column_unit orig_unit = context->column_unit;
	56	struct
	57	{
	58	const char *name;
	59	enum diagnostics_column_unit unit;
	60	} column_fields[] = {
	61	{"display-column", DIAGNOSTICS_COLUMN_UNIT_DISPLAY},
	62	{"byte-column", DIAGNOSTICS_COLUMN_UNIT_BYTE}
	63	};
	64	int the_column = INT_MIN;
	65	for (int i = 0; i != sizeof column_fields / sizeof (*column_fields); ++i)
	66	{
	67	context->column_unit = column_fields[i].unit;
	68	const int col = diagnostic_converted_column (context, exploc);
	69	result->set (column_fields[i].name, new json::integer_number (col));
	70	if (column_fields[i].unit == orig_unit)
	71	the_column = col;
	72	}
	73	gcc_assert (the_column != INT_MIN);
	74	result->set ("column", new json::integer_number (the_column));
	75	context->column_unit = orig_unit;
478dd60d DM	76	return result;
	77	}
	78
	79	/* Generate a JSON object for LOC_RANGE. */
	80
	81	static json::object *
004bb936 LH	82	json_from_location_range (diagnostic_context *context,
004bb936 LH	83	const location_range *loc_range, unsigned range_idx)
478dd60d DM	84	{
	85	location_t caret_loc = get_pure_location (loc_range->m_loc);
	86
	87	if (caret_loc == UNKNOWN_LOCATION)
	88	return NULL;
	89
	90	location_t start_loc = get_start (loc_range->m_loc);
	91	location_t finish_loc = get_finish (loc_range->m_loc);
	92
	93	json::object *result = new json::object ();
004bb936	94	result->set ("caret", json_from_expanded_location (context, caret_loc));
30d3ba51 DM	95	if (start_loc != caret_loc
30d3ba51 DM	96	&& start_loc != UNKNOWN_LOCATION)
004bb936	97	result->set ("start", json_from_expanded_location (context, start_loc));
30d3ba51 DM	98	if (finish_loc != caret_loc
30d3ba51 DM	99	&& finish_loc != UNKNOWN_LOCATION)
004bb936	100	result->set ("finish", json_from_expanded_location (context, finish_loc));
478dd60d DM	101
	102	if (loc_range->m_label)
	103	{
	104	label_text text;
	105	text = loc_range->m_label->get_text (range_idx);
	106	if (text.m_buffer)
	107	result->set ("label", new json::string (text.m_buffer));
	108	text.maybe_free ();
	109	}
	110
	111	return result;
	112	}
	113
	114	/* Generate a JSON object for HINT. */
	115
	116	static json::object *
004bb936	117	json_from_fixit_hint (diagnostic_context context, const fixit_hint hint)
478dd60d DM	118	{
	119	json::object *fixit_obj = new json::object ();
	120
	121	location_t start_loc = hint->get_start_loc ();
004bb936	122	fixit_obj->set ("start", json_from_expanded_location (context, start_loc));
478dd60d	123	location_t next_loc = hint->get_next_loc ();
004bb936	124	fixit_obj->set ("next", json_from_expanded_location (context, next_loc));
478dd60d DM	125	fixit_obj->set ("string", new json::string (hint->get_string ()));
	126
	127	return fixit_obj;
	128	}
	129
6d4a35ca DM	130	/* Generate a JSON object for METADATA. */
	131
	132	static json::object *
	133	json_from_metadata (const diagnostic_metadata *metadata)
	134	{
	135	json::object *metadata_obj = new json::object ();
	136
	137	if (metadata->get_cwe ())
	138	metadata_obj->set ("cwe",
	139	new json::integer_number (metadata->get_cwe ()));
	140
	141	return metadata_obj;
	142	}
	143
478dd60d DM	144	/* No-op implementation of "begin_diagnostic" for JSON output. */
	145
	146	static void
	147	json_begin_diagnostic (diagnostic_context , diagnostic_info )
	148	{
	149	}
	150
	151	/* Implementation of "end_diagnostic" for JSON output.
	152	Generate a JSON object for DIAGNOSTIC, and store for output
	153	within current diagnostic group. */
	154
	155	static void
	156	json_end_diagnostic (diagnostic_context context, diagnostic_info diagnostic,
	157	diagnostic_t orig_diag_kind)
	158	{
	159	json::object *diag_obj = new json::object ();
	160
	161	/* Get "kind" of diagnostic. */
	162	{
	163	static const char *const diagnostic_kind_text[] = {
	164	#define DEFINE_DIAGNOSTIC_KIND(K, T, C) (T),
	165	#include "diagnostic.def"
	166	#undef DEFINE_DIAGNOSTIC_KIND
	167	"must-not-happen"
	168	};
	169	/* Lose the trailing ": ". */
	170	const char *kind_text = diagnostic_kind_text[diagnostic->kind];
	171	size_t len = strlen (kind_text);
	172	gcc_assert (len > 2);
	173	gcc_assert (kind_text[len - 2] == ':');
	174	gcc_assert (kind_text[len - 1] == ' ');
	175	char *rstrip = xstrdup (kind_text);
	176	rstrip[len - 2] = '\0';
	177	diag_obj->set ("kind", new json::string (rstrip));
	178	free (rstrip);
	179	}
	180
	181	// FIXME: encoding of the message (json::string requires UTF-8)
	182	diag_obj->set ("message",
	183	new json::string (pp_formatted_text (context->printer)));
	184	pp_clear_output_area (context->printer);
	185
	186	char *option_text;
	187	option_text = context->option_name (context, diagnostic->option_index,
	188	orig_diag_kind, diagnostic->kind);
	189	if (option_text)
	190	{
	191	diag_obj->set ("option", new json::string (option_text));
	192	free (option_text);
	193	}
	194
b4c7ca2e DM	195	if (context->get_option_url)
	196	{
	197	char *option_url = context->get_option_url (context,
	198	diagnostic->option_index);
	199	if (option_url)
	200	{
	201	diag_obj->set ("option_url", new json::string (option_url));
	202	free (option_url);
	203	}
	204	}
	205
478dd60d DM	206	/* If we've already emitted a diagnostic within this auto_diagnostic_group,
	207	then add diag_obj to its "children" array. */
	208	if (cur_group)
	209	{
	210	gcc_assert (cur_children_array);
	211	cur_children_array->append (diag_obj);
	212	}
	213	else
	214	{
	215	/* Otherwise, make diag_obj be the top-level object within the group;
004bb936	216	add a "children" array and record the column origin. */
478dd60d DM	217	toplevel_array->append (diag_obj);
	218	cur_group = diag_obj;
	219	cur_children_array = new json::array ();
	220	diag_obj->set ("children", cur_children_array);
004bb936 LH	221	diag_obj->set ("column-origin",
004bb936 LH	222	new json::integer_number (context->column_origin));
478dd60d DM	223	}
	224
	225	const rich_location *richloc = diagnostic->richloc;
	226
	227	json::array *loc_array = new json::array ();
	228	diag_obj->set ("locations", loc_array);
	229
	230	for (unsigned int i = 0; i < richloc->get_num_locations (); i++)
	231	{
	232	const location_range *loc_range = richloc->get_range (i);
004bb936	233	json::object *loc_obj = json_from_location_range (context, loc_range, i);
478dd60d DM	234	if (loc_obj)
	235	loc_array->append (loc_obj);
	236	}
	237
	238	if (richloc->get_num_fixit_hints ())
	239	{
	240	json::array *fixit_array = new json::array ();
	241	diag_obj->set ("fixits", fixit_array);
	242	for (unsigned int i = 0; i < richloc->get_num_fixit_hints (); i++)
	243	{
	244	const fixit_hint *hint = richloc->get_fixit_hint (i);
004bb936	245	json::object *fixit_obj = json_from_fixit_hint (context, hint);
478dd60d DM	246	fixit_array->append (fixit_obj);
	247	}
	248	}
	249
	250	/* TODO: tree-ish things:
	251	TODO: functions
	252	TODO: inlining information
	253	TODO: macro expansion information. */
6d4a35ca DM	254
	255	if (diagnostic->metadata)
	256	{
	257	json::object *metadata_obj = json_from_metadata (diagnostic->metadata);
	258	diag_obj->set ("metadata", metadata_obj);
	259	}
4bc1899b DM	260
	261	const diagnostic_path *path = richloc->get_path ();
	262	if (path && context->make_json_for_path)
	263	{
	264	json::value *path_value = context->make_json_for_path (context, path);
	265	diag_obj->set ("path", path_value);
	266	}
bd5e882c DM	267
	268	diag_obj->set ("escape-source",
	269	new json::literal (richloc->escape_on_output_p ()));
478dd60d DM	270	}
	271
	272	/* No-op implementation of "begin_group_cb" for JSON output. */
	273
	274	static void
	275	json_begin_group (diagnostic_context *)
	276	{
	277	}
	278
	279	/* Implementation of "end_group_cb" for JSON output. */
	280
	281	static void
	282	json_end_group (diagnostic_context *)
	283	{
	284	cur_group = NULL;
	285	cur_children_array = NULL;
	286	}
	287
	288	/* Callback for final cleanup for JSON output. */
	289
	290	static void
	291	json_final_cb (diagnostic_context *)
	292	{
	293	/* Flush the top-level array. */
	294	toplevel_array->dump (stderr);
	295	fprintf (stderr, "\n");
	296	delete toplevel_array;
	297	toplevel_array = NULL;
	298	}
	299
	300	/* Set the output format for CONTEXT to FORMAT. */
	301
	302	void
	303	diagnostic_output_format_init (diagnostic_context *context,
	304	enum diagnostics_output_format format)
	305	{
	306	switch (format)
	307	{
	308	default:
	309	gcc_unreachable ();
	310	case DIAGNOSTICS_OUTPUT_FORMAT_TEXT:
	311	/* The default; do nothing. */
	312	break;
	313
	314	case DIAGNOSTICS_OUTPUT_FORMAT_JSON:
	315	{
	316	/* Set up top-level JSON array. */
	317	if (toplevel_array == NULL)
	318	toplevel_array = new json::array ();
	319
	320	/* Override callbacks. */
	321	context->begin_diagnostic = json_begin_diagnostic;
	322	context->end_diagnostic = json_end_diagnostic;
	323	context->begin_group_cb = json_begin_group;
	324	context->end_group_cb = json_end_group;
	325	context->final_cb = json_final_cb;
4bc1899b	326	context->print_path = NULL; /* handled in json_end_diagnostic. */
478dd60d	327
6d4a35ca DM	328	/* The metadata is handled in JSON format, rather than as text. */
	329	context->show_cwe = false;
	330
478dd60d DM	331	/* The option is handled in JSON format, rather than as text. */
	332	context->show_option_requested = false;
	333
	334	/* Don't colorize the text. */
	335	pp_show_color (context->printer) = false;
	336	}
	337	break;
	338	}
	339	}
30d3ba51 DM	340
	341	#if CHECKING_P
	342
	343	namespace selftest {
	344
	345	/* We shouldn't call json_from_expanded_location on UNKNOWN_LOCATION,
	346	but verify that we handle this gracefully. */
	347
	348	static void
	349	test_unknown_location ()
	350	{
004bb936 LH	351	test_diagnostic_context dc;
004bb936 LH	352	delete json_from_expanded_location (&dc, UNKNOWN_LOCATION);
30d3ba51 DM	353	}
	354
	355	/* Verify that we gracefully handle attempts to serialize bad
	356	compound locations. */
	357
	358	static void
	359	test_bad_endpoints ()
	360	{
	361	location_t bad_endpoints
	362	= make_location (BUILTINS_LOCATION,
	363	UNKNOWN_LOCATION, UNKNOWN_LOCATION);
	364
	365	location_range loc_range;
	366	loc_range.m_loc = bad_endpoints;
	367	loc_range.m_range_display_kind = SHOW_RANGE_WITH_CARET;
	368	loc_range.m_label = NULL;
	369
004bb936 LH	370	test_diagnostic_context dc;
004bb936 LH	371	json::object *obj = json_from_location_range (&dc, &loc_range, 0);
30d3ba51 DM	372	/* We should have a "caret" value, but no "start" or "finish" values. */
	373	ASSERT_TRUE (obj != NULL);
	374	ASSERT_TRUE (obj->get ("caret") != NULL);
	375	ASSERT_TRUE (obj->get ("start") == NULL);
	376	ASSERT_TRUE (obj->get ("finish") == NULL);
	377	delete obj;
	378	}
	379
	380	/* Run all of the selftests within this file. */
	381
	382	void
	383	diagnostic_format_json_cc_tests ()
	384	{
	385	test_unknown_location ();
	386	test_bad_endpoints ();
	387	}
	388
	389	} // namespace selftest
	390
	391	#endif /* #if CHECKING_P */