src/vm/jit/dseg.c

   1 /* src/vm/jit/dseg.c - data segment handling stuff
   2
   3    Copyright (C) 1996-2005, 2006 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    Contact: cacao@cacaojvm.org
  26
  27    Authors: Reinhard Grafl
  28             Andreas  Krall
  29
  30    Changes: Christian Thalinger
  31             Joseph Wenninger
  32
  33    $Id: dseg.c 4357 2006-01-22 23:33:38Z twisti $
  34
  35 */
  36
  37
  38 #include "config.h"
  39
  40 #include "vm/types.h"
  41
  42 #include "mm/memory.h"
  43 #include "vm/jit/codegen-common.h"
  44
  45
  46 /* desg_increase ***************************************************************
  47
  48    Doubles data area.
  49
  50 *******************************************************************************/
  51
  52 void dseg_increase(codegendata *cd)
  53 {
  54         u1 *newstorage;
  55
  56         newstorage = DMNEW(u1, cd->dsegsize * 2);
  57
  58         MCOPY(newstorage + cd->dsegsize, cd->dsegtop - cd->dsegsize, u1,
  59                   cd->dsegsize);
  60
  61         cd->dsegtop   = newstorage;
  62         cd->dsegsize *= 2;
  63         cd->dsegtop  += cd->dsegsize;
  64 }
  65
  66
  67 s4 dseg_adds4_increase(codegendata *cd, s4 value)
  68 {
  69         dseg_increase(cd);
  70
  71         *((s4 *) (cd->dsegtop - cd->dseglen)) = value;
  72
  73         return -(cd->dseglen);
  74 }
  75
  76
  77 s4 dseg_adds4(codegendata *cd, s4 value)
  78 {
  79         s4 *dataptr;
  80
  81         cd->dseglen += 4;
  82         dataptr = (s4 *) (cd->dsegtop - cd->dseglen);
  83
  84         if (cd->dseglen > cd->dsegsize)
  85                 return dseg_adds4_increase(cd, value);
  86
  87         *dataptr = value;
  88
  89         return -(cd->dseglen);
  90 }
  91
  92
  93 s4 dseg_adds8_increase(codegendata *cd, s8 value)
  94 {
  95         dseg_increase(cd);
  96
  97         *((s8 *) (cd->dsegtop - cd->dseglen)) = value;
  98
  99         return -(cd->dseglen);
 100 }
 101
 102
 103 s4 dseg_adds8(codegendata *cd, s8 value)
 104 {
 105         s8 *dataptr;
 106
 107         cd->dseglen = ALIGN(cd->dseglen + 8, 8);
 108         dataptr = (s8 *) (cd->dsegtop - cd->dseglen);
 109
 110         if (cd->dseglen > cd->dsegsize)
 111                 return dseg_adds8_increase(cd, value);
 112
 113         *dataptr = value;
 114
 115         return -(cd->dseglen);
 116 }
 117
 118
 119 s4 dseg_addfloat_increase(codegendata *cd, float value)
 120 {
 121         dseg_increase(cd);
 122
 123         *((float *) (cd->dsegtop - cd->dseglen)) = value;
 124
 125         return -(cd->dseglen);
 126 }
 127
 128
 129 s4 dseg_addfloat(codegendata *cd, float value)
 130 {
 131         float *dataptr;
 132
 133         cd->dseglen += 4;
 134         dataptr = (float *) (cd->dsegtop - cd->dseglen);
 135
 136         if (cd->dseglen > cd->dsegsize)
 137                 return dseg_addfloat_increase(cd, value);
 138
 139         *dataptr = value;
 140
 141         return -(cd->dseglen);
 142 }
 143
 144
 145 s4 dseg_adddouble_increase(codegendata *cd, double value)
 146 {
 147         dseg_increase(cd);
 148
 149         *((double *) (cd->dsegtop - cd->dseglen)) = value;
 150
 151         return -(cd->dseglen);
 152 }
 153
 154
 155 s4 dseg_adddouble(codegendata *cd, double value)
 156 {
 157         double *dataptr;
 158
 159         cd->dseglen = ALIGN(cd->dseglen + 8, 8);
 160         dataptr = (double *) (cd->dsegtop - cd->dseglen);
 161
 162         if (cd->dseglen > cd->dsegsize)
 163                 return dseg_adddouble_increase(cd, value);
 164
 165         *dataptr = value;
 166
 167         return -(cd->dseglen);
 168 }
 169
 170
 171 void dseg_addtarget(codegendata *cd, basicblock *target)
 172 {
 173         jumpref *jr;
 174
 175         jr = DNEW(jumpref);
 176
 177         jr->tablepos = dseg_addaddress(cd, NULL);
 178         jr->target   = target;
 179         jr->next     = cd->jumpreferences;
 180
 181         cd->jumpreferences = jr;
 182 }
 183
 184
 185 /* dseg_addlinenumbertablesize *************************************************
 186
 187    XXX
 188
 189 *******************************************************************************/
 190
 191 void dseg_addlinenumbertablesize(codegendata *cd)
 192 {
 193 #if SIZEOF_VOID_P == 8
 194         /* 4-byte ALIGNMENT PADDING */
 195
 196         dseg_adds4(cd, 0);
 197 #endif
 198
 199         cd->linenumbertablesizepos  = dseg_addaddress(cd, NULL);
 200         cd->linenumbertablestartpos = dseg_addaddress(cd, NULL);
 201
 202 #if SIZEOF_VOID_P == 8
 203         /* 4-byte ALIGNMENT PADDING */
 204
 205         dseg_adds4(cd, 0);
 206 #endif
 207 }
 208
 209
 210 void dseg_addlinenumber(codegendata *cd, u2 linenumber, u1 *mcodeptr)
 211 {
 212         linenumberref *lr;
 213
 214         lr = DNEW(linenumberref);
 215
 216         lr->linenumber = linenumber;
 217         lr->tablepos   = 0;
 218         lr->targetmpc  = mcodeptr - cd->mcodebase;
 219         lr->next       = cd->linenumberreferences;
 220
 221         cd->linenumberreferences = lr;
 222 }
 223
 224
 225 /* dseg_createlinenumbertable **************************************************
 226
 227    Creates a line number table in the data segment from the created
 228    entries in linenumberreferences.
 229
 230 *******************************************************************************/
 231
 232 void dseg_createlinenumbertable(codegendata *cd)
 233 {
 234         linenumberref *lr;
 235
 236         for (lr = cd->linenumberreferences; lr != NULL; lr = lr->next) {
 237                 lr->tablepos = dseg_addaddress(cd, NULL);
 238
 239                 if (cd->linenumbertab == 0)
 240                         cd->linenumbertab = lr->tablepos;
 241
 242                 dseg_addaddress(cd, lr->linenumber);
 243         }
 244 }
 245
 246
 247 /* dseg_adddata ****************************************************************
 248
 249    Adds a data segment reference to the codegendata.
 250
 251 *******************************************************************************/
 252
 253 #if defined(__I386__) || defined(__X86_64__) || defined(__XDSPCORE__) || defined(ENABLE_INTRP)
 254 void dseg_adddata(codegendata *cd, u1 *mcodeptr)
 255 {
 256         dataref *dr;
 257
 258         dr = DNEW(dataref);
 259
 260         dr->datapos = mcodeptr - cd->mcodebase;
 261         dr->next    = cd->datareferences;
 262
 263         cd->datareferences = dr;
 264 }
 265 #endif
 266
 267
 268 /* dseg_resolve_datareferences *************************************************
 269
 270    Resolve data segment references.
 271
 272 *******************************************************************************/
 273
 274 #if defined(__I386__) || defined(__X86_64__) || defined(__XDSPCORE__) || defined(ENABLE_INTRP)
 275 void dseg_resolve_datareferences(codegendata *cd, methodinfo *m)
 276 {
 277         dataref *dr;
 278
 279         /* data segment references resolving */
 280
 281         for (dr = cd->datareferences; dr != NULL; dr = dr->next)
 282                 *((u1 **) (m->entrypoint + dr->datapos - SIZEOF_VOID_P)) = m->entrypoint;
 283 }
 284 #endif
 285
 286
 287 /* dseg_display ****************************************************************
 288
 289    Displays the content of the methods' data segment.
 290
 291 *******************************************************************************/
 292
 293 #if !defined(NDEBUG)
 294 void dseg_display(methodinfo *m, codegendata *cd)
 295 {
 296         s4 *s4ptr;
 297         s4 i;
 298
 299         s4ptr = (s4 *) (ptrint) m->mcode;
 300
 301         printf("  --- dump of datasegment\n");
 302
 303         for (i = cd->dseglen; i > 0 ; i -= 4) {
 304 #if SIZEOF_VOID_P == 8
 305                 printf("0x%016lx:   -%6x (%6d): %8x\n",
 306                            (ptrint) s4ptr, i, i, (s4) *s4ptr);
 307 #else
 308                 printf("0x%08x:   -%6x (%6d): %8x\n",
 309                            (ptrint) s4ptr, i, i, (s4) *s4ptr);
 310 #endif
 311                 s4ptr++;
 312         }
 313
 314         printf("  --- begin of data segment: %p\n", (void *) s4ptr);
 315 }
 316 #endif /* !defined(NDEBUG) */
 317
 318
 319 /*
 320  * These are local overrides for various environment variables in Emacs.
 321  * Please do not remove this and leave it at the end of the file, where
 322  * Emacs will automagically detect them.
 323  * ---------------------------------------------------------------------
 324  * Local variables:
 325  * mode: c
 326  * indent-tabs-mode: t
 327  * c-basic-offset: 4
 328  * tab-width: 4
 329  * End:
 330  */