00001
00002
00003
00004
00005
00006 #ifndef JRI_MD_H
00007 #define JRI_MD_H
00008
00009 #include <assert.h>
00010
00011 #ifdef __cplusplus
00012 extern "C" {
00013 #endif
00014
00015 #if defined(XP_PC) || defined(_WINDOWS) || defined(WIN32) || defined(_WIN32)
00016 # include <windows.h>
00017 # if defined(_MSC_VER)
00018 # if defined(WIN32) || defined(_WIN32)
00019 # define JRI_PUBLIC_API(ResultType) _declspec(dllexport) ResultType
00020 # define JRI_CALLBACK
00021 # else
00022 # if defined(_WINDLL)
00023 # define JRI_PUBLIC_API(ResultType) ResultType __cdecl __export __loadds
00024 # define JRI_CALLBACK __loadds
00025 # else
00026 # define JRI_PUBLIC_API(ResultType) ResultType __cdecl __export
00027 # define JRI_CALLBACK __export
00028 # endif
00029 # endif
00030 # elif defined(__BORLANDC__)
00031 # if defined(WIN32) || defined(_WIN32)
00032 # define JRI_PUBLIC_API(ResultType) __export ResultType
00033 # define JRI_CALLBACK
00034 # else
00035 # define JRI_PUBLIC_API(ResultType) ResultType _cdecl _export _loadds
00036 # define JRI_CALLBACK _loadds
00037 # endif
00038 # else
00039 # error Unsupported PC development environment.
00040 # endif
00041 # ifndef IS_LITTLE_ENDIAN
00042 # define IS_LITTLE_ENDIAN
00043 # endif
00044
00045 #elif macintosh || Macintosh || THINK_C
00046 # if defined(__MWERKS__)
00047 # if !__option(enumsalwaysint)
00048 # error You need to define 'Enums Always Int' for your project.
00049 # endif
00050 # if defined(GENERATING68K) && !GENERATINGCFM
00051 # if !__option(fourbyteints)
00052 # error You need to define 'Struct Alignment: 68k' for your project.
00053 # endif
00054 # endif
00055 # elif defined(__SC__)
00056 # error What are the Symantec defines? (warren@netscape.com)
00057 # elif macintosh && applec
00058 # error Please upgrade to the latest MPW compiler (SC).
00059 # else
00060 # error Unsupported Mac development environment.
00061 # endif
00062 # define JRI_PUBLIC_API(ResultType) ResultType
00063 # define JRI_CALLBACK
00064
00065 #else
00066 # define JRI_PUBLIC_API(ResultType) ResultType
00067 # define JRI_CALLBACK
00068 #endif
00069
00070 #ifndef FAR
00071 #define FAR
00072 #endif
00073
00074 typedef unsigned char jbool;
00075 typedef char jbyte;
00076 typedef short jchar;
00077 typedef short jshort;
00078 #ifdef IS_64
00079 typedef unsigned int juint;
00080 typedef int jint;
00081 #else
00082 typedef unsigned long juint;
00083 typedef long jint;
00084 #endif
00085 typedef float jfloat;
00086 typedef double jdouble;
00087
00088 typedef juint jsize;
00089
00090 #define JRI_BIT(n) ((juint)1 << (n))
00091 #define JRI_BITMASK(n) (JRI_BIT(n) - 1)
00092
00093 #ifdef HAVE_LONG_LONG
00094
00095 #if !(defined(WIN32) || defined(_WIN32))
00096 typedef long long jlong;
00097 typedef unsigned long long julong;
00098
00099 #define jlong_MAXINT 0x7fffffffffffffffLL
00100 #define jlong_MININT 0x8000000000000000LL
00101 #define jlong_ZERO 0x0LL
00102
00103 #else
00104 typedef LONGLONG jlong;
00105 typedef DWORDLONG julong;
00106
00107 #define jlong_MAXINT 0x7fffffffffffffffi64
00108 #define jlong_MININT 0x8000000000000000i64
00109 #define jlong_ZERO 0x0i64
00110
00111 #endif
00112
00113 #define jlong_IS_ZERO(a) ((a) == 0)
00114 #define jlong_EQ(a, b) ((a) == (b))
00115 #define jlong_NE(a, b) ((a) != (b))
00116 #define jlong_GE_ZERO(a) ((a) >= 0)
00117 #define jlong_CMP(a, op, b) ((a) op (b))
00118
00119 #define jlong_AND(r, a, b) ((r) = (a) & (b))
00120 #define jlong_OR(r, a, b) ((r) = (a) | (b))
00121 #define jlong_XOR(r, a, b) ((r) = (a) ^ (b))
00122 #define jlong_OR2(r, a) ((r) = (r) | (a))
00123 #define jlong_NOT(r, a) ((r) = ~(a))
00124
00125 #define jlong_NEG(r, a) ((r) = -(a))
00126 #define jlong_ADD(r, a, b) ((r) = (a) + (b))
00127 #define jlong_SUB(r, a, b) ((r) = (a) - (b))
00128
00129 #define jlong_MUL(r, a, b) ((r) = (a) * (b))
00130 #define jlong_DIV(r, a, b) ((r) = (a) / (b))
00131 #define jlong_MOD(r, a, b) ((r) = (a) % (b))
00132
00133 #define jlong_SHL(r, a, b) ((r) = (a) << (b))
00134 #define jlong_SHR(r, a, b) ((r) = (a) >> (b))
00135 #define jlong_USHR(r, a, b) ((r) = (julong)(a) >> (b))
00136 #define jlong_ISHL(r, a, b) ((r) = ((jlong)(a)) << (b))
00137
00138 #define jlong_L2I(i, l) ((i) = (int)(l))
00139 #define jlong_L2UI(ui, l) ((ui) =(unsigned int)(l))
00140 #define jlong_L2F(f, l) ((f) = (l))
00141 #define jlong_L2D(d, l) ((d) = (l))
00142
00143 #define jlong_I2L(l, i) ((l) = (i))
00144 #define jlong_UI2L(l, ui) ((l) = (ui))
00145 #define jlong_F2L(l, f) ((l) = (f))
00146 #define jlong_D2L(l, d) ((l) = (d))
00147
00148 #define jlong_UDIVMOD(qp, rp, a, b) \
00149 (*(qp) = ((julong)(a) / (b)), \
00150 *(rp) = ((julong)(a) % (b)))
00151
00152 #else
00153
00154 typedef struct {
00155 #ifdef IS_LITTLE_ENDIAN
00156 juint lo, hi;
00157 #else
00158 juint hi, lo;
00159 #endif
00160 } jlong;
00161 typedef jlong julong;
00162
00163 extern jlong jlong_MAXINT, jlong_MININT, jlong_ZERO;
00164
00165 #define jlong_IS_ZERO(a) (((a).hi == 0) && ((a).lo == 0))
00166 #define jlong_EQ(a, b) (((a).hi == (b).hi) && ((a).lo == (b).lo))
00167 #define jlong_NE(a, b) (((a).hi != (b).hi) || ((a).lo != (b).lo))
00168 #define jlong_GE_ZERO(a) (((a).hi >> 31) == 0)
00169
00170 #define jlong_CMP(a, op, b) (((int32)(a).hi op (int32)(b).hi) || \
00171 (((a).hi == (b).hi) && ((a).lo op (b).lo)))
00172 #define jlong_UCMP(a, op, b) (((a).hi op (b).hi) || \
00173 (((a).hi == (b).hi) && ((a).lo op (b).lo)))
00174
00175 #define jlong_AND(r, a, b) ((r).lo = (a).lo & (b).lo, \
00176 (r).hi = (a).hi & (b).hi)
00177 #define jlong_OR(r, a, b) ((r).lo = (a).lo | (b).lo, \
00178 (r).hi = (a).hi | (b).hi)
00179 #define jlong_XOR(r, a, b) ((r).lo = (a).lo ^ (b).lo, \
00180 (r).hi = (a).hi ^ (b).hi)
00181 #define jlong_OR2(r, a) ((r).lo = (r).lo | (a).lo, \
00182 (r).hi = (r).hi | (a).hi)
00183 #define jlong_NOT(r, a) ((r).lo = ~(a).lo, \
00184 (r).hi = ~(a).hi)
00185
00186 #define jlong_NEG(r, a) ((r).lo = -(int32)(a).lo, \
00187 (r).hi = -(int32)(a).hi - ((r).lo != 0))
00188 #define jlong_ADD(r, a, b) { \
00189 jlong _a, _b; \
00190 _a = a; _b = b; \
00191 (r).lo = _a.lo + _b.lo; \
00192 (r).hi = _a.hi + _b.hi + ((r).lo < _b.lo); \
00193 }
00194
00195 #define jlong_SUB(r, a, b) { \
00196 jlong _a, _b; \
00197 _a = a; _b = b; \
00198 (r).lo = _a.lo - _b.lo; \
00199 (r).hi = _a.hi - _b.hi - (_a.lo < _b.lo); \
00200 } \
00201
00202 #define jlong_MUL(r, a, b) { \
00203 jlong _a, _b; \
00204 _a = a; _b = b; \
00205 jlong_MUL32(r, _a.lo, _b.lo); \
00206 (r).hi += _a.hi * _b.lo + _a.lo * _b.hi; \
00207 }
00208
00209 #define _jlong_lo16(a) ((a) & JRI_BITMASK(16))
00210 #define _jlong_hi16(a) ((a) >> 16)
00211
00212 #define jlong_MUL32(r, a, b) { \
00213 juint _a1, _a0, _b1, _b0, _y0, _y1, _y2, _y3; \
00214 _a1 = _jlong_hi16(a), _a0 = _jlong_lo16(a); \
00215 _b1 = _jlong_hi16(b), _b0 = _jlong_lo16(b); \
00216 _y0 = _a0 * _b0; \
00217 _y1 = _a0 * _b1; \
00218 _y2 = _a1 * _b0; \
00219 _y3 = _a1 * _b1; \
00220 _y1 += _jlong_hi16(_y0); \
00221 _y1 += _y2; \
00222 if (_y1 < _y2) _y3 += 1 << 16; \
00223 (r).lo = (_jlong_lo16(_y1) << 16) + _jlong_lo16(_y0); \
00224 (r).hi = _y3 + _jlong_hi16(_y1); \
00225 }
00226
00227 #define jlong_UDIVMOD(qp, rp, a, b) jlong_udivmod(qp, rp, a, b)
00228
00229 extern JRI_PUBLIC_API(void)
00230 jlong_udivmod(julong *qp, julong *rp, julong a, julong b);
00231
00232 #define jlong_DIV(r, a, b) { \
00233 jlong _a, _b; \
00234 juint _negative = (int32)(a).hi < 0; \
00235 if (_negative) { \
00236 jlong_NEG(_a, a); \
00237 } else { \
00238 _a = a; \
00239 } \
00240 if ((int32)(b).hi < 0) { \
00241 _negative ^= 1; \
00242 jlong_NEG(_b, b); \
00243 } else { \
00244 _b = b; \
00245 } \
00246 jlong_UDIVMOD(&(r), 0, _a, _b); \
00247 if (_negative) \
00248 jlong_NEG(r, r); \
00249 }
00250
00251 #define jlong_MOD(r, a, b) { \
00252 jlong _a, _b; \
00253 juint _negative = (int32)(a).hi < 0; \
00254 if (_negative) { \
00255 jlong_NEG(_a, a); \
00256 } else { \
00257 _a = a; \
00258 } \
00259 if ((int32)(b).hi < 0) { \
00260 jlong_NEG(_b, b); \
00261 } else { \
00262 _b = b; \
00263 } \
00264 jlong_UDIVMOD(0, &(r), _a, _b); \
00265 if (_negative) \
00266 jlong_NEG(r, r); \
00267 }
00268
00269 #define jlong_SHL(r, a, b) { \
00270 if (b) { \
00271 jlong _a; \
00272 _a = a; \
00273 if ((b) < 32) { \
00274 (r).lo = _a.lo << (b); \
00275 (r).hi = (_a.hi << (b)) | (_a.lo >> (32 - (b))); \
00276 } else { \
00277 (r).lo = 0; \
00278 (r).hi = _a.lo << ((b) & 31); \
00279 } \
00280 } else { \
00281 (r) = (a); \
00282 } \
00283 }
00284
00285 #define jlong_ISHL(r, a, b) { \
00286 if (b) { \
00287 jlong _a; \
00288 _a.lo = (a); \
00289 _a.hi = 0; \
00290 if ((b) < 32) { \
00291 (r).lo = (a) << (b); \
00292 (r).hi = ((a) >> (32 - (b))); \
00293 } else { \
00294 (r).lo = 0; \
00295 (r).hi = (a) << ((b) & 31); \
00296 } \
00297 } else { \
00298 (r).lo = (a); \
00299 (r).hi = 0; \
00300 } \
00301 }
00302
00303 #define jlong_SHR(r, a, b) { \
00304 if (b) { \
00305 jlong _a; \
00306 _a = a; \
00307 if ((b) < 32) { \
00308 (r).lo = (_a.hi << (32 - (b))) | (_a.lo >> (b)); \
00309 (r).hi = (int32)_a.hi >> (b); \
00310 } else { \
00311 (r).lo = (int32)_a.hi >> ((b) & 31); \
00312 (r).hi = (int32)_a.hi >> 31; \
00313 } \
00314 } else { \
00315 (r) = (a); \
00316 } \
00317 }
00318
00319 #define jlong_USHR(r, a, b) { \
00320 if (b) { \
00321 jlong _a; \
00322 _a = a; \
00323 if ((b) < 32) { \
00324 (r).lo = (_a.hi << (32 - (b))) | (_a.lo >> (b)); \
00325 (r).hi = _a.hi >> (b); \
00326 } else { \
00327 (r).lo = _a.hi >> ((b) & 31); \
00328 (r).hi = 0; \
00329 } \
00330 } else { \
00331 (r) = (a); \
00332 } \
00333 }
00334
00335 #define jlong_L2I(i, l) ((i) = (l).lo)
00336 #define jlong_L2UI(ui, l) ((ui) = (l).lo)
00337 #define jlong_L2F(f, l) { double _d; jlong_L2D(_d, l); (f) = (float) _d; }
00338
00339 #define jlong_L2D(d, l) { \
00340 int32 _negative; \
00341 jlong _absval; \
00342 \
00343 _negative = (l).hi >> 31; \
00344 if (_negative) { \
00345 jlong_NEG(_absval, l); \
00346 } else { \
00347 _absval = l; \
00348 } \
00349 (d) = (double)_absval.hi * 4.294967296e9 + _absval.lo; \
00350 if (_negative) \
00351 (d) = -(d); \
00352 }
00353
00354 #define jlong_I2L(l, i) ((l).hi = (i) >> 31, (l).lo = (i))
00355 #define jlong_UI2L(l, ui) ((l).hi = 0, (l).lo = (ui))
00356 #define jlong_F2L(l, f) { double _d = (double) f; jlong_D2L(l, _d); }
00357
00358 #define jlong_D2L(l, d) { \
00359 int _negative; \
00360 double _absval, _d_hi; \
00361 jlong _lo_d; \
00362 \
00363 _negative = ((d) < 0); \
00364 _absval = _negative ? -(d) : (d); \
00365 \
00366 (l).hi = (juint)(_absval / 4.294967296e9); \
00367 (l).lo = 0; \
00368 jlong_L2D(_d_hi, l); \
00369 _absval -= _d_hi; \
00370 _lo_d.hi = 0; \
00371 if (_absval < 0) { \
00372 _lo_d.lo = (juint) -_absval; \
00373 jlong_SUB(l, l, _lo_d); \
00374 } else { \
00375 _lo_d.lo = (juint) _absval; \
00376 jlong_ADD(l, l, _lo_d); \
00377 } \
00378 \
00379 if (_negative) \
00380 jlong_NEG(l, l); \
00381 }
00382
00383 #endif
00384
00385 typedef union JRI_JDK_stack_item {
00386
00387 jint i;
00388 jfloat f;
00389 jint o;
00390
00391 void *h;
00392 void *p;
00393 unsigned char *addr;
00394 #ifdef IS_64
00395 double d;
00396 long l;
00397 #endif
00398 } JRI_JDK_stack_item;
00399
00400 typedef union JRI_JDK_Java8Str {
00401 jint x[2];
00402 jdouble d;
00403 jlong l;
00404 void *p;
00405 float f;
00406 } JRI_JDK_Java8;
00407
00408 #ifdef HAVE_ALIGNED_LONGLONGS
00409 #define JRI_GET_INT64(_t,_addr) ( ((_t).x[0] = ((jint*)(_addr))[0]), \
00410 ((_t).x[1] = ((jint*)(_addr))[1]), \
00411 (_t).l )
00412 #define JRI_SET_INT64(_t, _addr, _v) ( (_t).l = (_v), \
00413 ((jint*)(_addr))[0] = (_t).x[0], \
00414 ((jint*)(_addr))[1] = (_t).x[1] )
00415 #else
00416 #define JRI_GET_INT64(_t,_addr) (*(jlong*)(_addr))
00417 #define JRI_SET_INT64(_t, _addr, _v) (*(jlong*)(_addr) = (_v))
00418 #endif
00419
00420 #ifdef HAVE_ALIGNED_DOUBLES
00421 #define JRI_GET_DOUBLE(_t,_addr) ( ((_t).x[0] = ((jint*)(_addr))[0]), \
00422 ((_t).x[1] = ((jint*)(_addr))[1]), \
00423 (_t).d )
00424 #define JRI_SET_DOUBLE(_t, _addr, _v) ( (_t).d = (_v), \
00425 ((jint*)(_addr))[0] = (_t).x[0], \
00426 ((jint*)(_addr))[1] = (_t).x[1] )
00427 #else
00428 #define JRI_GET_DOUBLE(_t,_addr) (*(jdouble*)(_addr))
00429 #define JRI_SET_DOUBLE(_t, _addr, _v) (*(jdouble*)(_addr) = (_v))
00430 #endif
00431
00432 #ifdef __cplusplus
00433 }
00434 #endif
00435 #endif
00436
