15821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)/* -*- Mode: C; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ 25821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)/* ***** BEGIN LICENSE BLOCK ***** 35821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * Version: NPL 1.1/GPL 2.0/LGPL 2.1 45821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * 55821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * The contents of this file are subject to the Netscape Public License 65821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * Version 1.1 (the "License"); you may not use this file except in 75821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * compliance with the License. You may obtain a copy of the License at 85821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * http://www.mozilla.org/NPL/ 95821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * 105821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * Software distributed under the License is distributed on an "AS IS" basis, 115821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 125821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * for the specific language governing rights and limitations under the 135821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * License. 145821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * 155821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * The Original Code is mozilla.org code. 165821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * 175821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * The Initial Developer of the Original Code is 185821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * Netscape Communications Corporation. 195821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * Portions created by the Initial Developer are Copyright (C) 1998 205821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * the Initial Developer. All Rights Reserved. 215821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * 225821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * Contributor(s): 235821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * 245821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * Alternatively, the contents of this file may be used under the terms of 255821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * either the GNU General Public License Version 2 or later (the "GPL"), or 265821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * the GNU Lesser General Public License Version 2.1 or later (the "LGPL"), 275821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * in which case the provisions of the GPL or the LGPL are applicable instead 285821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * of those above. If you wish to allow use of your version of this file only 295821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * under the terms of either the GPL or the LGPL, and not to allow others to 305821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * use your version of this file under the terms of the NPL, indicate your 315821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * decision by deleting the provisions above and replace them with the notice 325821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * and other provisions required by the GPL or the LGPL. If you do not delete 335821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * the provisions above, a recipient may use your version of this file under 345821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * the terms of any one of the NPL, the GPL or the LGPL. 355821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * 365821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * ***** END LICENSE BLOCK ***** */ 375821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 385821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)/******************************************************************************* 395821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * Java Runtime Interface - Machine Dependent Types 405821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) ******************************************************************************/ 415821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 425821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#ifndef JRI_MD_H 435821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define JRI_MD_H 445821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 455821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#include <assert.h> 465821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#include "prtypes.h" /* Needed for HAS_LONG_LONG ifdefs */ 475821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 485821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#ifdef __cplusplus 495821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)extern "C" { 505821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#endif 515821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 525821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)/******************************************************************************* 535821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * WHAT'S UP WITH THIS FILE? 545821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * 555821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * This is where we define the mystical JRI_PUBLIC_API macro that works on all 565821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * platforms. If you're running with Visual C++, Symantec C, or Borland's 575821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * development environment on the PC, you're all set. Or if you're on the Mac 585821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * with Metrowerks, Symantec or MPW with SC you're ok too. For UNIX it shouldn't 595821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * matter. 605821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * 615821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * On UNIX though you probably care about a couple of other symbols though: 625821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * IS_LITTLE_ENDIAN must be defined for little-endian systems 635821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * HAVE_LONG_LONG must be defined on systems that have 'long long' integers 645821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * HAVE_ALIGNED_LONGLONGS must be defined if long-longs must be 8 byte aligned 655821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * HAVE_ALIGNED_DOUBLES must be defined if doubles must be 8 byte aligned 665821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * IS_64 must be defined on 64-bit machines (like Dec Alpha) 675821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) ******************************************************************************/ 685821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 695821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)/* DLL Entry modifiers... */ 705821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 715821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)/* PC */ 725821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#if defined(XP_OS2) 735821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# ifdef XP_OS2_VACPP 745821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# define JRI_PUBLIC_API(ResultType) ResultType _Optlink 755821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# define JRI_PUBLIC_VAR(VarType) VarType 765821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# define JRI_CALLBACK 775821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# else 785821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# define JRI_PUBLIC_API(ResultType) ResultType 795821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# define JRI_PUBLIC_VAR(VarType) VarType 805821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# define JRI_CALLBACK 815821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# endif 825821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#elif defined(XP_WIN) || defined(_WINDOWS) || defined(WIN32) || defined(_WIN32) 835821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# include <windows.h> 845821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# if defined(_MSC_VER) || defined(__GNUC__) 855821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# if defined(WIN32) || defined(_WIN32) 865821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# define JRI_PUBLIC_API(ResultType) __declspec(dllexport) ResultType 875821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# define JRI_PUBLIC_VAR(VarType) VarType 885821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# define JRI_PUBLIC_VAR_EXP(VarType) __declspec(dllexport) VarType 895821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# define JRI_PUBLIC_VAR_IMP(VarType) __declspec(dllimport) VarType 905821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# define JRI_NATIVE_STUB(ResultType) __declspec(dllexport) ResultType 915821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# define JRI_CALLBACK 925821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# else /* !_WIN32 */ 935821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# if defined(_WINDLL) 945821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# define JRI_PUBLIC_API(ResultType) ResultType __cdecl __export __loadds 955821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# define JRI_PUBLIC_VAR(VarType) VarType 965821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# define JRI_PUBLIC_VAR_EXP(VarType) JRI_PUBLIC_VAR(VarType) 975821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# define JRI_PUBLIC_VAR_IMP(VarType) JRI_PUBLIC_VAR(VarType) 985821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# define JRI_NATIVE_STUB(ResultType) ResultType __cdecl __loadds 995821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# define JRI_CALLBACK __loadds 1005821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# else /* !WINDLL */ 1015821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# define JRI_PUBLIC_API(ResultType) ResultType __cdecl __export 1025821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# define JRI_PUBLIC_VAR(VarType) VarType 1035821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# define JRI_PUBLIC_VAR_EXP(VarType) JRI_PUBLIC_VAR(VarType) 1045821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# define JRI_PUBLIC_VAR_IMP(VarType) JRI_PUBLIC_VAR(VarType) 1055821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# define JRI_NATIVE_STUB(ResultType) ResultType __cdecl __export 1065821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# define JRI_CALLBACK __export 1075821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# endif /* !WINDLL */ 1085821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# endif /* !_WIN32 */ 1095821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# elif defined(__BORLANDC__) 1105821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# if defined(WIN32) || defined(_WIN32) 1115821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# define JRI_PUBLIC_API(ResultType) __export ResultType 1125821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# define JRI_PUBLIC_VAR(VarType) VarType 1135821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# define JRI_PUBLIC_VAR_EXP(VarType) __export VarType 1145821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# define JRI_PUBLIC_VAR_IMP(VarType) __import VarType 1155821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# define JRI_NATIVE_STUB(ResultType) __export ResultType 1165821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# define JRI_CALLBACK 1175821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# else /* !_WIN32 */ 1185821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# define JRI_PUBLIC_API(ResultType) ResultType _cdecl _export _loadds 1195821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# define JRI_PUBLIC_VAR(VarType) VarType 1205821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# define JRI_PUBLIC_VAR_EXP(VarType) __cdecl __export VarType 1215821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# define JRI_PUBLIC_VAR_IMP(VarType) __cdecl __import VarType 1225821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# define JRI_NATIVE_STUB(ResultType) ResultType _cdecl _loadds 1235821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# define JRI_CALLBACK _loadds 1245821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# endif 1255821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# else 1265821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# error Unsupported PC development environment. 1275821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# endif 1285821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# ifndef IS_LITTLE_ENDIAN 1295821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# define IS_LITTLE_ENDIAN 1305821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# endif 1315821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 1325821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)/* Mac */ 1335821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#elif defined (macintosh) || Macintosh || THINK_C 1345821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# if defined(__MWERKS__) /* Metrowerks */ 1355821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# if !__option(enumsalwaysint) 1365821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# error You need to define 'Enums Always Int' for your project. 1375821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# endif 1385821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# if defined(TARGET_CPU_68K) && !TARGET_RT_MAC_CFM 1395821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# if !__option(fourbyteints) 1405821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# error You need to define 'Struct Alignment: 68k' for your project. 1415821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# endif 1425821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# endif /* !GENERATINGCFM */ 1435821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# define JRI_PUBLIC_API(ResultType) __declspec(export) ResultType 1445821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# define JRI_PUBLIC_VAR(VarType) JRI_PUBLIC_API(VarType) 1455821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# define JRI_PUBLIC_VAR_EXP(VarType) JRI_PUBLIC_API(VarType) 1465821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# define JRI_PUBLIC_VAR_IMP(VarType) JRI_PUBLIC_API(VarType) 1475821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# define JRI_NATIVE_STUB(ResultType) JRI_PUBLIC_API(ResultType) 1485821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# elif defined(__SC__) /* Symantec */ 1495821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# error What are the Symantec defines? (warren@netscape.com) 1505821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# elif macintosh && applec /* MPW */ 1515821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# error Please upgrade to the latest MPW compiler (SC). 1525821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# else 1535821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# error Unsupported Mac development environment. 1545821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# endif 1555821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# define JRI_CALLBACK 1565821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 1575821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)/* Unix or else */ 1585821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#else 1595821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# define JRI_PUBLIC_API(ResultType) ResultType 1605821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# define JRI_PUBLIC_VAR(VarType) VarType 1615821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# define JRI_PUBLIC_VAR_EXP(VarType) JRI_PUBLIC_VAR(VarType) 1625821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# define JRI_PUBLIC_VAR_IMP(VarType) JRI_PUBLIC_VAR(VarType) 1635821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# define JRI_NATIVE_STUB(ResultType) ResultType 1645821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)# define JRI_CALLBACK 1655821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#endif 1665821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 1675821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#ifndef FAR /* for non-Win16 */ 1685821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define FAR 1695821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#endif 1705821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 1715821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)/******************************************************************************/ 1725821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 1735821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)/* Java Scalar Types */ 1745821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 1755821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#if 0 /* now in jni.h */ 1765821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)typedef short jchar; 1775821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)typedef short jshort; 1785821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)typedef float jfloat; 1795821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)typedef double jdouble; 1805821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)typedef juint jsize; 1815821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#endif 1825821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 1835821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)/* moved from jni.h -- Sun's new jni.h doesn't have this anymore */ 1845821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#ifdef __cplusplus 1855821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)typedef class _jobject *jref; 1865821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#else 1875821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)typedef struct _jobject *jref; 1885821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#endif 1895821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 1905821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)typedef unsigned char jbool; 1915821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)typedef signed char jbyte; 1925821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#ifdef IS_64 /* XXX ok for alpha, but not right on all 64-bit architectures */ 1935821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)typedef unsigned int juint; 1945821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)typedef int jint; 1955821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#else 1965821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)typedef unsigned long juint; 1975821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)typedef long jint; 1985821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#endif 1995821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 2005821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)/******************************************************************************* 2015821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * jlong : long long (64-bit signed integer type) support. 2025821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) ******************************************************************************/ 2035821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 2045821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)/* 2055821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)** Bit masking macros. (n must be <= 31 to be portable) 2065821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)*/ 2075821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define JRI_BIT(n) ((juint)1 << (n)) 2085821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define JRI_BITMASK(n) (JRI_BIT(n) - 1) 2095821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 2105821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#ifdef HAVE_LONG_LONG 2115821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 2125821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#ifdef OSF1 2135821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 2145821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)/* long is default 64-bit on OSF1, -std1 does not allow long long */ 2155821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)typedef long jlong; 2165821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)typedef unsigned long julong; 2175821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_MAXINT 0x7fffffffffffffffL 2185821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_MININT 0x8000000000000000L 2195821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_ZERO 0x0L 2205821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 2215821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#elif (defined(WIN32) || defined(_WIN32)) 2225821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 2235821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)typedef LONGLONG jlong; 2245821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)typedef DWORDLONG julong; 2255821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_MAXINT 0x7fffffffffffffffi64 2265821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_MININT 0x8000000000000000i64 2275821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_ZERO 0x0i64 2285821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 2295821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#else 2305821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 2315821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)typedef long long jlong; 2325821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)typedef unsigned long long julong; 2335821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_MAXINT 0x7fffffffffffffffLL 2345821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_MININT 0x8000000000000000LL 2355821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_ZERO 0x0LL 2365821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 2375821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#endif 2385821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 2395821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_IS_ZERO(a) ((a) == 0) 2405821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_EQ(a, b) ((a) == (b)) 2415821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_NE(a, b) ((a) != (b)) 2425821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_GE_ZERO(a) ((a) >= 0) 2435821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_CMP(a, op, b) ((a) op (b)) 2445821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 2455821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_AND(r, a, b) ((r) = (a) & (b)) 2465821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_OR(r, a, b) ((r) = (a) | (b)) 2475821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_XOR(r, a, b) ((r) = (a) ^ (b)) 2485821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_OR2(r, a) ((r) = (r) | (a)) 2495821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_NOT(r, a) ((r) = ~(a)) 2505821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 2515821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_NEG(r, a) ((r) = -(a)) 2525821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_ADD(r, a, b) ((r) = (a) + (b)) 2535821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_SUB(r, a, b) ((r) = (a) - (b)) 2545821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 2555821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_MUL(r, a, b) ((r) = (a) * (b)) 2565821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_DIV(r, a, b) ((r) = (a) / (b)) 2575821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_MOD(r, a, b) ((r) = (a) % (b)) 2585821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 2595821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_SHL(r, a, b) ((r) = (a) << (b)) 2605821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_SHR(r, a, b) ((r) = (a) >> (b)) 2615821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_USHR(r, a, b) ((r) = (julong)(a) >> (b)) 2625821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_ISHL(r, a, b) ((r) = ((jlong)(a)) << (b)) 2635821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 2645821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_L2I(i, l) ((i) = (int)(l)) 2655821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_L2UI(ui, l) ((ui) =(unsigned int)(l)) 2665821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_L2F(f, l) ((f) = (l)) 2675821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_L2D(d, l) ((d) = (l)) 2685821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 2695821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_I2L(l, i) ((l) = (i)) 2705821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_UI2L(l, ui) ((l) = (ui)) 2715821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_F2L(l, f) ((l) = (f)) 2725821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_D2L(l, d) ((l) = (d)) 2735821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 2745821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_UDIVMOD(qp, rp, a, b) \ 2755821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) (*(qp) = ((julong)(a) / (b)), \ 2765821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *(rp) = ((julong)(a) % (b))) 2775821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 2785821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#else /* !HAVE_LONG_LONG */ 2795821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 2805821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)typedef struct { 2815821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#ifdef IS_LITTLE_ENDIAN 2825821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) juint lo, hi; 2835821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#else 2845821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) juint hi, lo; 2855821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#endif 2865821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)} jlong; 2875821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)typedef jlong julong; 2885821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 2895821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)extern jlong jlong_MAXINT, jlong_MININT, jlong_ZERO; 2905821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 2915821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_IS_ZERO(a) (((a).hi == 0) && ((a).lo == 0)) 2925821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_EQ(a, b) (((a).hi == (b).hi) && ((a).lo == (b).lo)) 2935821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_NE(a, b) (((a).hi != (b).hi) || ((a).lo != (b).lo)) 2945821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_GE_ZERO(a) (((a).hi >> 31) == 0) 2955821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 2965821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)/* 2975821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * NB: jlong_CMP and jlong_UCMP work only for strict relationals (<, >). 2985821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) */ 2995821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_CMP(a, op, b) (((int32)(a).hi op (int32)(b).hi) || \ 3005821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) (((a).hi == (b).hi) && ((a).lo op (b).lo))) 3015821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_UCMP(a, op, b) (((a).hi op (b).hi) || \ 3025821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) (((a).hi == (b).hi) && ((a).lo op (b).lo))) 3035821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 3045821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_AND(r, a, b) ((r).lo = (a).lo & (b).lo, \ 3055821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) (r).hi = (a).hi & (b).hi) 3065821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_OR(r, a, b) ((r).lo = (a).lo | (b).lo, \ 3075821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) (r).hi = (a).hi | (b).hi) 3085821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_XOR(r, a, b) ((r).lo = (a).lo ^ (b).lo, \ 3095821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) (r).hi = (a).hi ^ (b).hi) 3105821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_OR2(r, a) ((r).lo = (r).lo | (a).lo, \ 3115821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) (r).hi = (r).hi | (a).hi) 3125821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_NOT(r, a) ((r).lo = ~(a).lo, \ 3135821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) (r).hi = ~(a).hi) 3145821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 3155821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_NEG(r, a) ((r).lo = -(int32)(a).lo, \ 3165821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) (r).hi = -(int32)(a).hi - ((r).lo != 0)) 3175821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_ADD(r, a, b) { \ 3185821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) jlong _a, _b; \ 3195821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) _a = a; _b = b; \ 3205821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) (r).lo = _a.lo + _b.lo; \ 3215821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) (r).hi = _a.hi + _b.hi + ((r).lo < _b.lo); \ 3225821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)} 3235821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 3245821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_SUB(r, a, b) { \ 3255821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) jlong _a, _b; \ 3265821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) _a = a; _b = b; \ 3275821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) (r).lo = _a.lo - _b.lo; \ 3285821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) (r).hi = _a.hi - _b.hi - (_a.lo < _b.lo); \ 3295821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)} \ 3305821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 3315821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)/* 3325821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * Multiply 64-bit operands a and b to get 64-bit result r. 3335821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * First multiply the low 32 bits of a and b to get a 64-bit result in r. 3345821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * Then add the outer and inner products to r.hi. 3355821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) */ 3365821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_MUL(r, a, b) { \ 3375821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) jlong _a, _b; \ 3385821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) _a = a; _b = b; \ 3395821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) jlong_MUL32(r, _a.lo, _b.lo); \ 3405821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) (r).hi += _a.hi * _b.lo + _a.lo * _b.hi; \ 3415821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)} 3425821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 3435821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)/* XXX _jlong_lo16(a) = ((a) << 16 >> 16) is better on some archs (not on mips) */ 3445821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define _jlong_lo16(a) ((a) & JRI_BITMASK(16)) 3455821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define _jlong_hi16(a) ((a) >> 16) 3465821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 3475821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)/* 3485821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * Multiply 32-bit operands a and b to get 64-bit result r. 3495821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * Use polynomial expansion based on primitive field element (1 << 16). 3505821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) */ 3515821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_MUL32(r, a, b) { \ 3525821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) juint _a1, _a0, _b1, _b0, _y0, _y1, _y2, _y3; \ 3535821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) _a1 = _jlong_hi16(a), _a0 = _jlong_lo16(a); \ 3545821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) _b1 = _jlong_hi16(b), _b0 = _jlong_lo16(b); \ 3555821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) _y0 = _a0 * _b0; \ 3565821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) _y1 = _a0 * _b1; \ 3575821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) _y2 = _a1 * _b0; \ 3585821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) _y3 = _a1 * _b1; \ 3595821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) _y1 += _jlong_hi16(_y0); /* can't carry */ \ 3605821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) _y1 += _y2; /* might carry */ \ 3615821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if (_y1 < _y2) _y3 += 1 << 16; /* propagate */ \ 3625821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) (r).lo = (_jlong_lo16(_y1) << 16) + _jlong_lo16(_y0); \ 3635821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) (r).hi = _y3 + _jlong_hi16(_y1); \ 3645821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)} 3655821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 3665821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)/* 3675821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * Divide 64-bit unsigned operand a by 64-bit unsigned operand b, setting *qp 3685821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * to the 64-bit unsigned quotient, and *rp to the 64-bit unsigned remainder. 3695821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * Minimize effort if one of qp and rp is null. 3705821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) */ 3715821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_UDIVMOD(qp, rp, a, b) jlong_udivmod(qp, rp, a, b) 3725821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 3735821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)extern JRI_PUBLIC_API(void) 3745821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)jlong_udivmod(julong *qp, julong *rp, julong a, julong b); 3755821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 3765821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_DIV(r, a, b) { \ 3775821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) jlong _a, _b; \ 3785821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) juint _negative = (int32)(a).hi < 0; \ 3795821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if (_negative) { \ 3805821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) jlong_NEG(_a, a); \ 3815821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } else { \ 3825821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) _a = a; \ 3835821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } \ 3845821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if ((int32)(b).hi < 0) { \ 3855821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) _negative ^= 1; \ 3865821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) jlong_NEG(_b, b); \ 3875821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } else { \ 3885821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) _b = b; \ 3895821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } \ 3905821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) jlong_UDIVMOD(&(r), 0, _a, _b); \ 3915821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if (_negative) \ 3925821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) jlong_NEG(r, r); \ 3935821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)} 3945821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 3955821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_MOD(r, a, b) { \ 3965821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) jlong _a, _b; \ 3975821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) juint _negative = (int32)(a).hi < 0; \ 3985821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if (_negative) { \ 3995821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) jlong_NEG(_a, a); \ 4005821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } else { \ 4015821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) _a = a; \ 4025821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } \ 4035821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if ((int32)(b).hi < 0) { \ 4045821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) jlong_NEG(_b, b); \ 4055821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } else { \ 4065821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) _b = b; \ 4075821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } \ 4085821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) jlong_UDIVMOD(0, &(r), _a, _b); \ 4095821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if (_negative) \ 4105821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) jlong_NEG(r, r); \ 4115821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)} 4125821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 4135821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)/* 4145821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * NB: b is a juint, not jlong or julong, for the shift ops. 4155821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) */ 4165821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_SHL(r, a, b) { \ 4175821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if (b) { \ 4185821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) jlong _a; \ 4195821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) _a = a; \ 4205821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if ((b) < 32) { \ 4215821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) (r).lo = _a.lo << (b); \ 4225821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) (r).hi = (_a.hi << (b)) | (_a.lo >> (32 - (b))); \ 4235821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } else { \ 4245821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) (r).lo = 0; \ 4255821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) (r).hi = _a.lo << ((b) & 31); \ 4265821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } \ 4275821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } else { \ 4285821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) (r) = (a); \ 4295821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } \ 4305821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)} 4315821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 4325821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)/* a is an int32, b is int32, r is jlong */ 4335821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_ISHL(r, a, b) { \ 4345821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if (b) { \ 4355821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) jlong _a; \ 4365821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) _a.lo = (a); \ 4375821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) _a.hi = 0; \ 4385821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if ((b) < 32) { \ 4395821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) (r).lo = (a) << (b); \ 4405821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) (r).hi = ((a) >> (32 - (b))); \ 4415821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } else { \ 4425821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) (r).lo = 0; \ 4435821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) (r).hi = (a) << ((b) & 31); \ 4445821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } \ 4455821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } else { \ 4465821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) (r).lo = (a); \ 4475821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) (r).hi = 0; \ 4485821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } \ 4495821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)} 4505821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 4515821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_SHR(r, a, b) { \ 4525821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if (b) { \ 4535821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) jlong _a; \ 4545821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) _a = a; \ 4555821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if ((b) < 32) { \ 4565821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) (r).lo = (_a.hi << (32 - (b))) | (_a.lo >> (b)); \ 4575821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) (r).hi = (int32)_a.hi >> (b); \ 4585821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } else { \ 4595821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) (r).lo = (int32)_a.hi >> ((b) & 31); \ 4605821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) (r).hi = (int32)_a.hi >> 31; \ 4615821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } \ 4625821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } else { \ 4635821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) (r) = (a); \ 4645821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } \ 4655821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)} 4665821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 4675821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_USHR(r, a, b) { \ 4685821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if (b) { \ 4695821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) jlong _a; \ 4705821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) _a = a; \ 4715821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if ((b) < 32) { \ 4725821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) (r).lo = (_a.hi << (32 - (b))) | (_a.lo >> (b)); \ 4735821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) (r).hi = _a.hi >> (b); \ 4745821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } else { \ 4755821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) (r).lo = _a.hi >> ((b) & 31); \ 4765821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) (r).hi = 0; \ 4775821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } \ 4785821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } else { \ 4795821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) (r) = (a); \ 4805821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } \ 4815821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)} 4825821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 4835821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_L2I(i, l) ((i) = (l).lo) 4845821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_L2UI(ui, l) ((ui) = (l).lo) 4855821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_L2F(f, l) { double _d; jlong_L2D(_d, l); (f) = (float) _d; } 4865821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 4875821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_L2D(d, l) { \ 4885821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) int32 _negative; \ 4895821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) jlong _absval; \ 4905821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) \ 4915821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) _negative = (l).hi >> 31; \ 4925821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if (_negative) { \ 4935821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) jlong_NEG(_absval, l); \ 4945821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } else { \ 4955821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) _absval = l; \ 4965821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } \ 4975821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) (d) = (double)_absval.hi * 4.294967296e9 + _absval.lo; \ 4985821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if (_negative) \ 4995821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) (d) = -(d); \ 5005821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)} 5015821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 5025821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_I2L(l, i) ((l).hi = (i) >> 31, (l).lo = (i)) 5035821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_UI2L(l, ui) ((l).hi = 0, (l).lo = (ui)) 5045821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_F2L(l, f) { double _d = (double) f; jlong_D2L(l, _d); } 5055821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 5065821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define jlong_D2L(l, d) { \ 5075821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) int _negative; \ 5085821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) double _absval, _d_hi; \ 5095821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) jlong _lo_d; \ 5105821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) \ 5115821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) _negative = ((d) < 0); \ 5125821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) _absval = _negative ? -(d) : (d); \ 5135821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) \ 5145821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) (l).hi = (juint)(_absval / 4.294967296e9); \ 5155821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) (l).lo = 0; \ 5165821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) jlong_L2D(_d_hi, l); \ 5175821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) _absval -= _d_hi; \ 5185821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) _lo_d.hi = 0; \ 5195821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if (_absval < 0) { \ 5205821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) _lo_d.lo = (juint) -_absval; \ 5215821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) jlong_SUB(l, l, _lo_d); \ 5225821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } else { \ 5235821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) _lo_d.lo = (juint) _absval; \ 5245821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) jlong_ADD(l, l, _lo_d); \ 5255821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } \ 5265821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) \ 5275821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if (_negative) \ 5285821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) jlong_NEG(l, l); \ 5295821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)} 5305821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 5315821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#endif /* !HAVE_LONG_LONG */ 5325821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 5335821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)/******************************************************************************/ 5345821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 5355821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#ifdef HAVE_ALIGNED_LONGLONGS 5365821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define JRI_GET_INT64(_t,_addr) ( ((_t).x[0] = ((jint*)(_addr))[0]), \ 5375821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) ((_t).x[1] = ((jint*)(_addr))[1]), \ 5385821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) (_t).l ) 5395821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define JRI_SET_INT64(_t, _addr, _v) ( (_t).l = (_v), \ 5405821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) ((jint*)(_addr))[0] = (_t).x[0], \ 5415821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) ((jint*)(_addr))[1] = (_t).x[1] ) 5425821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#else 5435821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define JRI_GET_INT64(_t,_addr) (*(jlong*)(_addr)) 5445821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define JRI_SET_INT64(_t, _addr, _v) (*(jlong*)(_addr) = (_v)) 5455821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#endif 5465821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 5475821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)/* If double's must be aligned on doubleword boundaries then define this */ 5485821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#ifdef HAVE_ALIGNED_DOUBLES 5495821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define JRI_GET_DOUBLE(_t,_addr) ( ((_t).x[0] = ((jint*)(_addr))[0]), \ 5505821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) ((_t).x[1] = ((jint*)(_addr))[1]), \ 5515821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) (_t).d ) 5525821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define JRI_SET_DOUBLE(_t, _addr, _v) ( (_t).d = (_v), \ 5535821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) ((jint*)(_addr))[0] = (_t).x[0], \ 5545821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) ((jint*)(_addr))[1] = (_t).x[1] ) 5555821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#else 5565821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define JRI_GET_DOUBLE(_t,_addr) (*(jdouble*)(_addr)) 5575821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define JRI_SET_DOUBLE(_t, _addr, _v) (*(jdouble*)(_addr) = (_v)) 5585821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#endif 5595821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 5605821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)/******************************************************************************/ 5615821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#ifdef __cplusplus 5625821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)} 5635821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#endif 5645821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#endif /* JRI_MD_H */ 5655821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)/******************************************************************************/ 566