src/vm/jit/alpha/md.c

   1 /* src/vm/jit/alpha/md.c - machine dependent Alpha functions
   2
   3    Copyright (C) 1996-2005 R. Grafl, A. Krall, C. Kruegel, C. Oates,
   4    R. Obermaisser, M. Platter, M. Probst, S. Ring, E. Steiner,
   5    C. Thalinger, D. Thuernbeck, P. Tomsich, C. Ullrich, J. Wenninger,
   6    Institut f. Computersprachen - TU Wien
   7
   8    This file is part of CACAO.
   9
  10    This program is free software; you can redistribute it and/or
  11    modify it under the terms of the GNU General Public License as
  12    published by the Free Software Foundation; either version 2, or (at
  13    your option) any later version.
  14
  15    This program is distributed in the hope that it will be useful, but
  16    WITHOUT ANY WARRANTY; without even the implied warranty of
  17    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  18    General Public License for more details.
  19
  20    You should have received a copy of the GNU General Public License
  21    along with this program; if not, write to the Free Software
  22    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
  23    02111-1307, USA.
  24
  25    Contact: cacao@complang.tuwien.ac.at
  26
  27    Authors: Andreas Krall
  28             Reinhard Grafl
  29
  30    Changes: Joseph Wenninger
  31             Christian Thalinger
  32
  33    $Id: md.c 2992 2005-07-11 21:52:07Z twisti $
  34
  35 */
  36
  37
  38 #include <assert.h>
  39 #include <ucontext.h>
  40
  41 #include "config.h"
  42
  43 #include "vm/jit/alpha/asmoffsets.h"
  44 #include "vm/jit/alpha/md-abi.h"
  45 #include "vm/jit/alpha/types.h"
  46
  47 #include "vm/exceptions.h"
  48 #include "vm/stringlocal.h"
  49 #include "vm/jit/asmpart.h"
  50 #include "vm/jit/stacktrace.h"
  51
  52
  53 /* md_init *********************************************************************
  54
  55    Do some machine dependent initialization.
  56
  57 *******************************************************************************/
  58
  59 void md_init(void)
  60 {
  61 #if 0
  62         /* XXX TWISTI: do we really need this? fptest's seem to work fine */
  63
  64 #if defined(__LINUX__)
  65 /* Linux on Digital Alpha needs an initialisation of the ieee floating point
  66         control for IEEE compliant arithmetic (option -mieee of GCC). Under
  67         Digital Unix this is done automatically.
  68 */
  69
  70 #include <asm/fpu.h>
  71
  72 extern unsigned long ieee_get_fp_control();
  73 extern void ieee_set_fp_control(unsigned long fp_control);
  74
  75         /* initialize floating point control */
  76
  77         ieee_set_fp_control(ieee_get_fp_control()
  78                                                 & ~IEEE_TRAP_ENABLE_INV
  79                                                 & ~IEEE_TRAP_ENABLE_DZE
  80 /*                                              & ~IEEE_TRAP_ENABLE_UNF   we dont want underflow */
  81                                                 & ~IEEE_TRAP_ENABLE_OVF);
  82 #endif
  83 #endif
  84
  85         /* nothing to do */
  86 }
  87
  88
  89 /* signal_handler_sigsegv ******************************************************
  90
  91    NullPointerException signal handler for hardware null pointer check.
  92
  93 *******************************************************************************/
  94
  95 void signal_handler_sigsegv(int sig, siginfo_t *siginfo, void *_p)
  96 {
  97         ucontext_t  *_uc;
  98         mcontext_t  *_mc;
  99         u4           instr;
 100         ptrint       addr;
 101         u1          *pv;
 102         u1          *sp;
 103         functionptr  ra;
 104         functionptr  xpc;
 105
 106         _uc = (ucontext_t *) _p;
 107         _mc = &_uc->uc_mcontext;
 108
 109         instr = *((s4 *) (_mc->sc_pc));
 110         addr = _mc->sc_regs[(instr >> 16) & 0x1f];
 111
 112         if (addr == 0) {
 113                 pv  = (u1 *) _mc->sc_regs[REG_PV];
 114                 sp  = (u1 *) _mc->sc_regs[REG_SP];
 115                 ra  = (functionptr) _mc->sc_regs[REG_RA]; /* this is correct for leafs*/
 116                 xpc = (functionptr) _mc->sc_pc;
 117
 118                 _mc->sc_regs[REG_ITMP1_XPTR] =
 119                         (ptrint) stacktrace_hardware_nullpointerexception(pv, sp, ra, xpc);
 120
 121                 _mc->sc_regs[REG_ITMP2_XPC] = (ptrint) xpc;
 122                 _mc->sc_pc = (ptrint) asm_handle_exception;
 123
 124         } else {
 125                 addr += (long) ((instr << 16) >> 16);
 126
 127                 throw_cacao_exception_exit(string_java_lang_InternalError,
 128                                                                    "Segmentation fault: 0x%016lx at 0x%016lx\n",
 129                                                                    addr, _mc->sc_pc);
 130         }
 131 }
 132
 133
 134 #if defined(USE_THREADS) && defined(NATIVE_THREADS)
 135 void thread_restartcriticalsection(ucontext_t *uc)
 136 {
 137         void *critical;
 138
 139         critical = thread_checkcritical((void *) uc->uc_mcontext.sc_pc);
 140
 141         if (critical)
 142                 uc->uc_mcontext.sc_pc = (ptrint) critical;
 143 }
 144 #endif
 145
 146
 147 /* md_stacktrace_get_returnaddress *********************************************
 148
 149    Returns the return address of the current stackframe, specified by
 150    the passed stack pointer and the stack frame size.
 151
 152 *******************************************************************************/
 153
 154 functionptr md_stacktrace_get_returnaddress(u1 *sp, u4 framesize)
 155 {
 156         functionptr ra;
 157
 158         /* on Alpha the return address is located on the top of the stackframe */
 159
 160         ra = (functionptr) *((u1 **) (sp + framesize - SIZEOF_VOID_P));
 161
 162         return ra;
 163 }
 164
 165
 166 /* codegen_findmethod **********************************************************
 167
 168    Machine code:
 169
 170    6b5b4000    jsr     (pv)
 171    237affe8    lda     pv,-24(ra)
 172
 173 *******************************************************************************/
 174
 175 functionptr codegen_findmethod(functionptr pc)
 176 {
 177         u1 *ra;
 178         u1 *pv;
 179         u4  mcode;
 180         s2  offset;
 181
 182         ra = (u1 *) pc;
 183         pv = ra;
 184
 185         /* get offset of first instruction (lda) */
 186
 187         mcode = *((u4 *) ra);
 188
 189         if ((mcode >> 16) != 0x237a) {
 190                 log_text("No `lda pv,x(ra)' instruction found on return address!");
 191                 assert(0);
 192         }
 193
 194         offset = (s2) (mcode & 0x0000ffff);
 195         pv += offset;
 196
 197         /* check for second instruction (ldah) */
 198
 199         mcode = *((u4 *) (ra + 1 * 4));
 200
 201         if ((mcode >> 16) == 0x177b) {
 202                 offset = (s2) (mcode << 16);
 203                 pv += offset;
 204         }
 205
 206         return (functionptr) pv;
 207 }
 208
 209
 210 /*
 211  * These are local overrides for various environment variables in Emacs.
 212  * Please do not remove this and leave it at the end of the file, where
 213  * Emacs will automagically detect them.
 214  * ---------------------------------------------------------------------
 215  * Local variables:
 216  * mode: c
 217  * indent-tabs-mode: t
 218  * c-basic-offset: 4
 219  * tab-width: 4
 220  * End:
 221  */