src/vm/jit/m68k/linux/md-abi.c

   1 /* src/vm/jit/m68k/linux/md-abi.c - linux specific abi functions
   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    $Id: arch.h 5330 2006-09-05 18:43:12Z edwin $
  26
  27 */
  28
  29
  30
  31 #include "config.h"
  32
  33 #include <assert.h>
  34
  35 #include "md-abi.h"
  36
  37 #include "vm/types.h"
  38
  39 #include "vm/jit/abi.h"
  40
  41 /* Integer register description */
  42 /*                        D0,      D1,   ITMP1,   ITMP2,   ITMP3,      D5,      D6,      D7 */
  43 s4 nregdescint[] = { REG_TMP, REG_TMP, REG_RES, REG_RES, REG_RES, REG_SAV, REG_SAV, REG_SAV, REG_END };
  44
  45 const char *abi_registers_integer_name [] = { "D0", "D1", "D2", "D3", "D4", "D5", "D6", "D7" };
  46
  47 const s4 abi_registers_integer_argument[]       ;
  48 const s4 abi_registers_integer_saved[]          = {5,6,7};
  49 const s4 abi_registers_integer_temporary[]      = {0,1};
  50
  51 /* Address register description */
  52 /* A6 is used as framepointer by native code, so be sure it is REG_RES */
  53 /*                        A0,      A1,   ATMP1,   ATMP2,   ATMP3,      A5,  REG_FP, REG_SP */
  54 #if 0
  55 s4 nregdescadr[] = { REG_TMP, REG_TMP, REG_RES, REG_RES, REG_RES, REG_SAV, REG_RES, REG_RES, REG_END };
  56 #else
  57 s4 nregdescadr[] = { REG_TMP, REG_TMP, REG_RES, REG_RES, REG_RES, REG_SAV, REG_SAV, REG_RES, REG_END };
  58 #endif
  59
  60 const char *abi_registers_address_name [] = { "A0", "A1", "A2", "A3", "A4", "A5", "A6", "A7" };
  61
  62 const s4 abi_registers_address_argument[]       ;
  63 #if 0
  64 const s4 abi_registers_address_saved[]          = {5};
  65 #else
  66 const s4 abi_registers_address_saved[]          = {5,6};
  67 #endif
  68 const s4 abi_registers_address_temporary[]      = {0,1};
  69
  70
  71 /* Floatingpoint register description */
  72 /*                        F0,      F1,   FTMP1,   FTMP2,   FTMP3,      F5,      F6,      F7 */
  73 #if !defined(ENABLE_SOFTFLOAT)
  74 s4 nregdescfloat[] = { REG_TMP, REG_TMP, REG_RES, REG_RES, REG_RES, REG_SAV, REG_SAV, REG_SAV, REG_END };
  75 #else
  76 s4 nregdescfloat[] = { REG_RES, REG_RES, REG_RES, REG_RES, REG_RES, REG_RES, REG_RES, REG_RES, REG_END };
  77 #endif
  78
  79 const char *abi_registers_float_name [] = { "F0", "F1", "F2", "F3", "F4", "F5", "F6", "F7" };
  80
  81 const s4 abi_registers_float_argument[]         ;
  82 const s4 abi_registers_float_saved[]            = {5,6,7};
  83 const s4 abi_registers_float_temporary[]        = {0,1};
  84
  85
  86 /* md_param_alloc_native *******************************************************
  87  *
  88  *    Pre-allocate arguments according the native ABI.
  89  *
  90  *    *******************************************************************************/
  91
  92 void md_param_alloc_native(methoddesc *md)
  93 {
  94                 /* For now use system ABI */
  95                 md_param_alloc(md);
  96 }
  97
  98
  99 /* md_param_alloc **************************************************************
 100  *
 101  *    Allocate Arguments to Stackslots according the Calling Conventions
 102  *
 103  *       --- in
 104  *       md->paramcount:           Number of arguments for this method
 105  *       md->paramtypes[].type:    Argument types
 106  *
 107  *       --- out
 108  *       md->params[].inmemory:    Argument spilled on stack
 109  *       md->params[].regoff:      Stack offset or rd->arg[int|flt]regs index
 110  *       md->memuse:               Stackslots needed for argument spilling
 111  *       md->argintreguse:         max number of integer arguments used
 112  *       md->argfltreguse:         max number of float arguments used
 113  *
 114  ********************************************************************************/
 115 void md_param_alloc(methoddesc *md)
 116 {
 117         paramdesc       *pd;
 118         s4      stacksize;
 119         s4      i;
 120
 121         pd = md->params;
 122         stacksize = 0;
 123
 124         for (i=0; i<md->paramcount; i++, pd++)  {
 125                 pd->inmemory = true;
 126                 pd->regoff = stacksize * 4;
 127                 stacksize += IS_2_WORD_TYPE(md->paramtypes[i].type) ? 2:1;
 128         }
 129
 130         md->memuse = stacksize;
 131         md->argintreguse = 0;
 132         md->argfltreguse = 0;
 133         md->argadrreguse = 0;
 134 }
 135
 136 /* md_return_alloc *************************************************************
 137
 138    Precolor the Java Stackelement containing the Return Value, if
 139    possible. We stick to the abi as closed as possible and therefore use
 140    %d0 for all word types %d0-%d1 for 2 word types. %f0-%f1 for floats/doubles
 141 *******************************************************************************/
 142
 143 void md_return_alloc(jitdata *jd, stackptr stackslot)
 144 {
 145
 146 /* The Problem: %a0, %a1, %d0 and %d1 are scratch registers by platform abi
 147  * so they are defined REG_TMP, which i think is correct. But a preallocated
 148  * register has to be REG_SAV it seems. One could make theese REG_SAV but
 149  * then there would be a abi mismatch with native functions...for now no
 150  * return_alloc.*/
 151
 152 #if 0
 153         methodinfo   *m;
 154         registerdata *rd;
 155         methoddesc   *md;
 156
 157         /* get required compiler data */
 158
 159         m  = jd->m;
 160         rd = jd->rd;
 161
 162         md = m->parseddesc;
 163
 164         /* XXX wondering if this is correct */
 165         assert(rd->argintreguse == 0);
 166         assert(rd->argadrreguse == 0);
 167         assert(rd->argfltreguse == 0);
 168
 169         VAR(stackslot->varnum)->flags = PREALLOC;
 170         switch (md->returntype.type)    {
 171                 case TYPE_INT:
 172                 case TYPE_ADR:
 173                         VAR(stackslot->varnum)->vv.regoff = REG_RESULT;
 174                         break;
 175                 case TYPE_LNG:
 176                         VAR(stackslot->varnum)->vv.regoff = REG_RESULT_PACKED;
 177                         break;
 178
 179                 case TYPE_FLT:
 180                 case TYPE_DBL:
 181                         VAR(stackslot->varnum)->vv.regoff = REG_FRESULT;
 182                         break;
 183
 184                 default: assert(0);
 185         }
 186 #endif
 187
 188 }
 189
 190 /*
 191  * These are local overrides for various environment variables in Emacs.
 192  * Please do not remove this and leave it at the end of the file, where
 193  * Emacs will automagically detect them.
 194  * ---------------------------------------------------------------------
 195  * Local variables:
 196  * mode: c
 197  * indent-tabs-mode: t
 198  * c-basic-offset: 4
 199  * tab-width: 4
 200  * End:
 201  * vim:noexpandtab:sw=4:ts=4:
 202  */