--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/jdk/src/demo/share/jvmti/hprof/hprof_error.c Sun Aug 17 15:54:13 2014 +0100
@@ -0,0 +1,215 @@
+/*
+ * Copyright (c) 2003, 2011, Oracle and/or its affiliates. All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ * - Redistributions of source code must retain the above copyright
+ * notice, this list of conditions and the following disclaimer.
+ *
+ * - 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.
+ *
+ * - Neither the name of Oracle nor the names of its
+ * contributors may be used to endorse or promote products derived
+ * from this software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "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 COPYRIGHT OWNER OR
+ * CONTRIBUTORS 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.
+ */
+
+/*
+ * This source code is provided to illustrate the usage of a given feature
+ * or technique and has been deliberately simplified. Additional steps
+ * required for a production-quality application, such as security checks,
+ * input validation and proper error handling, might not be present in
+ * this sample code.
+ */
+
+
+#include "hprof.h"
+
+/* The error handling logic. */
+
+/*
+ * Most hprof error processing and error functions are kept here, along with
+ * termination functions and signal handling (used in debug version only).
+ *
+ */
+
+#include <signal.h>
+
+static int p = 1; /* Used with pause=y|n option */
+
+/* Private functions */
+
+static void
+error_message(const char * format, ...)
+{
+ va_list ap;
+
+ va_start(ap, format);
+ (void)vfprintf(stderr, format, ap);
+ va_end(ap);
+}
+
+static void
+error_abort(void)
+{
+ /* Important to remove existing signal handler */
+ (void)signal(SIGABRT, NULL);
+ error_message("HPROF DUMPING CORE\n");
+ abort(); /* Sends SIGABRT signal, usually also caught by libjvm */
+}
+
+static void
+signal_handler(int sig)
+{
+ /* Caught a signal, most likely a SIGABRT */
+ error_message("HPROF SIGNAL %d TERMINATED PROCESS\n", sig);
+ error_abort();
+}
+
+static void
+setup_signal_handler(int sig)
+{
+ /* Only if debug version or debug=y */
+ if ( gdata->debug ) {
+ (void)signal(sig, (void(*)(int))(void*)&signal_handler);
+ }
+}
+
+static void
+terminate_everything(jint exit_code)
+{
+ if ( exit_code > 0 ) {
+ /* Could be a fatal error or assert error or a sanity error */
+ error_message("HPROF TERMINATED PROCESS\n");
+ if ( gdata->coredump || gdata->debug ) {
+ /* Core dump here by request */
+ error_abort();
+ }
+ }
+ /* Terminate the process */
+ error_exit_process(exit_code);
+}
+
+/* External functions */
+
+void
+error_setup(void)
+{
+ setup_signal_handler(SIGABRT);
+}
+
+void
+error_do_pause(void)
+{
+ int pid = md_getpid();
+ int timeleft = 600; /* 10 minutes max */
+ int interval = 10; /* 10 second message check */
+
+ /*LINTED*/
+ error_message("\nHPROF pause for PID %d\n", (int)pid);
+ while ( p && timeleft > 0 ) {
+ md_sleep(interval); /* 'assign p=0' to stop pause loop */
+ timeleft -= interval;
+ }
+ if ( timeleft <= 0 ) {
+ error_message("\n HPROF pause got tired of waiting and gave up.\n");
+ }
+}
+
+void
+error_exit_process(int exit_code)
+{
+ exit(exit_code);
+}
+
+static const char *
+source_basename(const char *file)
+{
+ const char *p;
+
+ if ( file == NULL ) {
+ return "UnknownSourceFile";
+ }
+ p = strrchr(file, '/');
+ if ( p == NULL ) {
+ p = strrchr(file, '\\');
+ }
+ if ( p == NULL ) {
+ p = file;
+ } else {
+ p++; /* go past / */
+ }
+ return p;
+}
+
+void
+error_assert(const char *condition, const char *file, int line)
+{
+ error_message("ASSERTION FAILURE: %s [%s:%d]\n", condition,
+ source_basename(file), line);
+ error_abort();
+}
+
+void
+error_handler(jboolean fatal, jvmtiError error,
+ const char *message, const char *file, int line)
+{
+ char *error_name;
+
+ if ( message==NULL ) {
+ message = "";
+ }
+ if ( error != JVMTI_ERROR_NONE ) {
+ error_name = getErrorName(error);
+ if ( error_name == NULL ) {
+ error_name = "?";
+ }
+ error_message("HPROF ERROR: %s (JVMTI Error %s(%d)) [%s:%d]\n",
+ message, error_name, error,
+ source_basename(file), line);
+ } else {
+ error_message("HPROF ERROR: %s [%s:%d]\n", message,
+ source_basename(file), line);
+ }
+ if ( fatal || gdata->errorexit ) {
+ /* If it's fatal, or the user wants termination on any error, die */
+ terminate_everything(9);
+ }
+}
+
+void
+debug_message(const char * format, ...)
+{
+ va_list ap;
+
+ va_start(ap, format);
+ (void)vfprintf(stderr, format, ap);
+ va_end(ap);
+}
+
+void
+verbose_message(const char * format, ...)
+{
+ if ( gdata->verbose ) {
+ va_list ap;
+
+ va_start(ap, format);
+ (void)vfprintf(stderr, format, ap);
+ va_end(ap);
+ }
+}