URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [ada/] [tb-ivms.c] - Rev 281
Compare with Previous | Blame | View Log
/**************************************************************************** * * * 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 <stdlib.h> #include <vms/libicb.h> /* 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; }