1 /* global.h - global definitions
3 Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003
4 R. Grafl, A. Krall, C. Kruegel, C. Oates, R. Obermaisser,
5 M. Probst, S. Ring, E. Steiner, C. Thalinger, D. Thuernbeck,
6 P. Tomsich, J. Wenninger
8 This file is part of CACAO.
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.
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.
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., 59 Temple Place - Suite 330, Boston, MA
25 Contact: cacao@complang.tuwien.ac.at
27 Authors: Reinhard Grafl
34 $Id: global.h 1155 2004-06-09 16:28:52Z twisti $
45 #include "toolbox/list.h"
48 #if defined(USE_THREADS) && defined(NATIVE_THREADS)
52 #define STATISTICS /* if enabled collects program statistics */
55 * SIZE_FROM_CLASSINFO toggles between the bitmap_based and the new method
56 * of determining the sizes of objects on the heap.
58 #define SIZE_FROM_CLASSINFO
61 * CACAO_TYPECHECK activates typechecking (part of bytecode verification)
63 #define CACAO_TYPECHECK
66 * TYPECHECK_STACK_COMPCAT activates full checking of computational
67 * categories for stack manipulations (POP,POP2,SWAP,DUP,DUP2,DUP_X1,
68 * DUP2_X1,DUP_X2,DUP2_X2).
70 /* #define TYPECHECK_STACK_COMPCAT */
73 * Macros for configuration of the typechecking code
75 * TYPECHECK_STATISTICS activates gathering statistical information.
76 * TYPEINFO_DEBUG activates debug checks and debug helpers in typeinfo.c
77 * TYPECHECK_DEBUG activates debug checks in typecheck.c
78 * TYPEINFO_DEBUG_TEST activates the typeinfo test at startup.
79 * TYPECHECK_VERBOSE_IMPORTANT activates important debug messages
80 * TYPECHECK_VERBOSE activates all debug messages
82 #ifdef CACAO_TYPECHECK
83 /*#define TYPECHECK_STATISTICS*/
84 /*#define TYPEINFO_DEBUG*/
85 /*#define TYPECHECK_DEBUG*/
86 /*#define TYPEINFO_DEBUG_TEST*/
87 /*#define TYPECHECK_VERBOSE*/
88 /*#define TYPECHECK_VERBOSE_IMPORTANT*/
89 #if defined(TYPECHECK_VERBOSE) || defined(TYPECHECK_VERBOSE_IMPORTANT)
90 #define TYPECHECK_VERBOSE_OPT
95 /* additional data types ******************************************************/
97 typedef void *voidptr; /* generic pointer */
99 typedef int bool; /* boolean data type */
105 /* immediate data union */
117 #define PRIMITIVETYPE_COUNT 9 /* number of primitive types */
119 /* CAUTION: Don't change the numerical values! These constants are
120 * used as indices into the primitive type table.
122 #define PRIMITIVETYPE_INT 0
123 #define PRIMITIVETYPE_LONG 1
124 #define PRIMITIVETYPE_FLOAT 2
125 #define PRIMITIVETYPE_DOUBLE 3
126 #define PRIMITIVETYPE_BYTE 4
127 #define PRIMITIVETYPE_CHAR 5
128 #define PRIMITIVETYPE_SHORT 6
129 #define PRIMITIVETYPE_BOOLEAN 7
130 #define PRIMITIVETYPE_VOID 8
132 typedef void (*functionptr) (); /* generic function pointer */
135 #define MAX_ALIGN 8 /* most generic alignment for JavaVM values */
138 /* basic data types ***********************************************************/
140 /* CAUTION: jit/jit.h relies on these numerical values! */
141 #define TYPE_INT 0 /* the JavaVM types must numbered in the */
142 #define TYPE_LONG 1 /* same order as the ICMD_Ixxx to ICMD_Axxx */
143 #define TYPE_FLOAT 2 /* instructions (LOAD and STORE) */
144 #define TYPE_DOUBLE 3 /* integer, long, float, double, address */
145 #define TYPE_ADDRESS 4 /* all other types can be numbered arbitrarly */
150 /* Java class file constants **************************************************/
152 #define MAGIC 0xcafebabe
153 #define MINOR_VERSION 0
154 #define MAJOR_VERSION 48
156 #define CONSTANT_Class 7
157 #define CONSTANT_Fieldref 9
158 #define CONSTANT_Methodref 10
159 #define CONSTANT_InterfaceMethodref 11
160 #define CONSTANT_String 8
161 #define CONSTANT_Integer 3
162 #define CONSTANT_Float 4
163 #define CONSTANT_Long 5
164 #define CONSTANT_Double 6
165 #define CONSTANT_NameAndType 12
166 #define CONSTANT_Utf8 1
168 #define CONSTANT_UNUSED 0
170 #define ACC_PUBLIC 0x0001
171 #define ACC_PRIVATE 0x0002
172 #define ACC_PROTECTED 0x0004
173 #define ACC_STATIC 0x0008
174 #define ACC_FINAL 0x0010
175 #define ACC_SUPER 0x0020
176 #define ACC_SYNCHRONIZED 0x0020
177 #define ACC_VOLATILE 0x0040
178 #define ACC_TRANSIENT 0x0080
179 #define ACC_NATIVE 0x0100
180 #define ACC_INTERFACE 0x0200
181 #define ACC_ABSTRACT 0x0400
182 #define ACC_STRICT 0x0800
184 /* resolve typedef cycles *****************************************************/
186 typedef struct utf utf;
187 typedef struct literalstring literalstring;
188 typedef struct java_objectheader java_objectheader;
189 typedef struct classinfo classinfo;
190 typedef struct vftbl vftbl;
191 typedef u1* methodptr;
192 typedef struct fieldinfo fieldinfo;
193 typedef struct methodinfo methodinfo;
194 typedef struct lineinfo lineinfo;
195 typedef struct arraydescriptor arraydescriptor;
198 /* constant pool entries *******************************************************
200 All constant pool entries need a data structure which contain the entrys
201 value. In some cases this structure exist already, in the remaining cases
202 this structure must be generated:
204 kind structure generated?
205 ----------------------------------------------------------------------
206 CONSTANT_Class classinfo no
207 CONSTANT_Fieldref constant_FMIref yes
208 CONSTANT_Methodref constant_FMIref yes
209 CONSTANT_InterfaceMethodref constant_FMIref yes
210 CONSTANT_String unicode no
211 CONSTANT_Integer constant_integer yes
212 CONSTANT_Float constant_float yes
213 CONSTANT_Long constant_long yes
214 CONSTANT_Double constant_double yes
215 CONSTANT_NameAndType constant_nameandtype yes
216 CONSTANT_Utf8 unicode no
219 *******************************************************************************/
221 /* data structures for hashtables ********************************************
224 All utf-symbols, javastrings and classes are stored in global hashtables,
225 so every symbol exists only once. Equal symbols have identical pointers.
226 The functions for adding hashtable elements search the table for the
227 element with the specified name/text and return it on success. Otherwise a
228 new hashtable element is created.
230 The hashtables use external linking for handling collisions. The hashtable
231 structure contains a pointer <ptr> to the array of hashtable slots. The
232 number of hashtable slots and therefore the size of this array is specified
233 by the element <size> of hashtable structure. <entries> contains the number
234 of all hashtable elements stored in the table, including those in the
236 The hashtable element structures (utf, literalstring, classinfo) contain
237 both a pointer to the next hashtable element as a link for the external hash
238 chain and the key of the element. The key is computed from the text of
239 the string or the classname by using up to 8 characters.
241 If the number of entries in the hashtable exceeds twice the size of the
242 hashtableslot-array it is supposed that the average length of the
243 external chains has reached a value beyond 2. Therefore the functions for
244 adding hashtable elements (utf_new, class_new, literalstring_new) double
245 the hashtableslot-array. In this restructuring process all elements have
246 to be inserted into the new hashtable and new external chains must be built.
249 example for the layout of a hashtable:
251 hashtable.ptr--> +-------------------+
255 +-------------------+ +-------------------+ +-------------------+
256 | hashtable element |-->| hashtable element |-->| hashtable element |-->NULL
257 +-------------------+ +-------------------+ +-------------------+
258 | hashtable element |
259 +-------------------+ +-------------------+
260 | hashtable element |-->| hashtable element |-->NULL
261 +-------------------+ +-------------------+
262 | hashtable element |-->NULL
263 +-------------------+
267 +-------------------+
272 /* data structure for utf8 symbols ********************************************/
275 utf *hashlink; /* link for external hash chain */
276 int blength; /* text length in bytes */
277 char *text; /* pointer to text */
281 /* data structure of internal javastrings stored in global hashtable **********/
283 struct literalstring {
284 literalstring *hashlink; /* link for external hash chain */
285 java_objectheader *string;
289 /* data structure for storing information needed for a stacktrace across native functions*/
290 struct native_stackframeinfo {
291 void *oldThreadspecificHeadValue;
292 void **addressOfThreadspecificHead;
294 void *returnToFromNative;
297 void *returnFromNative;
298 void *addrReturnFromNative;
300 struct native_stackframeinfo *next;
301 struct native_stackframeinfo *prev;
305 typedef struct native_stackframeinfo native_stackframeinfo;
307 struct stacktraceelement {
316 typedef struct stacktraceelement stacktraceelement;
318 /* data structure for calls from c code to java methods */
320 struct jni_callblock {
325 typedef struct jni_callblock jni_callblock;
328 /* data structure for accessing hashtables ************************************/
332 u4 entries; /* number of entries in the table */
333 void **ptr; /* pointer to hashtable */
337 /* data structures of remaining constant pool entries *************************/
339 typedef struct { /* Fieldref, Methodref and InterfaceMethodref */
340 classinfo *class; /* class containing this field/method/interface */
341 utf *name; /* field/method/interface name */
342 utf *descriptor; /* field/method/interface type descriptor string */
346 typedef struct { /* Integer */
351 typedef struct { /* Float */
356 typedef struct { /* Long */
361 typedef struct { /* Double */
366 typedef struct { /* NameAndType (Field or Method) */
367 utf *name; /* field/method name */
368 utf *descriptor; /* field/method type descriptor string */
369 } constant_nameandtype;
372 /* data structures of the runtime system **************************************/
374 /* objects *********************************************************************
376 All objects (and arrays) which resides on the heap need the following
377 header at the beginning of the data structure.
380 struct java_objectheader { /* header for all objects */
381 vftbl *vftbl; /* pointer to virtual function table */
382 #if defined(USE_THREADS) && defined(NATIVE_THREADS)
389 /* arrays **********************************************************************
391 All arrays are objects (they need the object header with a pointer
392 to a vftbl (array class table). There is one class for each array
393 type. The array type is described by an arraydescriptor struct
394 which is referenced by the vftbl.
397 /* CAUTION: Don't change the numerical values! These constants (with
398 * the exception of ARRAYTYPE_OBJECT) are used as indices in the
399 * primitive type table.
401 #define ARRAYTYPE_INT PRIMITIVETYPE_INT
402 #define ARRAYTYPE_LONG PRIMITIVETYPE_LONG
403 #define ARRAYTYPE_FLOAT PRIMITIVETYPE_FLOAT
404 #define ARRAYTYPE_DOUBLE PRIMITIVETYPE_DOUBLE
405 #define ARRAYTYPE_BYTE PRIMITIVETYPE_BYTE
406 #define ARRAYTYPE_CHAR PRIMITIVETYPE_CHAR
407 #define ARRAYTYPE_SHORT PRIMITIVETYPE_SHORT
408 #define ARRAYTYPE_BOOLEAN PRIMITIVETYPE_BOOLEAN
409 #define ARRAYTYPE_OBJECT PRIMITIVETYPE_VOID /* don't use as index! */
411 typedef struct java_arrayheader { /* header for all arrays */
412 java_objectheader objheader; /* object header */
413 s4 size; /* array size */
414 #ifdef SIZE_FROM_CLASSINFO
415 s4 alignedsize; /* phil */
421 /* structs for all kinds of arrays ********************************************/
423 typedef struct java_chararray {
424 java_arrayheader header;
428 typedef struct java_floatheader {
429 java_arrayheader header;
433 typedef struct java_doublearray {
434 java_arrayheader header;
438 /* booleanarray and bytearray need identical memory layout (access methods
439 use the same machine code */
441 typedef struct java_booleanarray {
442 java_arrayheader header;
446 typedef struct java_bytearray {
447 java_arrayheader header;
451 typedef struct java_shortarray {
452 java_arrayheader header;
456 typedef struct java_intarray {
457 java_arrayheader header;
461 typedef struct java_longarray {
462 java_arrayheader header;
466 /* objectarray and arrayarray need identical memory layout (access methods
467 use the same machine code */
469 typedef struct java_objectarray {
470 java_arrayheader header;
471 java_objectheader *data[1];
475 /* structure for primitive classes ********************************************/
477 typedef struct primitivetypeinfo {
478 classinfo *class_wrap; /* class for wrapping primitive type */
479 classinfo *class_primitive; /* primitive class */
480 char *wrapname; /* name of class for wrapping */
481 char typesig; /* one character type signature */
482 char *name; /* name of primitive class */
483 char *arrayname; /* name of primitive array class */
484 classinfo *arrayclass; /* primitive array class */
485 vftbl *arrayvftbl; /* vftbl of primitive array class */
489 /* field, method and class structures *****************************************/
491 #include "jit/sets.h"
492 typedef struct xtafldinfo {
494 classinfo *fldClassType;
495 classSet *XTAclassSet; /* field class type set */
499 /* fieldinfo ******************************************************************/
501 struct fieldinfo { /* field of a class */
502 s4 flags; /* ACC flags */
503 s4 type; /* basic data type */
504 utf *name; /* name of field */
505 utf *descriptor; /* JavaVM descriptor string of field */
507 s4 offset; /* offset from start of object (instance variables) */
509 imm_union value; /* storage for static values (class variables) */
511 classinfo *class; /* needed by typechecker. Could be optimized */
512 /* away by using constant_FMIref instead of */
513 /* fieldinfo throughout the compiler. */
521 /* exceptiontable *************************************************************/
523 typedef struct xtable { /* exceptiontable entry in a method */
524 s4 startpc; /* start pc of guarded area (inclusive) */
525 struct basicblock *start;
527 s4 endpc; /* end pc of guarded area (exklusive) */
528 struct basicblock *end;
530 s4 handlerpc; /* pc of exception handler */
531 struct basicblock *handler;
533 classinfo *catchtype; /* catchtype of exception (NULL == catchall) */
534 struct xtable *next; /* used to build a list of exception when */
535 /* loops are copied */
536 struct xtable *down; /* instead of the old array, a list is used */
540 typedef struct exceptiontable { /* exceptiontable entry in a method */
541 s4 startpc; /* start pc of guarded area (inclusive) */
542 s4 endpc; /* end pc of guarded area (exklusive) */
543 s4 handlerpc; /* pc of exception handler */
544 classinfo *catchtype; /* catchtype of exception (NULL == catchall) */
548 /* methodinfo static info ****************************************************/
549 typedef struct xtainfo {
550 s4 XTAmethodUsed; /* XTA if used in callgraph - not used /used */
551 classSet *XTAclassSet; /* method class type set */
552 /*classSet *PartClassSet */ /* method class type set */
554 classSetNode *paramClassSet; /* cone set of methods parameters */
556 methSet *calls; /* methods this method calls */
557 methSet *calledBy; /* methods that call this method */
558 methSet *marked; //not in Dez /* methods that marked by this method */
560 fldSet *fldsUsed; /* fields used by this method */
561 /*methSetNode *interfaceCalls*/ /* methods this method calls as interface */
562 bool chgdSinceLastParse; /* Changed since last parse ? */
566 /* lineinfo *****************************************************************/
572 /* methodinfo *****************************************************************/
574 struct methodinfo { /* method structure */
575 s4 flags; /* ACC flags */
576 utf *name; /* name of method */
577 utf *descriptor; /* JavaVM descriptor string of method */
578 s4 returntype; /* only temporary valid, return type */
579 classinfo *returnclass; /* pointer to classinfo for the rtn type */ /*XTA*/
580 s4 paramcount; /* only temporary valid, parameter count */
581 u1 *paramtypes; /* only temporary valid, parameter types */
582 classinfo **paramclass; /* pointer to classinfo for a parameter */ /*XTA*/
584 classinfo *class; /* class, the method belongs to */
585 s4 vftblindex; /* index of method in virtual function table
586 (if it is a virtual method) */
587 s4 maxstack; /* maximum stack depth of method */
588 s4 maxlocals; /* maximum number of local variables */
589 s4 jcodelength; /* length of JavaVM code */
590 u1 *jcode; /* pointer to JavaVM code */
592 s4 exceptiontablelength;/* exceptiontable length */
593 exceptiontable *exceptiontable; /* the exceptiontable */
595 u2 thrownexceptionscount;/*number of exceptions declared to be thrown by a method*/
596 classinfo **thrownexceptions; /*array of classinfos of declared exceptions*/
598 u2 linenumbercount; /*number of linenumber attributes*/
599 lineinfo *linenumbers; /*array of lineinfo items (start_pc,line_number)*/
601 u1 *stubroutine; /* stub for compiling or calling natives */
602 s4 mcodelength; /* legth of generated machine code */
603 u1 *mcode; /* pointer to machine code */
604 u1 *entrypoint; /* entry point in machine code */
609 s4 methodUsed; /* marked (might be used later) /not used /used */
610 s4 monoPoly; /* call is mono or poly or unknown */ /*RT stats */
611 /* should # method def'd and used be kept after static parse (will it be used?) */
617 /* innerclassinfo *************************************************************/
619 typedef struct innerclassinfo {
620 classinfo *inner_class; /* inner class pointer */
621 classinfo *outer_class; /* outer class pointer */
622 utf *name; /* innerclass name */
623 s4 flags; /* ACC flags */
627 /* classinfo ******************************************************************/
629 struct classinfo { /* class structure */
630 java_objectheader header; /* classes are also objects */
631 java_objectarray* signers;
632 struct java_security_ProtectionDomain* pd;
633 struct java_lang_VMClass* vmClass;
634 struct java_lang_reflect_Constructor* constructor;
636 s4 initializing_thread; /* gnu classpath */
637 s4 erroneous_state; /* gnu classpath */
638 struct gnu_classpath_RawData* vmData; /* gnu classpath */
640 s4 flags; /* ACC flags */
641 utf *name; /* class name */
643 s4 cpcount; /* number of entries in constant pool */
644 u1 *cptags; /* constant pool tags */
645 voidptr *cpinfos; /* pointer to constant pool info structures */
647 classinfo *super; /* super class pointer */
648 classinfo *sub; /* sub class pointer */
649 classinfo *nextsub; /* pointer to next class in sub class list */
651 s4 interfacescount; /* number of interfaces */
652 classinfo **interfaces; /* pointer to interfaces */
654 s4 fieldscount; /* number of fields */
655 fieldinfo *fields; /* field table */
657 s4 methodscount; /* number of methods */
658 methodinfo *methods; /* method table */
660 listnode listnode; /* linkage */
662 bool initialized; /* true, if class already initialised */
663 bool loaded; /* true, if class already loaded */
664 bool linked; /* true, if class already linked */
665 s4 index; /* hierarchy depth (classes) or index
667 s4 instancesize; /* size of an instance of this class */
668 #ifdef SIZE_FROM_CLASSINFO
669 s4 alignedsize; /* size of an instance, aligned to the
670 allocation size on the heap */
673 vftbl *vftbl; /* pointer to virtual function table */
675 methodinfo *finalizer; /* finalizer method */
677 u2 innerclasscount; /* number of inner classes */
678 innerclassinfo *innerclass;
680 classinfo *hashlink; /* link for external hash chain */
681 bool classvftbl; /* has its own copy of the Class vtbl */
683 s4 classUsed; /* 0= not used 1 = used CO-RT */
685 classSetNode *impldBy; /* implemented by class set */
686 utf *packagename; /* full name of the package */
687 utf *sourcefile; /* classfile name containing this class */
688 java_objectheader *classloader; /* 0 for bootstrap classloader */
691 /* check if class is an array class. Only use for linked classes! */
692 #define CLASS_IS_ARRAY(clsinfo) ((clsinfo)->vftbl->arraydesc != NULL)
695 /* virtual function table ******************************************************
697 The vtbl has a bidirectional layout with open ends at both sides.
698 interfacetablelength gives the number of entries of the interface table at
699 the start of the vftbl. The vftbl pointer points to &interfacetable[0].
700 vftbllength gives the number of entries of table at the end of the vftbl.
702 runtime type check (checkcast):
704 Different methods are used for runtime type check depending on the
705 argument of checkcast/instanceof.
707 A check against a class is implemented via relative numbering on the class
708 hierachy tree. The tree is numbered in a depth first traversal setting
709 the base field and the diff field. The diff field gets the result of
710 (high - base) so that a range check can be implemented by an unsigned
711 compare. A sub type test is done by checking the inclusion of base of
712 the sub class in the range of the superclass.
714 A check against an interface is implemented via the interfacevftbl. If the
715 interfacevftbl contains a nonnull value a class is a subclass of this
720 Like standard virtual methods interface methods are called using
721 virtual function tables. All interfaces are numbered sequentially
722 (starting with zero). For each class there exist an interface table
723 of virtual function tables for each implemented interface. The length
724 of the interface table is determined by the highest number of an
725 implemented interface.
727 The following example assumes a class which implements interface 0 and 3:
729 interfacetablelength = 4
732 +-----------+ | method 2 |---> method z
733 | class | | method 1 |---> method y
734 +-----------+ | method 0 |---> method x
735 | ivftbl 0 |----------> +----------+
736 vftblptr ---> +-----------+
737 | ivftbl -1 |--> NULL +----------+
738 | ivftbl -2 |--> NULL | method 1 |---> method x
739 | ivftbl -3 |-----+ | method 0 |---> method a
740 +-----------+ +----> +----------+
747 interfacevftbllength ---> +---------------+
749 *******************************************************************************/
752 methodptr *interfacetable[1]; /* interface table (access via macro) */
754 classinfo *class; /* class, the vtbl belongs to */
756 arraydescriptor *arraydesc; /* for array classes, otherwise NULL */
758 s4 vftbllength; /* virtual function table length */
759 s4 interfacetablelength; /* interface table length */
761 s4 baseval; /* base for runtime type check */
762 /* (-index for interfaces) */
763 s4 diffval; /* high - base for runtime type check */
765 s4 *interfacevftbllength; /* length of interface vftbls */
767 methodptr table[1]; /* class vftbl */
770 #define VFTBLINTERFACETABLE(v,i) (v)->interfacetable[-i]
773 /* arraydescriptor ************************************************************
775 For every array class an arraydescriptor is allocated which
776 describes the array class.
777 The arraydescriptor is referenced from the vftbl of the array
780 *******************************************************************************/
782 struct arraydescriptor {
783 vftbl *componentvftbl; /* vftbl of the component type, NULL for primit. */
784 vftbl *elementvftbl; /* vftbl of the element type, NULL for primitive */
785 short arraytype; /* ARRAYTYPE_* constant */
786 short dimension; /* dimension of the array (always >= 1) */
787 s4 dataoffset; /* offset of the array data from object pointer */
788 s4 componentsize; /* size of a component in bytes */
789 short elementtype; /* ARRAYTYPE_* constant */
793 /* flag variables *************************************************************/
795 extern bool compileall;
796 extern bool runverbose;
797 extern bool verboseexception;
799 extern bool opt_rt; /* Rapid Type Analysis for better inlining CO-RT*/
800 extern bool opt_xta; /* X Type Analysis for better inlining CO-XTA*/
801 extern bool opt_vta; /* Variable Type Analysis for better inlining CO-VTA*/
802 extern bool opt_verify; /* true if classfiles should be verified */
803 #ifdef TYPECHECK_VERBOSE_OPT
804 extern bool typecheckverbose;
807 /*extern int pClassHeir;*/
808 /*extern int pCallgraph;*/
809 /*extern int pOpcodes;*/
810 /*extern int pStats;*/
812 /*extern void RT_jit_parse(methodinfo *m);*/
815 /* statistic variables ********************************************************/
817 extern int count_class_infos;
818 extern int count_const_pool_len;
819 extern int count_vftbl_len;
820 extern int count_utf_len;
821 extern int count_all_methods;
822 extern int count_vmcode_len;
823 extern int count_extable_len;
824 extern int count_class_loads;
825 extern int count_class_inits;
826 extern int count_utf_new;
827 extern int count_utf_new_found;
830 /* table of primitive types ***************************************************/
832 /* This array can be indexed by the PRIMITIVETYPE_ and ARRAYTYPE_
833 * constants (except ARRAYTYPE_OBJECT).
835 extern primitivetypeinfo primitivetype_table[PRIMITIVETYPE_COUNT];
838 /* macros for descriptor parsing **********************************************/
840 /* SKIP_FIELDDESCRIPTOR:
841 * utf_ptr must point to the first character of a field descriptor.
842 * After the macro call utf_ptr points to the first character after
843 * the field descriptor.
845 * CAUTION: This macro does not check for an unexpected end of the
846 * descriptor. Better use SKIP_FIELDDESCRIPTOR_SAFE.
848 #define SKIP_FIELDDESCRIPTOR(utf_ptr) \
849 do { while (*(utf_ptr)=='[') (utf_ptr)++; \
850 if (*(utf_ptr)++=='L') \
851 while(*(utf_ptr)++ != ';') /* skip */; } while(0)
853 /* SKIP_FIELDDESCRIPTOR_SAFE:
854 * utf_ptr must point to the first character of a field descriptor.
855 * After the macro call utf_ptr points to the first character after
856 * the field descriptor.
859 * utf_ptr....points to first char of descriptor
860 * end_ptr....points to first char after the end of the string
861 * errorflag..must be initialized (to false) by the caller!
863 * utf_ptr....points to first char after the descriptor
864 * errorflag..set to true if the string ended unexpectedly
866 #define SKIP_FIELDDESCRIPTOR_SAFE(utf_ptr,end_ptr,errorflag) \
867 do { while ((utf_ptr) != (end_ptr) && *(utf_ptr)=='[') (utf_ptr)++; \
868 if ((utf_ptr) == (end_ptr)) \
869 (errorflag) = true; \
871 if (*(utf_ptr)++=='L') { \
872 while((utf_ptr) != (end_ptr) && *(utf_ptr)++ != ';') \
874 if ((utf_ptr)[-1] != ';') \
875 (errorflag) = true; }} while(0)
878 /* Synchronization ************************************************************/
880 #if defined(USE_THREADS) && defined(NATIVE_THREADS)
883 void compiler_lock();
884 void compiler_unlock();
887 #endif /* _GLOBAL_H */
891 * These are local overrides for various environment variables in Emacs.
892 * Please do not remove this and leave it at the end of the file, where
893 * Emacs will automagically detect them.
894 * ---------------------------------------------------------------------
897 * indent-tabs-mode: t