From 554fd8c5195424bdbcabf5de30fdc183aba391bd Mon Sep 17 00:00:00 2001 From: upstream source tree Date: Sun, 15 Mar 2015 20:14:05 -0400 Subject: obtained gcc-4.6.4.tar.bz2 from upstream website; verified gcc-4.6.4.tar.bz2.sig; imported gcc-4.6.4 source tree from verified upstream tarball. downloading a git-generated archive based on the 'upstream' tag should provide you with a source tree that is binary identical to the one extracted from the above tarball. if you have obtained the source via the command 'git clone', however, do note that line-endings of files in your working directory might differ from line-endings of the respective files in the upstream repository. --- gcc/ada/tb-ivms.c | 89 +++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 89 insertions(+) create mode 100644 gcc/ada/tb-ivms.c (limited to 'gcc/ada/tb-ivms.c') diff --git a/gcc/ada/tb-ivms.c b/gcc/ada/tb-ivms.c new file mode 100644 index 000000000..24afdb54e --- /dev/null +++ b/gcc/ada/tb-ivms.c @@ -0,0 +1,89 @@ +/**************************************************************************** + * * + * GNAT COMPILER COMPONENTS * + * * + * T R A C E B A C K - I t a n i u m / V M S * + * * + * C Implementation File * + * * + * Copyright (C) 2007, AdaCore * + * * + * GNAT is free software; you can redistribute it and/or modify it under * + * terms of the GNU General Public License as published by the Free Soft- * + * ware Foundation; either version 2, or (at your option) any later ver- * + * sion. GNAT is distributed in the hope that it will be useful, but WITH- * + * OUT 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 distributed with GNAT; see file COPYING. If not, write * + * to the Free Software Foundation, 51 Franklin Street, Fifth Floor, * + * Boston, MA 02110-1301, USA. * + * * + * As a special exception, if you link this file with other files to * + * produce an executable, this file does not by itself cause the resulting * + * executable to be covered by the GNU General Public License. This except- * + * ion does not however invalidate any other reasons why the executable * + * file might be covered by the GNU Public License. * + * * + * GNAT was originally developed by the GNAT team at New York University. * + * Extensive contributions were provided by Ada Core Technologies Inc. * + * * + ****************************************************************************/ + +/* Itanium Open/VMS implementation of backtrace. Use ICB (Invocation + Context Block) routines. */ +#include +#include + +/* Declare libicb routines. */ +extern INVO_CONTEXT_BLK *LIB$I64_CREATE_INVO_CONTEXT (void *(*)(size_t), + void (*)(void *), + int); +extern void LIB$I64_FREE_INVO_CONTEXT (INVO_CONTEXT_BLK *); +extern int LIB$I64_GET_CURR_INVO_CONTEXT(INVO_CONTEXT_BLK *); +extern int LIB$I64_GET_PREV_INVO_CONTEXT(INVO_CONTEXT_BLK *); + +/* Gcc internal headers poison malloc. So use xmalloc() when building the + compiler. */ +#ifdef IN_RTS +#define BT_MALLOC malloc +#else +#define BT_MALLOC xmalloc +#endif + +int +__gnat_backtrace (void **array, int size, + void *exclude_min, void *exclude_max, int skip_frames) +{ + INVO_CONTEXT_BLK *ctxt; + int res = 0; + int n = 0; + + /* Create the context. */ + ctxt = LIB$I64_CREATE_INVO_CONTEXT (BT_MALLOC, free, 0); + if (ctxt == NULL) + return 0; + + LIB$I64_GET_CURR_INVO_CONTEXT (ctxt); + + while (1) + { + void *pc = (void *)ctxt->libicb$ih_pc; + if (pc == (void *)0) + break; + if (ctxt->libicb$v_bottom_of_stack) + break; + if (n >= skip_frames && (pc < exclude_min || pc > exclude_max)) + { + array[res++] = (void *)(ctxt->libicb$ih_pc); + if (res == size) + break; + } + n++; + LIB$I64_GET_PREV_INVO_CONTEXT (ctxt); + } + + /* Free the context. */ + LIB$I64_FREE_INVO_CONTEXT (ctxt); + return res; +} -- cgit v1.2.3