oobj.h

《移动Agent技术》一书的所有章节源代码。

    unsigned short           methodtable_size;    /* the size of method table */
    unsigned short           slottbl_size;        /* size of slottable */
    unsigned long            instance_size;       /* (bytes) of an instance */ /*ibm.6926*/

    unsigned short access;           /* how this class can be accesses */
    unsigned short flags;            /* see the CCF_* macros */
    struct HArrayOfObject   *signers;
    struct   imethodtable   *imethodtable;
#ifdef JIT_WAY
    struct Hjava_lang_Thread *in_being_clinited;
    struct methodblock       *initializer;
#else
    void                    *init_thread; /* EE of initializing thread */
#endif

    ClassClass          *last_subclass_of;
#ifdef JCOV
    char                    *absolute_source_name;
    int64_t                  timestamp;
#endif
#ifdef JMS_TRL                                              /* ibm.1879 */
    struct fieldblock        *keyfield;   /* potential structuring field */
#endif                                                      /* ibm.1879 */
#ifdef JIT_TRL
    void                     *cha;
#endif
#if defined(JMS_TRL) && ! defined(IBM_HAIFA_GC)                /* ibm.f.6076 */
    /* a flat vector of mark offsets */
    markoffset_t             *markoffsets;
#endif /* JMS_TRL etc. */
#ifdef IBM_HAIFA_GC
    unsigned long           n0;         /*ibm.6565*/
    unsigned long           n;          /*ibm.6565*/
    int                     bin_index;  /*ibm.6565*/
#endif /* IBM_HAIFA_GC */
};

#ifdef JMS_TRL                                                          /*ibm*/
HandleTo(java_lang_Class);        /* Moved all the way down here             */

/* Note: These functions are subject to change, and may be removed */
JHandle* pin_handle(JHandle *h);
void     unpin_handle(JHandle *h);
#endif                                                                  /*ibm*/

extern void FreeClass(ClassClass *cb);
extern void MakeClassSticky(ClassClass *cb);

#define cbAccess(cb)          ((unhand(cb))->access)
#define cbClassname(cb)       ((unhand(cb))->classname)
#define cbConstantPool(cb)    ((unhand(cb))->constantpool)
#define cbConstantPoolCount(cb) ((unhand(cb))->constantpool_count)
#define cbFields(cb)          ((unhand(cb))->fields)
#define cbFieldsCount(cb)     ((unhand(cb))->fields_count)
#define cbFinalizer(cb)       ((unhand(cb))->finalizer)
#define cbFlags(cb)           ((unhand(cb))->flags)
#define cbHandle(cb)          (cb)
#define cbImplements(cb)      ((unhand(cb))->implements)
#define cbImplementsCount(cb) ((unhand(cb))->implements_count)
#define cbInstanceSize(cb)    ((unhand(cb))->instance_size)
#define cbIntfMethodTable(cb) ((unhand(cb))->imethodtable)
#define cbLastSubclassOf(cb)  ((unhand(cb))->last_subclass_of)
#define cbLoader(cb)          ((unhand(cb))->loader)
#define cbMajorVersion(cb)    ((unhand(cb))->major_version)
#define cbMethods(cb)         ((unhand(cb))->methods)
#define cbMethodsCount(cb)    ((unhand(cb))->methods_count)
#define cbMethodTable(cb)     ((unhand(cb))->methodtable)
#define cbMethodTableMem(cb)  ((unhand(cb))->methodtable_mem)
#define cbMethodTableSize(cb) ((unhand(cb))->methodtable_size)
#define cbMinorVersion(cb)    ((unhand(cb))->minor_version)
#define cbName(cb)            ((unhand(cb))->name)
#define cbSigners(cb)         ((unhand(cb))->signers)
#define cbSlotTable(cb)       ((unhand(cb))->slottable)
#define cbSlotTableSize(cb)   ((unhand(cb))->slottbl_size)
#define cbSourceName(cb)      ((unhand(cb))->source_name)
#define cbSuperclass(cb)      ((unhand(cb))->superclass)
#define cbSuperName(cb)       ((unhand(cb))->super_name)
#define cbThisHash(cb)        ((unhand(cb))->hashinfo.cbhash.thishash)
#define cbTotalHash(cb)       ((unhand(cb))->hashinfo.cbhash.totalhash)
#ifdef JIT_WAY
#define cbInBeingClinited(cb) ((unhand(cb))->in_being_clinited)
#define cbInitializer(cb) ((unhand(cb))->initializer)
#else
#define cbInitThread(cb)      ((unhand(cb))->init_thread)
#endif

/*ibm.6565*/
#define cbN0(cb)              ((unhand(cb))->n0)
#define cbN(cb)               ((unhand(cb))->n)
#define cbBinIndex(cb)        ((unhand(cb))->bin_index)
/*ibm.6565*/

#ifdef JCOV
#define cbAbsoluteSourceName(cb) ((unhand(cb))->absolute_source_name)
#define cbTimestamp(cb)       ((unhand(cb))->timestamp)
#endif

#ifdef JMS_TRL                                                   /* ibm.1879 */
#define cbKeyfield(cb) ((unhand(cb))->keyfield)
#endif                                                           /* ibm.1879 */

#if defined(JMS_TRL) && !defined(IBM_HAIFA_GC)                 /* ibm.f.6076 */
#define cbMarkOffsets(cb)     ((unhand(cb))->markoffsets)
#endif /* JMS_TRL etc. */

#ifdef JIT_TRL                                                   /* ibm.6037 */
#define cbCHA(cb) ((unhand(cb))->cha)
#endif                                                           /* ibm.6037 */

#define cbIsInterface(cb)     ((cbAccess(cb) & ACC_INTERFACE) != 0)

/* These are currently only valid for primitive types */
#define cbIsPrimitive(cb)      (CCIs(cb, Primitive))
#define cbTypeCode(cb)         ((unhand(cb))->hashinfo.cbtypeinfo.typecode)
#define cbTypeSig(cb)          ((unhand(cb))->hashinfo.cbtypeinfo.typesig)
#define cbSlotSize(cb)         ((unhand(cb))->hashinfo.cbtypeinfo.slotsize)
#define cbElementSize(cb)      ((unhand(cb))->hashinfo.cbtypeinfo.elementsize)

extern char *classname2string(char *str, char *dst, int size);

#define twoword_static_address(fb) ((fb)->u.static_address)
#define normal_static_address(fb)  (&(fb)->u.static_value)

/* ClassClass flags */
#define CCF_IsSysLock     0x01  /* any instance treated as a "system" lock */
#ifdef JIT_WAY
#define CCF_IsResolved    0x02  /* been resolved yet? */
#else
#define CCF_IsResolved    0x02  /* has <clinit> been run? */
#endif
#define CCF_IsError       0x04  /* Resolution caused an error */
#define CCF_IsSoftRef     0x08  /* whether this is class Ref or subclass */
#define CCF_IsInitialized 0x10  /* whether this is class has been inited */
#define CCF_IsLinked      0x20  /* Has symbolic entries been linked */  /*ibm.5901*/
#define CCF_IsVerified    0x40  /* has the verifier been run */

#define CCF_IsPrimitive   0x100 /* if pseudo-class for a primitive type */
#define CCF_IsReferenced  0x200 /* Class is in use */
#define CCF_IsSticky      0x400 /* Don't unload this class */

#ifdef JIT_WAY                                                          /*ibm*/
#define CCF_IsClinited    0x800 /* whether <clinit> been executed yet? */
#endif                                                                  /*ibm*/

#ifdef IBM_ALL                                                          /*ibm.2191*/
#define CCF_IsBeingInitialized 0x1000 /* if this class is being inited */
#define CCF_IsBeingLinked      0x2000 /* if this class is being linked */
#endif                                                                  /*ibm.2191*/

#ifdef IBM_OBJCALLOC                                                    /*ibm.5185*/
#define CCF_IsPinned     0x4000 /* whether its instance is likely pinned. */
#endif                                                                  /*ibm.5185*/

#define CCIs(cb,flag) (((unhand(cb))->flags & CCF_Is##flag) != 0)
#define CCSet(cb,flag) ((unhand(cb))->flags |= CCF_Is##flag)
#define CCClear(cb,flag) ((unhand(cb))->flags &= ~CCF_Is##flag)

/* map from pc to line number */
struct lineno {
    unsigned long pc,
    line_number;
};

extern struct lineno *lntbl;
extern long lntsize, lntused;

#ifdef JCOV
struct covtable {
    unsigned long pc,
      type,
      where,
      count;
};
#endif

/* Symbol table entry for local variables and parameters.
   pc0/length defines the range that the variable is valid, slot
   is the position in the local variable array in ExecEnv.
   nameoff and sigoff are offsets into the string table for the
   variable name and type signature.  A variable is defined with
   DefineVariable, and at that time, the node for that name is
   stored in the localvar entry.  When code generate is completed
   for a particular scope, a second pass it made to replace the
   src node entry with the correct length. */

struct localvar {
    long pc0;                   /* starting pc for this variable */
    long length;                /* -1 initially, end pc - pc when we're done */
    short nameoff;              /* offset into string table */
    short sigoff;               /* offset into string table */
    long slot;                  /* local variable slot */
};

/* Try/catch is implemented as follows.  On a per class basis,
   there is a catch frame handler (below) for each catch frame
   that appears in the source.  It contains the pc range of the
   corresponding try body, a pc to jump to in the event that that
   handler is chosen, and a catchType which must match the object
   being thrown if that catch handler is to be taken.

   The list of catch frames are sorted by pc.  If one range is
   inside another, then outer most range (the one that encompasses
   the other) appears last in the list.  Therefore, it is possible
   to search forward, and the first one that matches is the
   innermost one.

   Methods with catch handlers will layout the code without the
   catch frames.  After all the code is generated, the catch
   clauses are generated and table entries are created.

   When the class is complete, the table entries are dumped along
   with the rest of the class. */

struct CatchFrame {
    long    start_pc, end_pc;   /* pc range of corresponding try block */
    long    handler_pc;         /* pc of catch handler */
    void*   compiled_CatchFrame; /* space to be used by machine code */
    short   catchType;          /* type of catch parameter */
};

#define MC_SUPER        (1<<5)
#define MC_NARGSMASK    (MC_SUPER-1)
#define MC_INT          (0<<6)
#define MC_FLOAT        (1<<6)
#define MC_VOID         (2<<6)
#define MC_OTHER        (3<<6)
#define MC_TYPEMASK     (3<<6)

enum {
    CONSTANT_Utf8 = 1,
    CONSTANT_Unicode,           /* unused */
    CONSTANT_Integer,
    CONSTANT_Float,
    CONSTANT_Long,
    CONSTANT_Double,
    CONSTANT_Class,
    CONSTANT_String,
    CONSTANT_Fieldref,
    CONSTANT_Methodref,
    CONSTANT_InterfaceMethodref,
    CONSTANT_NameAndType
};

union cp_item_type {
    int i;
    float_t f;                                                  /*ibm.1229*/
    char *cp;
    unsigned char *type;                /* for type table */
    ClassClass *clazz;
    struct methodblock *mb;
    struct fieldblock *fb;
    struct Hjava_lang_String *str;
    void *p;                            /* for very rare occassions */
};

typedef union cp_item_type cp_item_type;

#define CONSTANT_POOL_ENTRY_RESOLVED 0x80
#define CONSTANT_POOL_ENTRY_TYPEMASK 0x7F
#define CONSTANT_POOL_TYPE_TABLE_GET(cp,i) (((unsigned char *)(cp))[i])
#define CONSTANT_POOL_TYPE_TABLE_PUT(cp,i,v) (CONSTANT_POOL_TYPE_TABLE_GET(cp,i) = (v))
#define CONSTANT_POOL_TYPE_TABLE_SET_RESOLVED(cp,i) \
        (CONSTANT_POOL_TYPE_TABLE_GET(cp,i) |= CONSTANT_POOL_ENTRY_RESOLVED)
#define CONSTANT_POOL_TYPE_TABLE_IS_RESOLVED(cp,i) \
        ((CONSTANT_POOL_TYPE_TABLE_GET(cp,i) & CONSTANT_POOL_ENTRY_RESOLVED) != 0)
#define CONSTANT_POOL_TYPE_TABLE_GET_TYPE(cp,i) \
        (CONSTANT_POOL_TYPE_TABLE_GET(cp,i) & CONSTANT_POOL_ENTRY_TYPEMASK)

#define CONSTANT_POOL_TYPE_TABLE_INDEX 0
#define CONSTANT_POOL_UNUSED_INDEX 1

/* The following are used by the constant pool of "array" classes. */

#define CONSTANT_POOL_ARRAY_DEPTH_INDEX 1
#define CONSTANT_POOL_ARRAY_TYPE_INDEX 2
#define CONSTANT_POOL_ARRAY_CLASS_INDEX 3
#define CONSTANT_POOL_ARRAY_LENGTH 4

/*
 * Package shorthand: this isn't obviously the correct place.
 */
#define JAVAPKG         "java/lang/"
#define JAVAIOPKG       "java/io/"
#define JAVANETPKG      "java/net/"

#endif

#endif /* !_OOBJ_H_ */