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 1510 2004-11-17 11:33:44Z twisti $
45 #include "toolbox/list.h"
48 #if defined(USE_THREADS) && defined(NATIVE_THREADS)
50 #include <semaphore.h>
53 #define STATISTICS /* if enabled collects program statistics */
56 * SIZE_FROM_CLASSINFO toggles between the bitmap_based and the new method
57 * of determining the sizes of objects on the heap.
59 #define SIZE_FROM_CLASSINFO
62 * CACAO_TYPECHECK activates typechecking (part of bytecode verification)
64 #define CACAO_TYPECHECK
67 * TYPECHECK_STACK_COMPCAT activates full checking of computational
68 * categories for stack manipulations (POP,POP2,SWAP,DUP,DUP2,DUP_X1,
69 * DUP2_X1,DUP_X2,DUP2_X2).
71 #define TYPECHECK_STACK_COMPCAT
74 * Macros for configuration of the typechecking code
76 * TYPECHECK_STATISTICS activates gathering statistical information.
77 * TYPEINFO_DEBUG activates debug checks and debug helpers in typeinfo.c
78 * TYPECHECK_DEBUG activates debug checks in typecheck.c
79 * TYPEINFO_DEBUG_TEST activates the typeinfo test at startup.
80 * TYPECHECK_VERBOSE_IMPORTANT activates important debug messages
81 * TYPECHECK_VERBOSE activates all debug messages
83 #ifdef CACAO_TYPECHECK
84 /*#define TYPECHECK_STATISTICS
85 #define TYPEINFO_DEBUG
86 #define TYPECHECK_DEBUG
87 #define TYPEINFO_DEBUG_TEST
88 #define TYPECHECK_VERBOSE
89 #define TYPECHECK_VERBOSE_IMPORTANT*/
90 #if defined(TYPECHECK_VERBOSE) || defined(TYPECHECK_VERBOSE_IMPORTANT)
91 #define TYPECHECK_VERBOSE_OPT
96 /* additional data types ******************************************************/
98 typedef void *voidptr; /* generic pointer */
99 typedef void (*functionptr) (); /* generic function pointer */
101 typedef int bool; /* boolean data type */
107 /* immediate data union */
120 #define PRIMITIVETYPE_COUNT 9 /* number of primitive types */
122 /* CAUTION: Don't change the numerical values! These constants are
123 * used as indices into the primitive type table.
125 #define PRIMITIVETYPE_INT 0
126 #define PRIMITIVETYPE_LONG 1
127 #define PRIMITIVETYPE_FLOAT 2
128 #define PRIMITIVETYPE_DOUBLE 3
129 #define PRIMITIVETYPE_BYTE 4
130 #define PRIMITIVETYPE_CHAR 5
131 #define PRIMITIVETYPE_SHORT 6
132 #define PRIMITIVETYPE_BOOLEAN 7
133 #define PRIMITIVETYPE_VOID 8
136 #define MAX_ALIGN 8 /* most generic alignment for JavaVM values */
139 /* basic data types ***********************************************************/
141 /* CAUTION: jit/jit.h relies on these numerical values! */
142 #define TYPE_INT 0 /* the JavaVM types must numbered in the */
143 #define TYPE_LONG 1 /* same order as the ICMD_Ixxx to ICMD_Axxx */
144 #define TYPE_FLOAT 2 /* instructions (LOAD and STORE) */
145 #define TYPE_DOUBLE 3 /* integer, long, float, double, address */
146 #define TYPE_ADDRESS 4 /* all other types can be numbered arbitrarly */
151 /* Java class file constants **************************************************/
153 #define MAGIC 0xcafebabe
154 #define MINOR_VERSION 0
155 #define MAJOR_VERSION 48
157 #define CONSTANT_Class 7
158 #define CONSTANT_Fieldref 9
159 #define CONSTANT_Methodref 10
160 #define CONSTANT_InterfaceMethodref 11
161 #define CONSTANT_String 8
162 #define CONSTANT_Integer 3
163 #define CONSTANT_Float 4
164 #define CONSTANT_Long 5
165 #define CONSTANT_Double 6
166 #define CONSTANT_NameAndType 12
167 #define CONSTANT_Utf8 1
169 #define CONSTANT_UNUSED 0
171 #define ACC_PUBLIC 0x0001
172 #define ACC_PRIVATE 0x0002
173 #define ACC_PROTECTED 0x0004
174 #define ACC_STATIC 0x0008
175 #define ACC_FINAL 0x0010
176 #define ACC_SUPER 0x0020
177 #define ACC_SYNCHRONIZED 0x0020
178 #define ACC_VOLATILE 0x0040
179 #define ACC_TRANSIENT 0x0080
180 #define ACC_NATIVE 0x0100
181 #define ACC_INTERFACE 0x0200
182 #define ACC_ABSTRACT 0x0400
183 #define ACC_STRICT 0x0800
185 /* resolve typedef cycles *****************************************************/
187 typedef struct utf utf;
188 typedef struct literalstring literalstring;
189 typedef struct java_objectheader java_objectheader;
190 typedef struct classinfo classinfo;
191 typedef struct _vftbl vftbl_t;
192 typedef u1* methodptr;
193 typedef struct fieldinfo fieldinfo;
194 typedef struct exceptiontable exceptiontable;
195 typedef struct methodinfo methodinfo;
196 typedef struct lineinfo lineinfo;
197 typedef struct arraydescriptor arraydescriptor;
200 /* constant pool entries *******************************************************
202 All constant pool entries need a data structure which contain the entrys
203 value. In some cases this structure exist already, in the remaining cases
204 this structure must be generated:
206 kind structure generated?
207 ----------------------------------------------------------------------
208 CONSTANT_Class classinfo no
209 CONSTANT_Fieldref constant_FMIref yes
210 CONSTANT_Methodref constant_FMIref yes
211 CONSTANT_InterfaceMethodref constant_FMIref yes
212 CONSTANT_String unicode no
213 CONSTANT_Integer constant_integer yes
214 CONSTANT_Float constant_float yes
215 CONSTANT_Long constant_long yes
216 CONSTANT_Double constant_double yes
217 CONSTANT_NameAndType constant_nameandtype yes
218 CONSTANT_Utf8 unicode no
221 *******************************************************************************/
223 /* data structures for hashtables ********************************************
226 All utf-symbols, javastrings and classes are stored in global hashtables,
227 so every symbol exists only once. Equal symbols have identical pointers.
228 The functions for adding hashtable elements search the table for the
229 element with the specified name/text and return it on success. Otherwise a
230 new hashtable element is created.
232 The hashtables use external linking for handling collisions. The hashtable
233 structure contains a pointer <ptr> to the array of hashtable slots. The
234 number of hashtable slots and therefore the size of this array is specified
235 by the element <size> of hashtable structure. <entries> contains the number
236 of all hashtable elements stored in the table, including those in the
238 The hashtable element structures (utf, literalstring, classinfo) contain
239 both a pointer to the next hashtable element as a link for the external hash
240 chain and the key of the element. The key is computed from the text of
241 the string or the classname by using up to 8 characters.
243 If the number of entries in the hashtable exceeds twice the size of the
244 hashtableslot-array it is supposed that the average length of the
245 external chains has reached a value beyond 2. Therefore the functions for
246 adding hashtable elements (utf_new, class_new, literalstring_new) double
247 the hashtableslot-array. In this restructuring process all elements have
248 to be inserted into the new hashtable and new external chains must be built.
251 example for the layout of a hashtable:
253 hashtable.ptr--> +-------------------+
257 +-------------------+ +-------------------+ +-------------------+
258 | hashtable element |-->| hashtable element |-->| hashtable element |-->NULL
259 +-------------------+ +-------------------+ +-------------------+
260 | hashtable element |
261 +-------------------+ +-------------------+
262 | hashtable element |-->| hashtable element |-->NULL
263 +-------------------+ +-------------------+
264 | hashtable element |-->NULL
265 +-------------------+
269 +-------------------+
274 /* data structure for utf8 symbols ********************************************/
277 utf *hashlink; /* link for external hash chain */
278 int blength; /* text length in bytes */
279 char *text; /* pointer to text */
283 /* data structure of internal javastrings stored in global hashtable **********/
285 struct literalstring {
286 literalstring *hashlink; /* link for external hash chain */
287 java_objectheader *string;
291 /* data structure for storing information needed for a stacktrace across native functions*/
292 struct native_stackframeinfo {
293 void *oldThreadspecificHeadValue;
294 void **addressOfThreadspecificHead;
296 void *returnToFromNative;
299 void *returnFromNative;
300 void *addrReturnFromNative;
302 struct native_stackframeinfo *next;
303 struct native_stackframeinfo *prev;
307 typedef struct native_stackframeinfo native_stackframeinfo;
309 struct stacktraceelement {
318 typedef struct stacktraceelement stacktraceelement;
320 /* data structure for calls from c code to java methods */
322 struct jni_callblock {
327 typedef struct jni_callblock jni_callblock;
330 /* data structure for accessing hashtables ************************************/
334 u4 entries; /* number of entries in the table */
335 void **ptr; /* pointer to hashtable */
339 /* data structures of remaining constant pool entries *************************/
341 typedef struct { /* Fieldref, Methodref and InterfaceMethodref */
342 classinfo *class; /* class containing this field/method/interface */
343 utf *name; /* field/method/interface name */
344 utf *descriptor; /* field/method/interface type descriptor string */
348 typedef struct { /* Integer */
353 typedef struct { /* Float */
358 typedef struct { /* Long */
363 typedef struct { /* Double */
368 typedef struct { /* NameAndType (Field or Method) */
369 utf *name; /* field/method name */
370 utf *descriptor; /* field/method type descriptor string */
371 } constant_nameandtype;
374 /* data structures of the runtime system **************************************/
376 /* objects *********************************************************************
378 All objects (and arrays) which resides on the heap need the following
379 header at the beginning of the data structure.
382 struct java_objectheader { /* header for all objects */
383 vftbl_t *vftbl; /* pointer to virtual function table */
384 #if defined(USE_THREADS) && defined(NATIVE_THREADS)
391 /* arrays **********************************************************************
393 All arrays are objects (they need the object header with a pointer
394 to a vftbl (array class table). There is one class for each array
395 type. The array type is described by an arraydescriptor struct
396 which is referenced by the vftbl.
399 /* CAUTION: Don't change the numerical values! These constants (with
400 * the exception of ARRAYTYPE_OBJECT) are used as indices in the
401 * primitive type table.
403 #define ARRAYTYPE_INT PRIMITIVETYPE_INT
404 #define ARRAYTYPE_LONG PRIMITIVETYPE_LONG
405 #define ARRAYTYPE_FLOAT PRIMITIVETYPE_FLOAT
406 #define ARRAYTYPE_DOUBLE PRIMITIVETYPE_DOUBLE
407 #define ARRAYTYPE_BYTE PRIMITIVETYPE_BYTE
408 #define ARRAYTYPE_CHAR PRIMITIVETYPE_CHAR
409 #define ARRAYTYPE_SHORT PRIMITIVETYPE_SHORT
410 #define ARRAYTYPE_BOOLEAN PRIMITIVETYPE_BOOLEAN
411 #define ARRAYTYPE_OBJECT PRIMITIVETYPE_VOID /* don't use as index! */
413 typedef struct java_arrayheader { /* header for all arrays */
414 java_objectheader objheader; /* object header */
415 s4 size; /* array size */
416 #ifdef SIZE_FROM_CLASSINFO
417 s4 alignedsize; /* phil */
423 /* structs for all kinds of arrays ********************************************/
425 typedef struct java_chararray {
426 java_arrayheader header;
430 typedef struct java_floatheader {
431 java_arrayheader header;
435 typedef struct java_doublearray {
436 java_arrayheader header;
440 /* booleanarray and bytearray need identical memory layout (access methods
441 use the same machine code */
443 typedef struct java_booleanarray {
444 java_arrayheader header;
448 typedef struct java_bytearray {
449 java_arrayheader header;
453 typedef struct java_shortarray {
454 java_arrayheader header;
458 typedef struct java_intarray {
459 java_arrayheader header;
463 typedef struct java_longarray {
464 java_arrayheader header;
468 /* objectarray and arrayarray need identical memory layout (access methods
469 use the same machine code */
471 typedef struct java_objectarray {
472 java_arrayheader header;
473 java_objectheader *data[1];
477 /* structure for primitive classes ********************************************/
479 typedef struct primitivetypeinfo {
480 classinfo *class_wrap; /* class for wrapping primitive type */
481 classinfo *class_primitive; /* primitive class */
482 char *wrapname; /* name of class for wrapping */
483 char typesig; /* one character type signature */
484 char *name; /* name of primitive class */
485 char *arrayname; /* name of primitive array class */
486 classinfo *arrayclass; /* primitive array class */
487 vftbl_t *arrayvftbl; /* vftbl of primitive array class */
491 /* field, method and class structures *****************************************/
493 #include "jit/sets.h"
494 typedef struct xtafldinfo {
496 classinfo *fldClassType;
497 classSet *XTAclassSet; /* field class type set */
501 /* fieldinfo ******************************************************************/
503 struct fieldinfo { /* field of a class */
504 s4 flags; /* ACC flags */
505 s4 type; /* basic data type */
506 utf *name; /* name of field */
507 utf *descriptor; /* JavaVM descriptor string of field */
509 s4 offset; /* offset from start of object (instance variables) */
511 imm_union value; /* storage for static values (class variables) */
513 classinfo *class; /* needed by typechecker. Could be optimized */
514 /* away by using constant_FMIref instead of */
515 /* fieldinfo throughout the compiler. */
521 /* exceptiontable *************************************************************/
523 struct exceptiontable { /* 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 exceptiontable *next; /* used to build a list of exception when */
535 /* loops are copied */
536 exceptiontable *down; /* instead of the old array, a list is used */
540 /* methodinfo static info ****************************************************/
542 typedef struct xtainfo {
543 s4 XTAmethodUsed; /* XTA if used in callgraph - not used /used */
544 classSet *XTAclassSet; /* method class type set */
545 /*classSet *PartClassSet */ /* method class type set */
547 classSetNode *paramClassSet; /* cone set of methods parameters */
549 methSet *calls; /* methods this method calls */
550 methSet *calledBy; /* methods that call this method */
551 methSet *marked; /*not in Dez*/ /* methods that marked by this method */
553 fldSet *fldsUsed; /* fields used by this method */
554 /*methSetNode *interfaceCalls*/ /* methods this method calls as interface */
555 bool chgdSinceLastParse; /* Changed since last parse ? */
559 /* lineinfo *****************************************************************/
567 /* methodinfo *****************************************************************/
569 struct methodinfo { /* method structure */
570 java_objectheader header; /* we need this in jit's monitorenter */
571 s4 flags; /* ACC flags */
572 utf *name; /* name of method */
573 utf *descriptor; /* JavaVM descriptor string of method */
574 s4 returntype; /* only temporary valid, return type */
575 classinfo *returnclass; /* pointer to classinfo for the rtn type */ /*XTA*/
576 s4 paramcount; /* only temporary valid, parameter count */
577 u1 *paramtypes; /* only temporary valid, parameter types */
578 classinfo **paramclass; /* pointer to classinfo for a parameter */ /*XTA*/
580 bool isleafmethod; /* does method call subroutines */
582 classinfo *class; /* class, the method belongs to */
583 s4 vftblindex; /* index of method in virtual function */
584 /* table (if it is a virtual method) */
585 s4 maxstack; /* maximum stack depth of method */
586 s4 maxlocals; /* maximum number of local variables */
587 s4 jcodelength; /* length of JavaVM code */
588 u1 *jcode; /* pointer to JavaVM code */
590 s4 basicblockcount; /* number of basic blocks */
591 struct basicblock *basicblocks; /* points to basic block array */
592 s4 *basicblockindex; /* a table which contains for every byte */
593 /* of JavaVM code a basic block index if */
594 /* at this byte is the start of a basic */
597 s4 instructioncount; /* number of JavaVM instructions */
598 struct instruction *instructions; /* points to intermediate code instructions */
600 s4 stackcount; /* number of stack elements */
601 struct stackelement *stack; /* points to intermediate code instructions */
603 s4 exceptiontablelength;/* exceptiontable length */
604 exceptiontable *exceptiontable; /* the exceptiontable */
606 u2 thrownexceptionscount;/* number of exceptions attribute */
607 classinfo **thrownexceptions; /* checked exceptions a method may throw */
609 u2 linenumbercount; /* number of linenumber attributes */
610 lineinfo *linenumbers; /* array of lineinfo items */
612 int c_debug_nr; /* a counter to number all BB with an */
615 u1 *stubroutine; /* stub for compiling or calling natives */
616 s4 mcodelength; /* legth of generated machine code */
617 functionptr mcode; /* pointer to machine code */
618 functionptr entrypoint; /* entry point in machine code */
623 s4 methodUsed; /* marked (might be used later) /not used /used */
624 s4 monoPoly; /* call is mono or poly or unknown */ /*RT stats */
625 /* should # method def'd and used be kept after static parse (will it be used?) */
628 s4 nativelyoverloaded; /* used in header.c and only valid there */
632 /* innerclassinfo *************************************************************/
634 typedef struct innerclassinfo {
635 classinfo *inner_class; /* inner class pointer */
636 classinfo *outer_class; /* outer class pointer */
637 utf *name; /* innerclass name */
638 s4 flags; /* ACC flags */
642 /* classinfo ******************************************************************/
644 struct classinfo { /* class structure */
645 java_objectheader header; /* classes are also objects */
646 java_objectarray* signers;
647 struct java_security_ProtectionDomain* pd;
648 struct java_lang_VMClass* vmClass;
649 struct java_lang_reflect_Constructor* constructor;
651 s4 initializing_thread; /* gnu classpath */
652 s4 erroneous_state; /* gnu classpath */
653 struct gnu_classpath_RawData* vmData; /* gnu classpath */
655 s4 flags; /* ACC flags */
656 utf *name; /* class name */
658 s4 cpcount; /* number of entries in constant pool */
659 u1 *cptags; /* constant pool tags */
660 voidptr *cpinfos; /* pointer to constant pool info structures */
662 classinfo *super; /* super class pointer */
663 classinfo *sub; /* sub class pointer */
664 classinfo *nextsub; /* pointer to next class in sub class list */
666 s4 interfacescount; /* number of interfaces */
667 classinfo **interfaces; /* pointer to interfaces */
669 s4 fieldscount; /* number of fields */
670 fieldinfo *fields; /* field table */
672 s4 methodscount; /* number of methods */
673 methodinfo *methods; /* method table */
675 listnode listnode; /* linkage */
677 bool initialized; /* true, if class already initialized */
678 bool initializing; /* flag for the compiler */
679 bool loaded; /* true, if class already loaded */
680 bool linked; /* true, if class already linked */
681 s4 index; /* hierarchy depth (classes) or index */
683 s4 instancesize; /* size of an instance of this class */
684 #ifdef SIZE_FROM_CLASSINFO
685 s4 alignedsize; /* size of an instance, aligned to the */
686 /* allocation size on the heap */
689 vftbl_t *vftbl; /* pointer to virtual function table */
691 methodinfo *finalizer; /* finalizer method */
693 u2 innerclasscount; /* number of inner classes */
694 innerclassinfo *innerclass;
696 classinfo *hashlink; /* link for external hash chain */
697 bool classvftbl; /* has its own copy of the Class vtbl */
699 s4 classUsed; /* 0= not used 1 = used CO-RT */
701 classSetNode *impldBy; /* implemented by class set */
702 utf *packagename; /* full name of the package */
703 utf *sourcefile; /* classfile name containing this class */
704 java_objectheader *classloader; /* NULL for bootstrap classloader */
707 /* check if class is an array class. Only use for linked classes! */
708 #define CLASS_IS_ARRAY(clsinfo) ((clsinfo)->vftbl->arraydesc != NULL)
711 /* virtual function table ******************************************************
713 The vtbl has a bidirectional layout with open ends at both sides.
714 interfacetablelength gives the number of entries of the interface table at
715 the start of the vftbl. The vftbl pointer points to &interfacetable[0].
716 vftbllength gives the number of entries of table at the end of the vftbl.
718 runtime type check (checkcast):
720 Different methods are used for runtime type check depending on the
721 argument of checkcast/instanceof.
723 A check against a class is implemented via relative numbering on the class
724 hierachy tree. The tree is numbered in a depth first traversal setting
725 the base field and the diff field. The diff field gets the result of
726 (high - base) so that a range check can be implemented by an unsigned
727 compare. A sub type test is done by checking the inclusion of base of
728 the sub class in the range of the superclass.
730 A check against an interface is implemented via the interfacevftbl. If the
731 interfacevftbl contains a nonnull value a class is a subclass of this
736 Like standard virtual methods interface methods are called using
737 virtual function tables. All interfaces are numbered sequentially
738 (starting with zero). For each class there exist an interface table
739 of virtual function tables for each implemented interface. The length
740 of the interface table is determined by the highest number of an
741 implemented interface.
743 The following example assumes a class which implements interface 0 and 3:
745 interfacetablelength = 4
748 +-----------+ | method 2 |---> method z
749 | class | | method 1 |---> method y
750 +-----------+ | method 0 |---> method x
751 | ivftbl 0 |----------> +----------+
752 vftblptr ---> +-----------+
753 | ivftbl -1 |--> NULL +----------+
754 | ivftbl -2 |--> NULL | method 1 |---> method x
755 | ivftbl -3 |-----+ | method 0 |---> method a
756 +-----------+ +----> +----------+
763 interfacevftbllength ---> +---------------+
765 *******************************************************************************/
768 methodptr *interfacetable[1]; /* interface table (access via macro) */
770 classinfo *class; /* class, the vtbl belongs to */
772 arraydescriptor *arraydesc; /* for array classes, otherwise NULL */
774 s4 vftbllength; /* virtual function table length */
775 s4 interfacetablelength; /* interface table length */
777 s4 baseval; /* base for runtime type check */
778 /* (-index for interfaces) */
779 s4 diffval; /* high - base for runtime type check */
781 s4 *interfacevftbllength; /* length of interface vftbls */
783 methodptr table[1]; /* class vftbl */
786 #define VFTBLINTERFACETABLE(v,i) (v)->interfacetable[-i]
789 /* arraydescriptor ************************************************************
791 For every array class an arraydescriptor is allocated which
792 describes the array class.
793 The arraydescriptor is referenced from the vftbl of the array
796 *******************************************************************************/
798 struct arraydescriptor {
799 vftbl_t *componentvftbl; /* vftbl of the component type, NULL for primit. */
800 vftbl_t *elementvftbl; /* vftbl of the element type, NULL for primitive */
801 s2 arraytype; /* ARRAYTYPE_* constant */
802 s2 dimension; /* dimension of the array (always >= 1) */
803 s4 dataoffset; /* offset of the array data from object pointer */
804 s4 componentsize; /* size of a component in bytes */
805 s2 elementtype; /* ARRAYTYPE_* constant */
809 /* flag variables *************************************************************/
811 extern bool cacao_initializing;
813 #ifdef TYPECHECK_VERBOSE_OPT
814 extern bool typecheckverbose;
817 /*extern int pClassHeir;*/
818 /*extern int pCallgraph;*/
819 /*extern int pOpcodes;*/
820 /*extern int pStats;*/
822 /*extern void RT_jit_parse(methodinfo *m);*/
825 /* table of primitive types ***************************************************/
827 /* This array can be indexed by the PRIMITIVETYPE_ and ARRAYTYPE_
828 * constants (except ARRAYTYPE_OBJECT).
830 extern primitivetypeinfo primitivetype_table[PRIMITIVETYPE_COUNT];
833 /* macros for descriptor parsing **********************************************/
835 /* SKIP_FIELDDESCRIPTOR:
836 * utf_ptr must point to the first character of a field descriptor.
837 * After the macro call utf_ptr points to the first character after
838 * the field descriptor.
840 * CAUTION: This macro does not check for an unexpected end of the
841 * descriptor. Better use SKIP_FIELDDESCRIPTOR_SAFE.
843 #define SKIP_FIELDDESCRIPTOR(utf_ptr) \
844 do { while (*(utf_ptr)=='[') (utf_ptr)++; \
845 if (*(utf_ptr)++=='L') \
846 while(*(utf_ptr)++ != ';') /* skip */; } while(0)
848 /* SKIP_FIELDDESCRIPTOR_SAFE:
849 * utf_ptr must point to the first character of a field descriptor.
850 * After the macro call utf_ptr points to the first character after
851 * the field descriptor.
854 * utf_ptr....points to first char of descriptor
855 * end_ptr....points to first char after the end of the string
856 * errorflag..must be initialized (to false) by the caller!
858 * utf_ptr....points to first char after the descriptor
859 * errorflag..set to true if the string ended unexpectedly
861 #define SKIP_FIELDDESCRIPTOR_SAFE(utf_ptr,end_ptr,errorflag) \
862 do { while ((utf_ptr) != (end_ptr) && *(utf_ptr)=='[') (utf_ptr)++; \
863 if ((utf_ptr) == (end_ptr)) \
864 (errorflag) = true; \
866 if (*(utf_ptr)++=='L') { \
867 while((utf_ptr) != (end_ptr) && *(utf_ptr)++ != ';') \
869 if ((utf_ptr)[-1] != ';') \
870 (errorflag) = true; }} while(0)
873 /* Synchronization ************************************************************/
875 #if defined(USE_THREADS) && defined(NATIVE_THREADS)
878 void compiler_lock();
879 void compiler_unlock();
882 #endif /* _GLOBAL_H */
886 * These are local overrides for various environment variables in Emacs.
887 * Please do not remove this and leave it at the end of the file, where
888 * Emacs will automagically detect them.
889 * ---------------------------------------------------------------------
892 * indent-tabs-mode: t