| /* |
| * 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); |
| } |
| } |