src/vm/jit/m68k/md.h

   1 /*      src/vm/jit/m68k/md.h
   2
   3    Copyright (C) 1996-2005, 2006, 2007 R. Grafl, A. Krall, C. Kruegel,
   4    C. Oates, R. Obermaisser, M. Platter, M. Probst, S. Ring,
   5    E. Steiner, C. Thalinger, D. Thuernbeck, P. Tomsich, C. Ullrich,
   6    J. Wenninger, 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., 51 Franklin Street, Fifth Floor, Boston, MA
  23    02110-1301, USA.
  24
  25 */
  26
  27
  28 #ifndef _VM_JIT_M68K_MD_H
  29 #define _VM_JIT_M68K_MD_H
  30
  31 #include "config.h"
  32
  33 #include <assert.h>
  34 #include <stdint.h>
  35
  36 #include "vm/jit/codegen-common.hpp"
  37 #include "vm/jit/methodtree.h"
  38
  39
  40 /**
  41  * Returns the size (in bytes) of the current stackframe, specified by
  42  * the passed codeinfo structure.
  43  */
  44 inline static int32_t md_stacktrace_get_framesize(codeinfo* code)
  45 {
  46         // Check for the asm_vm_call_method special case.
  47         if (code == NULL)
  48                 return 0;
  49
  50         // On M68K we use 8-byte stackslots.
  51 #error Verify the below line, then remove this error!
  52         return code->stackframesize * 8;
  53 }
  54
  55
  56 /* md_stacktrace_get_returnaddress *********************************************
  57
  58    Returns the return address of the current stackframe, specified by
  59    the passed stack pointer and the stack frame size.
  60
  61 *******************************************************************************/
  62
  63 void *md_stacktrace_get_returnaddress(void *sp, int32_t stackframesize);
  64
  65
  66 /* md_codegen_get_pv_from_pc ***************************************************
  67
  68    On this architecture just a wrapper function to methodtree_find.
  69
  70 *******************************************************************************/
  71
  72 inline static void *md_codegen_get_pv_from_pc(void *ra)
  73 {
  74         void *pv;
  75
  76         pv = methodtree_find(ra);
  77
  78         return pv;
  79 }
  80
  81
  82 /* XXX i can't find a definition of cacheflush in any installed header files but i can find the symbol in libc */
  83 /* lets extract the signature from the assembler code*/
  84 /*
  85     000e7158 <cacheflush>:
  86     e7158:       707b            moveq #123,%d0
  87     e715a:       2f04            movel %d4,%sp@-
  88     e715c:       282f 0014       movel %sp@(20),%d4                     arg
  89     e7160:       2243            moveal %d3,%a1
  90     e7162:       262f 0010       movel %sp@(16),%d3                     arg
  91     e7166:       2042            moveal %d2,%a0
  92     e7168:       242f 000c       movel %sp@(12),%d2                     arg
  93     e716c:       222f 0008       movel %sp@(8),%d1                      arg
  94     e7170:       4e40            trap #0                                traps into system i guess
  95     e7172:       2408            movel %a0,%d2
  96     e7174:       2609            movel %a1,%d3
  97     e7176:       281f            movel %sp@+,%d4
  98     e7178:       223c ffff f001  movel #-4095,%d1
  99     e717e:       b081            cmpl %d1,%d0
 100     e7180:       6402            bccs e7184 <cacheflush+0x2c>
 101     e7182:       4e75            rts
 102     e7184:       4480            negl %d0
 103     e7186:       2f00            movel %d0,%sp@-
 104     e7188:       61ff fff3 82e2  bsrl 1f46c <D_MAX_EXP+0x1ec6d>
 105     e718e:       209f            movel %sp@+,%a0@
 106     e7190:       70ff            moveq #-1,%d0
 107     e7192:       2040            moveal %d0,%a0
 108     e7194:       4e75            rts
 109     e7196:       4e75            rts
 110                                                                         */
 111
 112 /* seems to have 4 arguments */
 113 /* best guess: it is this syscall */
 114 /* asmlinkage int sys_cacheflush (unsigned long addr, int scope, int cache, unsigned long len) */
 115 /* kernel 2.6.10 with freescale patches (the one I develop against) needs a patch of */
 116 /* arch/m68k/kernel/sys_m68k.c(sys_cacheflush) */
 117 /* evil hack: */
 118 /*
 119 void DcacheFlushInvalidateCacheBlock(void *start, unsigned long size);
 120 void IcacheInvalidateCacheBlock(void *start, unsigned long size);
 121
 122 asmlinkage int
 123 sys_cacheflush (unsigned long addr, int scope, int cache, unsigned long len)
 124 {
 125         lock_kernel();
 126         DcacheFlushInvalidateCacheBlock(addr, len);
 127         IcacheInvalidateCacheBlock(addr, len);
 128         unlock_kernel();
 129         return 0;
 130 }
 131 */
 132
 133 extern int cacheflush(unsigned long addr, int scope, int cache, unsigned long len);
 134
 135 #include "asm/cachectl.h"       /* found more traces of the cacheflush function */
 136 #include "errno.h"
 137
 138
 139 /* md_cacheflush ***************************************************************
 140
 141    Calls the system's function to flush the instruction and data
 142    cache.
 143
 144 *******************************************************************************/
 145
 146 inline static void md_cacheflush(void *addr, int nbytes)
 147 {
 148         cacheflush((unsigned long)addr, FLUSH_SCOPE_PAGE, FLUSH_CACHE_BOTH, nbytes);
 149 }
 150
 151
 152 /* md_icacheflush **************************************************************
 153
 154    Calls the system's function to flush the instruction cache.
 155
 156 *******************************************************************************/
 157
 158 inline static void md_icacheflush(void *addr, int nbytes)
 159 {
 160         cacheflush((unsigned long)addr, FLUSH_SCOPE_LINE, FLUSH_CACHE_INSN, nbytes);
 161 }
 162
 163
 164 /* md_dcacheflush **************************************************************
 165
 166    Calls the system's function to flush the data cache.
 167
 168 *******************************************************************************/
 169
 170 inline static void md_dcacheflush(void *addr, int nbytes)
 171 {
 172         cacheflush((unsigned long)addr, FLUSH_SCOPE_PAGE, FLUSH_CACHE_DATA, nbytes);
 173 }
 174
 175 #endif /* _VM_JIT_M68K_MD_H */
 176
 177
 178 /*
 179  * These are local overrides for various environment variables in Emacs.
 180  * Please do not remove this and leave it at the end of the file, where
 181  * Emacs will automagically detect them.
 182  * ---------------------------------------------------------------------
 183  * Local variables:
 184  * mode: c
 185  * indent-tabs-mode: t
 186  * c-basic-offset: 4
 187  * tab-width: 4
 188  * End:
 189  * vim:noexpandtab:sw=4:ts=4:
 190  */