~drizzle-trunk/drizzle/development

/*****************************************************************************

Copyright (c) 1994, 2009, Innobase Oy. All Rights Reserved.

This program 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; version 2 of the License.

This program 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

this program; if not, write to the Free Software Foundation, Inc., 59 Temple

Place, Suite 330, Boston, MA 02111-1307 USA

*****************************************************************************/

/*****************************************************************//**

@file ut/ut0dbg.c

Debug utilities for Innobase.

Created 1/30/1994 Heikki Tuuri

**********************************************************************/

#include "univ.i"

#include "ut0dbg.h"

#if defined(__GNUC__) && (__GNUC__ > 2)

#else

/** This is used to eliminate compiler warnings */

UNIV_INTERN ulint	ut_dbg_zero	= 0;

#endif

#if defined(UNIV_SYNC_DEBUG) || !defined(UT_DBG_USE_ABORT)

/** If this is set to TRUE by ut_dbg_assertion_failed(), all threads

will stop at the next ut_a() or ut_ad(). */

UNIV_INTERN ibool	ut_dbg_stop_threads	= FALSE;

#endif

#ifdef __NETWARE__

/** Flag for ignoring further assertion failures.  This is set to TRUE

when on NetWare there happens an InnoDB assertion failure or other

fatal error condition that requires an immediate shutdown. */

UNIV_INTERN ibool panic_shutdown = FALSE;

#elif !defined(UT_DBG_USE_ABORT)

/** A null pointer that will be dereferenced to trigger a memory trap */

UNIV_INTERN ulint*	ut_dbg_null_ptr		= NULL;

#endif

/*************************************************************//**

Report a failed assertion. */

UNIV_INTERN

void

ut_dbg_assertion_failed(

/*====================*/

	const char* expr,	/*!< in: the failed assertion (optional) */

	const char* file,	/*!< in: source file containing the assertion */

	ulint line)		/*!< in: line number of the assertion */

{

	ut_print_timestamp(stderr);

#ifdef UNIV_HOTBACKUP

	fprintf(stderr, "  InnoDB: Assertion failure in file %s line %lu\n",

		file, line);

#else /* UNIV_HOTBACKUP */

	fprintf(stderr,

		"  InnoDB: Assertion failure in thread %lu"

		" in file %s line %lu\n",

		os_thread_pf(os_thread_get_curr_id()), file, line);

#endif /* UNIV_HOTBACKUP */

	if (expr) {

		fprintf(stderr,

			"InnoDB: Failing assertion: %s\n", expr);

	}

	fputs("InnoDB: We intentionally generate a memory trap.\n"

	      "InnoDB: Submit a detailed bug report"

	      " to http://bugs.mysql.com.\n"

	      "InnoDB: If you get repeated assertion failures"

	      " or crashes, even\n"

	      "InnoDB: immediately after the mysqld startup, there may be\n"

	      "InnoDB: corruption in the InnoDB tablespace. Please refer to\n"

	      "InnoDB: " REFMAN "forcing-recovery.html\n"

	      "InnoDB: about forcing recovery.\n", stderr);

#if defined(UNIV_SYNC_DEBUG) || !defined(UT_DBG_USE_ABORT)

	ut_dbg_stop_threads = TRUE;

#endif

}

#ifdef __NETWARE__

/*************************************************************//**

Shut down MySQL/InnoDB after assertion failure. */

UNIV_INTERN

void

ut_dbg_panic(void)

/*==============*/

{

	if (!panic_shutdown) {

		panic_shutdown = TRUE;

		innobase_shutdown_for_mysql();

	}

	exit(1);

}

#else /* __NETWARE__ */

# if defined(UNIV_SYNC_DEBUG) || !defined(UT_DBG_USE_ABORT)

/*************************************************************//**

Stop a thread after assertion failure. */

UNIV_INTERN

void

ut_dbg_stop_thread(

/*===============*/

	const char*	file,

	ulint		line)

{

#ifndef UNIV_HOTBACKUP

	fprintf(stderr, "InnoDB: Thread %lu stopped in file %s line %lu\n",

		os_thread_pf(os_thread_get_curr_id()), file, line);

	os_thread_sleep(1000000000);

#endif /* !UNIV_HOTBACKUP */

}

# endif

#endif /* __NETWARE__ */

#ifdef UNIV_COMPILE_TEST_FUNCS

#include <sys/types.h>

#include <sys/time.h>

#include <sys/resource.h>

#include <unistd.h>

#ifndef timersub

#define timersub(a, b, r)						\

	do {								\

		(r)->tv_sec = (a)->tv_sec - (b)->tv_sec;		\

		(r)->tv_usec = (a)->tv_usec - (b)->tv_usec;		\

		if ((r)->tv_usec < 0) {					\

			(r)->tv_sec--;					\

			(r)->tv_usec += 1000000;			\

		}							\

	} while (0)

#endif /* timersub */

/*******************************************************************//**

Resets a speedo (records the current time in it). */

UNIV_INTERN

void

speedo_reset(

/*=========*/

	speedo_t*	speedo)	/*!< out: speedo */

{

	gettimeofday(&speedo->tv, NULL);

	getrusage(RUSAGE_SELF, &speedo->ru);

}

/*******************************************************************//**

Shows the time elapsed and usage statistics since the last reset of a

speedo. */

UNIV_INTERN

void

speedo_show(

/*========*/

	const speedo_t*	speedo)	/*!< in: speedo */

{

	struct rusage	ru_now;

	struct timeval	tv_now;

	struct timeval	tv_diff;

	getrusage(RUSAGE_SELF, &ru_now);

	gettimeofday(&tv_now, NULL);

#define PRINT_TIMEVAL(prefix, tvp)		\

	fprintf(stderr, "%s% 5ld.%06ld sec\n",	\

		prefix, (tvp)->tv_sec, (tvp)->tv_usec)

	timersub(&tv_now, &speedo->tv, &tv_diff);

	PRINT_TIMEVAL("real", &tv_diff);

	timersub(&ru_now.ru_utime, &speedo->ru.ru_utime, &tv_diff);

	PRINT_TIMEVAL("user", &tv_diff);

	timersub(&ru_now.ru_stime, &speedo->ru.ru_stime, &tv_diff);

	PRINT_TIMEVAL("sys ", &tv_diff);

}

#endif /* UNIV_COMPILE_TEST_FUNCS */