[thirdparty/gcc.git] / libbacktrace / ztest.c

/* ztest.c -- Test for libbacktrace inflate code.
   Copyright (C) 2017 Free Software Foundation, Inc.
   Written by Ian Lance Taylor, Google.

Redistribution and use in source and binary forms, with or without
modification, are permitted provided that the following conditions are
met:

    (1) Redistributions of source code must retain the above copyright
    notice, this list of conditions and the following disclaimer.

    (2) Redistributions in binary form must reproduce the above copyright
    notice, this list of conditions and the following disclaimer in
    the documentation and/or other materials provided with the
    distribution.

    (3) The name of the author may not be used to
    endorse or promote products derived from this software without
    specific prior written permission.

THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT,
INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
(INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
POSSIBILITY OF SUCH DAMAGE.  */

#include "config.h"

#include <errno.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include <sys/types.h>
#include <sys/stat.h>

#ifdef HAVE_ZLIB
#include <zlib.h>
#endif

#include "backtrace.h"
#include "backtrace-supported.h"

#include "internal.h"
#include "testlib.h"

#ifndef HAVE_CLOCK_GETTIME

typedef int xclockid_t;

static int
xclock_gettime (xclockid_t id ATTRIBUTE_UNUSED,
		struct timespec *ts ATTRIBUTE_UNUSED)
{
  errno = EINVAL;
  return -1;
}

#define clockid_t xclockid_t
#define clock_gettime xclock_gettime
#undef CLOCK_REALTIME
#define CLOCK_REALTIME 0

#endif /* !defined(HAVE_CLOCK_GETTIME) */

#ifdef CLOCK_PROCESS_CPUTIME_ID
#define ZLIB_CLOCK_GETTIME_ARG CLOCK_PROCESS_CPUTIME_ID
#else
#define ZLIB_CLOCK_GETTIME_ARG CLOCK_REALTIME
#endif

/* Some tests for the local zlib inflation code.  */

struct zlib_test
{
  const char *name;
  const char *uncompressed;
  const char *compressed;
  size_t compressed_len;
};

/* Error callback.  */

static void
error_callback_compress (void *vdata, const char *msg, int errnum)
{
  fprintf (stderr, "%s", msg);
  if (errnum > 0)
    fprintf (stderr, ": %s", strerror (errnum));
  fprintf (stderr, "\n");
  exit (EXIT_FAILURE);
}

static const struct zlib_test tests[] =
{
  {
    "empty",
    "",
    "\x78\x9c\x03\x00\x00\x00\x00\x01",
    8,
  },
  {
    "hello",
    "hello, world\n",
    ("\x78\x9c\xca\x48\xcd\xc9\xc9\xd7\x51\x28\xcf"
     "\x2f\xca\x49\xe1\x02\x04\x00\x00\xff\xff\x21\xe7\x04\x93"),
    25,
  },
  {
    "goodbye",
    "goodbye, world",
    ("\x78\x9c\x4b\xcf\xcf\x4f\x49\xaa"
     "\x4c\xd5\x51\x28\xcf\x2f\xca\x49"
     "\x01\x00\x28\xa5\x05\x5e"),
    22,
  }
};

/* Test the hand coded samples.  */

static void
test_samples (struct backtrace_state *state)
{
  size_t i;

  for (i = 0; i < sizeof tests / sizeof tests[0]; ++i)
    {
      char *p;
      size_t v;
      size_t j;
      unsigned char *uncompressed;
      size_t uncompressed_len;

      p = malloc (12 + tests[i].compressed_len);
      memcpy (p, "ZLIB", 4);
      v = strlen (tests[i].uncompressed);
      for (j = 0; j < 8; ++j)
	p[j + 4] = (v >> ((7 - j) * 8)) & 0xff;
      memcpy (p + 12, tests[i].compressed, tests[i].compressed_len);
      uncompressed = NULL;
      uncompressed_len = 0;
      if (!backtrace_uncompress_zdebug (state, (unsigned char *) p,
					tests[i].compressed_len + 12,
					error_callback_compress, NULL,
					&uncompressed, &uncompressed_len))
	{
	  fprintf (stderr, "test %s: uncompress failed\n", tests[i].name);
	  ++failures;
	}
      else
	{
	  if (uncompressed_len != v)
	    {
	      fprintf (stderr,
		       "test %s: got uncompressed length %zu, want %zu\n",
		       tests[i].name, uncompressed_len, v);
	      ++failures;
	    }
	  else if (memcmp (tests[i].uncompressed, uncompressed, v) != 0)
	    {
	      size_t j;

	      fprintf (stderr, "test %s: uncompressed data mismatch\n",
		       tests[i].name);
	      for (j = 0; j < v; ++j)
		if (tests[i].uncompressed[j] != uncompressed[j])
		  fprintf (stderr, "  %zu: got %#x want %#x\n", j,
			   uncompressed[j], tests[i].uncompressed[j]);
	      ++failures;
	    }
	  else
	    printf ("PASS: inflate %s\n", tests[i].name);

	  backtrace_free (state, uncompressed, uncompressed_len,
			  error_callback_compress, NULL);
	}
    }
}

#ifdef HAVE_ZLIB

/* Given a set of TRIALS timings, discard the lowest and highest
   values and return the mean average of the rest.  */

static size_t
average_time (const size_t *times, size_t trials)
{
  size_t imax;
  size_t max;
  size_t imin;
  size_t min;
  size_t i;
  size_t sum;

  imin = 0;
  imax = 0;
  min = times[0];
  max = times[0];
  for (i = 1; i < trials; ++i)
    {
      if (times[i] < min)
	{
	  imin = i;
	  min = times[i];
	}
      if (times[i] > max)
	{
	  imax = i;
	  max = times[i];
	}
    }

  sum = 0;
  for (i = 0; i < trials; ++i)
    {
      if (i != imax && i != imin)
	sum += times[i];
    }
  return sum / (trials - 2);
}

#endif

/* Test a larger text, if available.  */

static void
test_large (struct backtrace_state *state)
{
#ifdef HAVE_ZLIB
  unsigned char *orig_buf;
  size_t orig_bufsize;
  size_t i;
  char *compressed_buf;
  size_t compressed_bufsize;
  unsigned long compress_sizearg;
  unsigned char *uncompressed_buf;
  size_t uncompressed_bufsize;
  int r;
  clockid_t cid;
  struct timespec ts1;
  struct timespec ts2;
  size_t ctime;
  size_t ztime;
  const size_t trials = 16;
  size_t ctimes[16];
  size_t ztimes[16];
  static const char * const names[] = {
    "Mark.Twain-Tom.Sawyer.txt",
    "../libgo/go/compress/testdata/Mark.Twain-Tom.Sawyer.txt"
  };

  orig_buf = NULL;
  orig_bufsize = 0;
  uncompressed_buf = NULL;
  compressed_buf = NULL;

  for (i = 0; i < sizeof names / sizeof names[0]; ++i)
    {
      size_t len;
      char *namebuf;
      FILE *e;
      struct stat st;
      char *rbuf;
      size_t got;

      len = strlen (SRCDIR) + strlen (names[i]) + 2;
      namebuf = malloc (len);
      if (namebuf == NULL)
	{
	  perror ("malloc");
	  goto fail;
	}
      snprintf (namebuf, len, "%s/%s", SRCDIR, names[i]);
      e = fopen (namebuf, "r");
      free (namebuf);
      if (e == NULL)
	continue;
      if (fstat (fileno (e), &st) < 0)
	{
	  perror ("fstat");
	  fclose (e);
	  continue;
	}
      rbuf = malloc (st.st_size);
      if (rbuf == NULL)
	{
	  perror ("malloc");
	  goto fail;
	}
      got = fread (rbuf, 1, st.st_size, e);
      fclose (e);
      if (got > 0)
	{
	  orig_buf = rbuf;
	  orig_bufsize = got;
	  break;
	}
      free (rbuf);
    }

  if (orig_buf == NULL)
    {
      /* We couldn't find an input file.  */
      printf ("UNSUPPORTED: inflate large\n");
      return;
    }

  compressed_bufsize = compressBound (orig_bufsize) + 12;
  compressed_buf = malloc (compressed_bufsize);
  if (compressed_buf == NULL)
    {
      perror ("malloc");
      goto fail;
    }

  compress_sizearg = compressed_bufsize - 12;
  r = compress (compressed_buf + 12, &compress_sizearg,
		orig_buf, orig_bufsize);
  if (r != Z_OK)
    {
      fprintf (stderr, "zlib compress failed: %d\n", r);
      goto fail;
    }

  compressed_bufsize = compress_sizearg + 12;

  /* Prepare the header that our library expects.  */
  memcpy (compressed_buf, "ZLIB", 4);
  for (i = 0; i < 8; ++i)
    compressed_buf[i + 4] = (orig_bufsize >> ((7 - i) * 8)) & 0xff;

  uncompressed_buf = malloc (orig_bufsize);
  if (uncompressed_buf == NULL)
    {
      perror ("malloc");
      goto fail;
    }
  uncompressed_bufsize = orig_bufsize;

  if (!backtrace_uncompress_zdebug (state, compressed_buf, compressed_bufsize,
				    error_callback_compress, NULL,
				    &uncompressed_buf, &uncompressed_bufsize))
    {
      fprintf (stderr, "inflate large: backtrace_uncompress_zdebug failed\n");
      goto fail;
    }

  if (uncompressed_bufsize != orig_bufsize)
    {
      fprintf (stderr,
	       "inflate large: got uncompressed length %zu, want %zu\n",
	       uncompressed_bufsize, orig_bufsize);
      goto fail;
    }

  if (memcmp (uncompressed_buf, orig_buf, uncompressed_bufsize) != 0)
    {
      fprintf (stderr, "inflate large: uncompressed data mismatch\n");
      goto fail;
    }

  printf ("PASS: inflate large\n");

  for (i = 0; i < trials; ++i)
    {
      cid = ZLIB_CLOCK_GETTIME_ARG;
      if (clock_gettime (cid, &ts1) < 0)
	{
	  if (errno == EINVAL)
	    return;
	  perror ("clock_gettime");
	  return;
	}

      if (!backtrace_uncompress_zdebug (state, compressed_buf,
					compressed_bufsize,
					error_callback_compress, NULL,
					&uncompressed_buf,
					&uncompressed_bufsize))
	{
	  fprintf (stderr,
		   ("inflate large: "
		    "benchmark backtrace_uncompress_zdebug failed\n"));
	  return;
	}

      if (clock_gettime (cid, &ts2) < 0)
	{
	  perror ("clock_gettime");
	  return;
	}

      ctime = (ts2.tv_sec - ts1.tv_sec) * 1000000000;
      ctime += ts2.tv_nsec - ts1.tv_nsec;
      ctimes[i] = ctime;

      if (clock_gettime (cid, &ts1) < 0)
	{
	  perror("clock_gettime");
	  return;
	}

      r = uncompress (uncompressed_buf, &uncompressed_bufsize,
		      compressed_buf + 12, compressed_bufsize - 12);

      if (clock_gettime (cid, &ts2) < 0)
	{
	  perror ("clock_gettime");
	  return;
	}

      if (r != Z_OK)
	{
	  fprintf (stderr,
		   "inflate large: benchmark zlib uncompress failed: %d\n",
		   r);
	  return;
	}

      ztime = (ts2.tv_sec - ts1.tv_sec) * 1000000000;
      ztime += ts2.tv_nsec - ts1.tv_nsec;
      ztimes[i] = ztime;
    }

  /* Toss the highest and lowest times and average the rest.  */
  ctime = average_time (ctimes, trials);
  ztime = average_time (ztimes, trials);

  printf ("backtrace time: %zu ns\n", ctime);
  printf ("zlib time:    : %zu ns\n", ztime);
  printf ("percentage    : %g\n", (double) ztime / (double) ctime);

  return;

 fail:
  printf ("FAIL: inflate large\n");
  ++failures;

  if (orig_buf != NULL)
    free (orig_buf);
  if (compressed_buf != NULL)
    free (compressed_buf);
  if (uncompressed_buf != NULL)
    free (uncompressed_buf);

#else /* !HAVE_ZLIB */

 printf ("UNSUPPORTED: inflate large\n");

#endif /* !HAVE_ZLIB */
}

int
main (int argc ATTRIBUTE_UNUSED, char **argv)
{
  struct backtrace_state *state;

  state = backtrace_create_state (argv[0], BACKTRACE_SUPPORTS_THREADS,
				  error_callback_create, NULL);

  test_samples (state);
  test_large (state);

  exit (failures != 0 ? EXIT_FAILURE : EXIT_SUCCESS);
}
Commit	Line	Data
8da872d9 ILT	1	/* ztest.c -- Test for libbacktrace inflate code.
	2	Copyright (C) 2017 Free Software Foundation, Inc.
	3	Written by Ian Lance Taylor, Google.
	4
	5	Redistribution and use in source and binary forms, with or without
	6	modification, are permitted provided that the following conditions are
	7	met:
	8
	9	(1) Redistributions of source code must retain the above copyright
	10	notice, this list of conditions and the following disclaimer.
	11
	12	(2) Redistributions in binary form must reproduce the above copyright
	13	notice, this list of conditions and the following disclaimer in
	14	the documentation and/or other materials provided with the
	15	distribution.
	16
	17	(3) The name of the author may not be used to
	18	endorse or promote products derived from this software without
	19	specific prior written permission.
	20
	21	THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
	22	IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
	23	WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
	24	DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT,
	25	INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
	26	(INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
	27	SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
	28	HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
	29	STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
	30	IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
	31	POSSIBILITY OF SUCH DAMAGE. */
	32
	33	#include "config.h"
	34
8398c1df	35	#include <errno.h>
8da872d9 ILT	36	#include <stdio.h>
	37	#include <stdlib.h>
	38	#include <string.h>
	39	#include <time.h>
	40	#include <sys/types.h>
	41	#include <sys/stat.h>
	42
	43	#ifdef HAVE_ZLIB
	44	#include <zlib.h>
	45	#endif
	46
	47	#include "backtrace.h"
	48	#include "backtrace-supported.h"
	49
	50	#include "internal.h"
	51	#include "testlib.h"
	52
8398c1df ILT	53	#ifndef HAVE_CLOCK_GETTIME
	54
	55	typedef int xclockid_t;
	56
	57	static int
	58	xclock_gettime (xclockid_t id ATTRIBUTE_UNUSED,
	59	struct timespec *ts ATTRIBUTE_UNUSED)
	60	{
	61	errno = EINVAL;
	62	return -1;
	63	}
	64
	65	#define clockid_t xclockid_t
	66	#define clock_gettime xclock_gettime
	67	#undef CLOCK_REALTIME
	68	#define CLOCK_REALTIME 0
	69
	70	#endif /* !defined(HAVE_CLOCK_GETTIME) */
	71
	72	#ifdef CLOCK_PROCESS_CPUTIME_ID
	73	#define ZLIB_CLOCK_GETTIME_ARG CLOCK_PROCESS_CPUTIME_ID
	74	#else
	75	#define ZLIB_CLOCK_GETTIME_ARG CLOCK_REALTIME
	76	#endif
	77
8da872d9 ILT	78	/* Some tests for the local zlib inflation code. */
	79
	80	struct zlib_test
	81	{
	82	const char *name;
	83	const char *uncompressed;
	84	const char *compressed;
	85	size_t compressed_len;
	86	};
	87
	88	/* Error callback. */
	89
	90	static void
	91	error_callback_compress (void vdata, const char msg, int errnum)
	92	{
	93	fprintf (stderr, "%s", msg);
	94	if (errnum > 0)
	95	fprintf (stderr, ": %s", strerror (errnum));
	96	fprintf (stderr, "\n");
	97	exit (EXIT_FAILURE);
	98	}
	99
	100	static const struct zlib_test tests[] =
	101	{
	102	{
	103	"empty",
	104	"",
	105	"\x78\x9c\x03\x00\x00\x00\x00\x01",
	106	8,
	107	},
	108	{
	109	"hello",
	110	"hello, world\n",
	111	("\x78\x9c\xca\x48\xcd\xc9\xc9\xd7\x51\x28\xcf"
	112	"\x2f\xca\x49\xe1\x02\x04\x00\x00\xff\xff\x21\xe7\x04\x93"),
	113	25,
	114	},
	115	{
	116	"goodbye",
	117	"goodbye, world",
	118	("\x78\x9c\x4b\xcf\xcf\x4f\x49\xaa"
	119	"\x4c\xd5\x51\x28\xcf\x2f\xca\x49"
	120	"\x01\x00\x28\xa5\x05\x5e"),
	121	22,
	122	}
	123	};
	124
	125	/* Test the hand coded samples. */
	126
	127	static void
	128	test_samples (struct backtrace_state *state)
	129	{
	130	size_t i;
	131
	132	for (i = 0; i < sizeof tests / sizeof tests[0]; ++i)
	133	{
	134	char *p;
	135	size_t v;
	136	size_t j;
	137	unsigned char *uncompressed;
	138	size_t uncompressed_len;
	139
	140	p = malloc (12 + tests[i].compressed_len);
	141	memcpy (p, "ZLIB", 4);
142	v = strlen (tests[i].uncompressed);
143	for (j = 0; j < 8; ++j)
144	p[j + 4] = (v >> ((7 - j) * 8)) & 0xff;
145	memcpy (p + 12, tests[i].compressed, tests[i].compressed_len);
146	uncompressed = NULL;
147	uncompressed_len = 0;
148	if (!backtrace_uncompress_zdebug (state, (unsigned char *) p,
149	tests[i].compressed_len + 12,
150	error_callback_compress, NULL,
151	&uncompressed, &uncompressed_len))
152	{
153	fprintf (stderr, "test %s: uncompress failed\n", tests[i].name);
154	++failures;
155	}
156	else
157	{
158	if (uncompressed_len != v)
159	{
160	fprintf (stderr,
161	"test %s: got uncompressed length %zu, want %zu\n",
162	tests[i].name, uncompressed_len, v);
163	++failures;
164	}
165	else if (memcmp (tests[i].uncompressed, uncompressed, v) != 0)
166	{
167	size_t j;
168
169	fprintf (stderr, "test %s: uncompressed data mismatch\n",
170	tests[i].name);
171	for (j = 0; j < v; ++j)
172	if (tests[i].uncompressed[j] != uncompressed[j])
173	fprintf (stderr, " %zu: got %#x want %#x\n", j,
174	uncompressed[j], tests[i].uncompressed[j]);
175	++failures;
176	}
177	else
178	printf ("PASS: inflate %s\n", tests[i].name);
179
180	backtrace_free (state, uncompressed, uncompressed_len,
181	error_callback_compress, NULL);
182	}
183	}
184	}
185
8398c1df	186	#ifdef HAVE_ZLIB
8da872d9 ILT	187
	188	/* Given a set of TRIALS timings, discard the lowest and highest
	189	values and return the mean average of the rest. */
	190
	191	static size_t
	192	average_time (const size_t *times, size_t trials)
	193	{
	194	size_t imax;
	195	size_t max;
	196	size_t imin;
	197	size_t min;
	198	size_t i;
	199	size_t sum;
	200
	201	imin = 0;
	202	imax = 0;
	203	min = times[0];
	204	max = times[0];
	205	for (i = 1; i < trials; ++i)
	206	{
	207	if (times[i] < min)
	208	{
	209	imin = i;
	210	min = times[i];
	211	}
	212	if (times[i] > max)
	213	{
	214	imax = i;
	215	max = times[i];
	216	}
	217	}
	218
	219	sum = 0;
	220	for (i = 0; i < trials; ++i)
	221	{
	222	if (i != imax && i != imin)
	223	sum += times[i];
	224	}
	225	return sum / (trials - 2);
	226	}
	227
	228	#endif
	229
	230	/* Test a larger text, if available. */
	231
	232	static void
	233	test_large (struct backtrace_state *state)
	234	{
	235	#ifdef HAVE_ZLIB
	236	unsigned char *orig_buf;
	237	size_t orig_bufsize;
	238	size_t i;
	239	char *compressed_buf;
	240	size_t compressed_bufsize;
	241	unsigned long compress_sizearg;
	242	unsigned char *uncompressed_buf;
	243	size_t uncompressed_bufsize;
	244	int r;
	245	clockid_t cid;
	246	struct timespec ts1;
	247	struct timespec ts2;
	248	size_t ctime;
	249	size_t ztime;
	250	const size_t trials = 16;
251	size_t ctimes[16];
252	size_t ztimes[16];
253	static const char * const names[] = {
254	"Mark.Twain-Tom.Sawyer.txt",
255	"../libgo/go/compress/testdata/Mark.Twain-Tom.Sawyer.txt"
256	};
257
258	orig_buf = NULL;
259	orig_bufsize = 0;
260	uncompressed_buf = NULL;
261	compressed_buf = NULL;
262
263	for (i = 0; i < sizeof names / sizeof names[0]; ++i)
264	{
265	size_t len;
266	char *namebuf;
267	FILE *e;
268	struct stat st;
269	char *rbuf;
270	size_t got;
271
272	len = strlen (SRCDIR) + strlen (names[i]) + 2;
273	namebuf = malloc (len);
274	if (namebuf == NULL)
275	{
276	perror ("malloc");
277	goto fail;
278	}
279	snprintf (namebuf, len, "%s/%s", SRCDIR, names[i]);
280	e = fopen (namebuf, "r");
281	free (namebuf);
282	if (e == NULL)
283	continue;
284	if (fstat (fileno (e), &st) < 0)
285	{
286	perror ("fstat");
287	fclose (e);
288	continue;
289	}
290	rbuf = malloc (st.st_size);
291	if (rbuf == NULL)
292	{
293	perror ("malloc");
294	goto fail;
295	}
296	got = fread (rbuf, 1, st.st_size, e);
297	fclose (e);
298	if (got > 0)
299	{
300	orig_buf = rbuf;
301	orig_bufsize = got;
302	break;
303	}
304	free (rbuf);
305	}
306
307	if (orig_buf == NULL)
308	{
309	/* We couldn't find an input file. */
310	printf ("UNSUPPORTED: inflate large\n");
311	return;
312	}
313
314	compressed_bufsize = compressBound (orig_bufsize) + 12;
315	compressed_buf = malloc (compressed_bufsize);
316	if (compressed_buf == NULL)
317	{
318	perror ("malloc");
319	goto fail;
320	}
321
322	compress_sizearg = compressed_bufsize - 12;
323	r = compress (compressed_buf + 12, &compress_sizearg,
324	orig_buf, orig_bufsize);
325	if (r != Z_OK)
326	{
327	fprintf (stderr, "zlib compress failed: %d\n", r);
328	goto fail;
329	}
330
331	compressed_bufsize = compress_sizearg + 12;
332
333	/* Prepare the header that our library expects. */
334	memcpy (compressed_buf, "ZLIB", 4);
335	for (i = 0; i < 8; ++i)
336	compressed_buf[i + 4] = (orig_bufsize >> ((7 - i) * 8)) & 0xff;
337
338	uncompressed_buf = malloc (orig_bufsize);
339	if (uncompressed_buf == NULL)
340	{
341	perror ("malloc");
342	goto fail;
343	}
344	uncompressed_bufsize = orig_bufsize;
345
346	if (!backtrace_uncompress_zdebug (state, compressed_buf, compressed_bufsize,
347	error_callback_compress, NULL,
348	&uncompressed_buf, &uncompressed_bufsize))
349	{
350	fprintf (stderr, "inflate large: backtrace_uncompress_zdebug failed\n");
351	goto fail;
352	}
353
354	if (uncompressed_bufsize != orig_bufsize)
355	{
356	fprintf (stderr,
357	"inflate large: got uncompressed length %zu, want %zu\n",
358	uncompressed_bufsize, orig_bufsize);
359	goto fail;
360	}
361
362	if (memcmp (uncompressed_buf, orig_buf, uncompressed_bufsize) != 0)
363	{
364	fprintf (stderr, "inflate large: uncompressed data mismatch\n");
365	goto fail;
366	}
367
368	printf ("PASS: inflate large\n");
369
370	for (i = 0; i < trials; ++i)
371	{
8398c1df	372	cid = ZLIB_CLOCK_GETTIME_ARG;
8da872d9 ILT	373	if (clock_gettime (cid, &ts1) < 0)
8da872d9 ILT	374	{
8398c1df ILT	375	if (errno == EINVAL)
8398c1df ILT	376	return;
8da872d9 ILT	377	perror ("clock_gettime");
	378	return;
	379	}
	380
	381	if (!backtrace_uncompress_zdebug (state, compressed_buf,
	382	compressed_bufsize,
	383	error_callback_compress, NULL,
	384	&uncompressed_buf,
	385	&uncompressed_bufsize))
	386	{
	387	fprintf (stderr,
	388	("inflate large: "
	389	"benchmark backtrace_uncompress_zdebug failed\n"));
	390	return;
	391	}
	392
	393	if (clock_gettime (cid, &ts2) < 0)
	394	{
	395	perror ("clock_gettime");
	396	return;
	397	}
	398
	399	ctime = (ts2.tv_sec - ts1.tv_sec) * 1000000000;
	400	ctime += ts2.tv_nsec - ts1.tv_nsec;
	401	ctimes[i] = ctime;
	402
	403	if (clock_gettime (cid, &ts1) < 0)
	404	{
	405	perror("clock_gettime");
	406	return;
	407	}
	408
	409	r = uncompress (uncompressed_buf, &uncompressed_bufsize,
	410	compressed_buf + 12, compressed_bufsize - 12);
	411
	412	if (clock_gettime (cid, &ts2) < 0)
	413	{
	414	perror ("clock_gettime");
	415	return;
	416	}
	417
	418	if (r != Z_OK)
	419	{
	420	fprintf (stderr,
	421	"inflate large: benchmark zlib uncompress failed: %d\n",
	422	r);
	423	return;
	424	}
	425
	426	ztime = (ts2.tv_sec - ts1.tv_sec) * 1000000000;
	427	ztime += ts2.tv_nsec - ts1.tv_nsec;
	428	ztimes[i] = ztime;
	429	}
	430
	431	/* Toss the highest and lowest times and average the rest. */
	432	ctime = average_time (ctimes, trials);
	433	ztime = average_time (ztimes, trials);
	434
	435	printf ("backtrace time: %zu ns\n", ctime);
	436	printf ("zlib time: : %zu ns\n", ztime);
	437	printf ("percentage : %g\n", (double) ztime / (double) ctime);
	438
	439	return;
	440
441	fail:
442	printf ("FAIL: inflate large\n");
443	++failures;
444
445	if (orig_buf != NULL)
446	free (orig_buf);
447	if (compressed_buf != NULL)
448	free (compressed_buf);
449	if (uncompressed_buf != NULL)
450	free (uncompressed_buf);
451
452	#else /* !HAVE_ZLIB */
453
454	printf ("UNSUPPORTED: inflate large\n");
455
456	#endif /* !HAVE_ZLIB */
457	}
458
459	int
460	main (int argc ATTRIBUTE_UNUSED, char **argv)
461	{
462	struct backtrace_state *state;
463
464	state = backtrace_create_state (argv[0], BACKTRACE_SUPPORTS_THREADS,
465	error_callback_create, NULL);
466
467	test_samples (state);
468	test_large (state);
469
470	exit (failures != 0 ? EXIT_FAILURE : EXIT_SUCCESS);
471	}