gcc/java/javaop.h

   1 /* Utility macros to handle Java(TM) byte codes.
   2
   3    Copyright (C) 1996, 1998, 1999, 2003 Free Software Foundation, Inc.
   4
   5 This file is part of GCC.
   6
   7 GCC is free software; you can redistribute it and/or modify
   8 it under the terms of the GNU General Public License as published by
   9 the Free Software Foundation; either version 2, or (at your option)
  10 any later version.
  11
  12 GCC is distributed in the hope that it will be useful,
  13 but WITHOUT ANY WARRANTY; without even the implied warranty of
  14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15 GNU General Public License for more details.
  16
  17 You should have received a copy of the GNU General Public License
  18 along with GCC; see the file COPYING.  If not, write to
  19 the Free Software Foundation, 59 Temple Place - Suite 330,
  20 Boston, MA 02111-1307, USA.
  21
  22 Java and all Java-based marks are trademarks or registered trademarks
  23 of Sun Microsystems, Inc. in the United States and other countries.
  24 The Free Software Foundation is independent of Sun Microsystems, Inc.  */
  25
  26 /* Written by Per Bothner <bothner@cygnus.com>, February 1996. */
  27
  28 #ifndef GCC_JAVAOP_H
  29 #define GCC_JAVAOP_H
  30
  31 typedef unsigned char   uint8;
  32 #ifndef int16
  33 #define int16 short
  34 #endif
  35 typedef unsigned int16  uint16;
  36
  37 #ifndef int32
  38 #define int32 long
  39 #endif
  40 typedef unsigned int32  uint32;
  41
  42 /* A signed 64-bit (or more) integral type, suitable for Java's 'long'.  */
  43 #ifndef int64
  44 #define int64 long long
  45 #endif
  46 /* An unsigned 64-bit (or more) integral type, same length as int64. */
  47 #ifndef uint64
  48 #define uint64 unsigned int64
  49 #endif
  50
  51 typedef uint16                  jchar;
  52 typedef signed char             jbyte;
  53 typedef int16                   jshort;
  54 typedef int32                   jint;
  55 typedef int64                   jlong;
  56 typedef void*                   jref;
  57
  58 /* A 32-bit IEEE single-precision float. */
  59 #ifndef jfloat
  60 #define jfloat float
  61 #endif
  62
  63 /* A 32-bit IEEE double-precision float. */
  64 #ifndef jdouble
  65 #define jdouble double
  66 #endif
  67
  68 union Word {
  69   jint i;
  70   jfloat f;
  71   void *p;
  72 };
  73
  74 /* A jword is an unsigned integral type big enough for a 32-bit jint
  75    or jfloat *or* a pointer.  It is the type appropriate for stack
  76    locations and local variables in a Java interpreter. */
  77
  78
  79 #ifndef jword
  80 #define jword uint32
  81 #endif
  82
  83 #ifndef IMMEDIATE_u1
  84 #define IMMEDIATE_u1 (PC++, CHECK_PC_IN_RANGE(PC), BCODE[PC-1])
  85 #endif
  86 #ifndef IMMEDIATE_s1
  87 #define IMMEDIATE_s1 (PC++, CHECK_PC_IN_RANGE(PC), (signed char)BCODE[PC-1])
  88 #endif
  89 #ifndef IMMEDIATE_s2
  90 #define IMMEDIATE_s2 (PC+=2, CHECK_PC_IN_RANGE(PC), \
  91   (signed char) BCODE[PC-2] * 256 + BCODE[PC-1])
  92 #endif
  93 #ifndef IMMEDIATE_u2
  94 #define IMMEDIATE_u2 (PC+=2, CHECK_PC_IN_RANGE(PC),\
  95   (BCODE[PC-2] * 256 + BCODE[PC-1]))
  96 #endif
  97 #ifndef IMMEDIATE_s4
  98 #define IMMEDIATE_s4 (PC+=4, CHECK_PC_IN_RANGE(PC), \
  99   (WORD_TO_INT((BCODE[PC-4] << 24) | (BCODE[PC-3] << 16) \
 100          | (BCODE[PC-2] << 8) | (BCODE[PC-1]))))
 101 #endif
 102
 103 static inline jfloat
 104 WORD_TO_FLOAT(jword w)
 105 { union Word wu;
 106   wu.i = w;
 107   return wu.f;
 108 }
 109
 110 /* Sign extend w.  If the host on which this cross-compiler runs uses
 111    a 64-bit type for jword the appropriate sign extension is
 112    performed; if it's a 32-bit type the arithmetic does nothing but is
 113    harmless.  */
 114 static inline jint
 115 WORD_TO_INT(jword w)
 116 {
 117   jint n = w & 0xffffffff; /* Mask lower 32 bits.  */
 118   n ^= (jint)1 << 31;
 119   n -= (jint)1 << 31; /* Sign extend lower 32 bits to upper.  */
 120   return n;
 121 }
 122
 123 static inline jlong
 124 WORDS_TO_LONG(jword hi, jword lo)
 125 {
 126   return ((jlong) hi << 32) | ((jlong)lo & (((jlong)1 << 32) -1));
 127 }
 128
 129 union DWord {
 130   jdouble d;
 131   jlong l;
 132   jword w[2];
 133 };
 134
 135 static inline jdouble
 136 WORDS_TO_DOUBLE(jword hi, jword lo)
 137 { union DWord wu;
 138 #if (1 == HOST_FLOAT_WORDS_BIG_ENDIAN)
 139   wu.l = WORDS_TO_LONG(lo, hi);
 140 #else
 141   wu.l = WORDS_TO_LONG(hi, lo);
 142 #endif
 143   return wu.d;
 144 }
 145
 146 /* If PREFIX_CHAR is the first character of the Utf8 encoding of a character,
 147    return the number of bytes taken by the encoding.
 148    Return -1 for a continuation character.  */
 149 #define UT8_CHAR_LENGTH(PREFIX_CHAR) \
 150   ((unsigned char)(PREFIX_CHAR) < 128 ? 1 \
 151    : ((PREFIX_CHAR) & 0x40) == 0 ? -1 \
 152    : ((PREFIX_CHAR) & 0x20) == 0 ? 2 \
 153    : ((PREFIX_CHAR) & 0x10) == 0 ? 3 \
 154    : ((PREFIX_CHAR) & 0x08) == 0 ? 4 : 5)
 155
 156 #endif /* ! GCC_JAVAOP_H */