From bf4630076762d9c20c16c80c1c791f352b046dd1 Mon Sep 17 00:00:00 2001
From: Brad Bishop <bradleyb@us.ibm.com>
Date: Mon, 30 Jun 2014 22:10:16 -0500
Subject: Port FFS tools over from Building Block repository.

---
 clib/src/exception.c | 145 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 145 insertions(+)
 create mode 100644 clib/src/exception.c

(limited to 'clib/src/exception.c')

diff --git a/clib/src/exception.c b/clib/src/exception.c
new file mode 100644
index 0000000..30b6dc6
--- /dev/null
+++ b/clib/src/exception.c
@@ -0,0 +1,145 @@
+/*
+ * Copyright (c) International Business Machines Corp., 2014
+ *
+ * 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; either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * 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: exc.c
+ * Author: Shaun Wetzstein <shaun@us.ibm.com>
+ *  Descr: {set,long}jmp implementation of exceptions for C code.
+ *   Note: using these macros will create an exception context
+ *         in each thread.
+ *   Date: 7/06/09
+ */
+
+#include <errno.h>
+#include <assert.h>
+#include <pthread.h>
+#include <stdio.h>
+#include <stdarg.h>
+#include <execinfo.h>
+
+#include "exception.h"
+#include "misc.h"
+
+/* =======================================================================*/
+
+const char *exception_name[] = {
+	"assertion",
+	"unexpected",
+	"errno",
+};
+
+typedef struct exception_context {
+	pthread_once_t once;
+	pthread_key_t key;
+} exception_context;
+
+/* =======================================================================*/
+
+static exception_context __exc_ctx = { PTHREAD_ONCE_INIT, 0 };
+
+static inline void __exc_key_create(void)
+{
+	if (pthread_key_create(&__exc_ctx.key, NULL))
+		__exc_throw(ASSERTION, NULL, 0, __FILE__, __LINE__);
+}
+
+/* =======================================================================*/
+
+void __exc_init(void)
+{
+	if (pthread_once(&__exc_ctx.once, __exc_key_create))
+		__exc_throw(ASSERTION, NULL, 0, __FILE__, __LINE__);
+}
+
+exception_frame_t *__exc_get_frame(void)
+{
+	return (exception_frame_t *) (pthread_getspecific(__exc_ctx.key));
+}
+
+void __exc_set_frame(exception_frame_t * f)
+{
+	if (pthread_setspecific(__exc_ctx.key, f))
+		__exc_throw(ASSERTION, NULL, 0, __FILE__, __LINE__);
+}
+
+void __exc_backtrace(const char *fmt, ...)
+{
+	if (fmt != NULL) {
+		va_list va;
+		va_start(va, fmt);
+		vfprintf(stderr, fmt, va);
+		va_end(va);
+	}
+
+	fprintf(stderr, "========== backtrace ==========\n");
+	void *bt[1024];
+	int nr = backtrace(bt, sizeof bt);
+	backtrace_symbols_fd(bt, nr, fileno(stderr));
+	fprintf(stderr, "========== backtrace ==========\n");
+}
+
+int __exc_throw(int ex, void *data, int size, const char *file, int line)
+{
+	extern char *program_invocation_short_name;
+
+	exception_frame_t *frame = __exc_get_frame();
+
+	if (frame == NULL) {
+		__exc_backtrace
+		    ("*** UNHANDLED EXCEPTION *** -- %s: %s(%d) ex=%d\n\n",
+		     program_invocation_short_name, file, line, ex);
+		abort();
+	}
+
+	if (frame->magic != EXC_MAGIC) {
+		__exc_backtrace
+		    ("*** CORRUPTED EXCEPTION FRAME *** -- %s: %s(%d) ex=%d\n\n",
+		     program_invocation_short_name, file, line, ex);
+		abort();
+	}
+
+	frame->exc.file = file;
+	frame->exc.line = line;
+
+	frame->exc.data = data;
+	frame->exc.size = size;
+
+	longjmp(frame->jmp, ex);
+
+	return -1;
+}
+
+int __exc_rethrow(int ex, void *data, int size, const char *file, int line)
+{
+	exception_frame_t *frame = __exc_get_frame();
+
+	if (frame != NULL)
+		__exc_set_frame(frame->prev);
+
+	return __exc_throw(ex, data, size, file, line);
+}
+
+const char *__exc_name(int exc)
+{
+	return (exc < 0 || EXC_LAST <= exc) ? NULL : exception_name[exc];
+}
+
+__constructor void __exc_ctor(void)
+{
+	__exc_init();
+}
-- 
cgit v1.2.1