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