/*
* load a Global Symbols block
*/
void CVmImageLoader::load_gsym(VMG_ ulong siz)
{
char buf[TOK_SYM_MAX_LEN + 128];
/*
* if there's no global symbol table, merely load into the runtime
* symbol table, since we don't seem to need the information for
* debugging
*/
if (G_prs->get_global_symtab() == 0)
{
/* load it into the runtime reflection symbol table */
load_runtime_symtab_from_gsym(vmg_ siz);
/* we're done */
return;
}
/*
* remember the starting seek position and size, so we can re-read the
* block into the runtime symbol table
*/
long init_seek_pos = fp_->get_seek();
ulong init_siz = siz;
/*
* note that we have a GSYM block - this implies that the image was
* linked for debugging
*/
has_gsym_ = TRUE;
/* read the symbol count */
read_data(buf, 4, &siz);
ulong cnt = t3rp4u(buf);
/* read the symbols and populate the global symbol table */
for ( ; cnt != 0 ; --cnt)
{
char *sym_name;
size_t sym_len;
size_t dat_len;
CTcSymbol *sym;
tc_symtype_t sym_type;
char *dat;
/* read the symbol's length, extra data length, and type code */
read_data(buf, 6, &siz);
sym_len = osrp2(buf);
dat_len = osrp2(buf + 2);
sym_type = (tc_symtype_t)osrp2(buf + 4);
/* check the lengths to make sure they don't overflow our buffer */
if (sym_len > TOK_SYM_MAX_LEN)
{
/*
* this symbol name is too long - skip the symbol and its
* extra data entirely
*/
skip_data(sym_len + dat_len, &siz);
/* go on to the next symbol */
continue;
}
else if (dat_len + sym_len > sizeof(buf))
{
/*
* the extra data block is too long - truncate the extra
* data so that we don't overflow our buffer, but proceed
* anyway with the truncated extra data
*/
read_data(buf, sizeof(buf), &siz);
/* skip the remainder of the extra data */
skip_data(sym_len + dat_len - sizeof(buf), &siz);
}
else
{
/* read the symbol's name and its type-specific data */
read_data(buf, sym_len + dat_len, &siz);
}
/* get the pointer to the extra data (after the name) */
dat = buf + sym_len;
/*
* allocate a copy of the symbol name in parser memory - this is
* necessary because the symbol objects themselves always come
* from parser memory, and hence never get individually deleted
*/
sym_name = (char *)G_prsmem->alloc(sym_len);
memcpy(sym_name, buf, sym_len);
/* create the new symbol table entry, depending on its type */
switch(sym_type)
{
case TC_SYM_FUNC:
/* create the function symbol */
sym = new CTcSymFunc(
sym_name, sym_len, FALSE,
(int)osrp2(dat + 4), /* argc */
/*
* the optional argument count is present in 3.1+ records,
* which are at least 10 bytes; otherwise there aren't any
* optional arguments
*/
(dat_len >= 10 ? osrp2(dat+8) : 0), /* opt_argc */
dat[6] != 0, /* varargs */
dat[7] != 0, /* has_retval */
FALSE, /* is_multimethod */
FALSE, /* is_multimethod_base */
FALSE); /* is_extern */
/* add the reverse mapping entry */
G_debugger->add_rev_sym(sym_name, sym_len, sym_type, t3rp4u(dat));
/* set the function's absolute address */
((CTcSymFunc *)sym)->set_abs_addr(t3rp4u(dat));
break;
case TC_SYM_OBJ:
/* create the object symbol */
sym = new CTcSymObj(sym_name, sym_len, FALSE, t3rp4u(dat), FALSE,
TC_META_TADSOBJ, 0);
/* if there's a modifying object, store it */
if (dat_len >= 8)
((CTcSymObj *)sym)->set_modifying_obj_id(t3rp4u(dat + 4));
else
((CTcSymObj *)sym)->set_modifying_obj_id(VM_INVALID_OBJ);
/* add the reverse mapping entry */
G_debugger->add_rev_sym(sym_name, sym_len, sym_type, t3rp4u(dat));
break;
case TC_SYM_PROP:
/* create the property symbol */
sym = new CTcSymProp(sym_name, sym_len, FALSE, osrp2(dat));
/* set the 'dictionary property' flag if present */
if (dat_len >= 3 && (buf[2] & 1) != 0)
((CTcSymProp *)sym)->set_vocab(TRUE);
/* add the reverse mapping entry */
G_debugger->add_rev_sym(sym_name, sym_len, sym_type, osrp2(dat));
break;
case TC_SYM_ENUM:
/* create the enumerator symbol */
sym = new CTcSymEnum(sym_name, sym_len, FALSE,
t3rp4u(dat),
(dat_len >= 5 && (buf[4] & 1) != 0));
/* add the reverse mapping entry */
G_debugger->add_rev_sym(sym_name, sym_len, sym_type, t3rp4u(dat));
break;
case TC_SYM_BIF:
/* create the built-in function symbol */
sym = new CTcSymBif(sym_name, sym_len, FALSE,
osrp2(dat + 2), /* function set ID */
osrp2(dat), /* function index */
dat[4] != 0, /* has_retval */
osrp2(dat + 5), /* min_argc */
osrp2(dat + 7), /* max_argc */
dat[9] != 0); /* varargs */
/* add the reverse mapping entry */
G_debugger->add_rev_sym(sym_name, sym_len, sym_type,
(osrp2(dat+2) << 16) | osrp2(dat));
break;
case TC_SYM_EXTFN:
/* not currently supported */
sym = 0;
break;
case TC_SYM_METACLASS:
/* create the metaclass symbol */
sym = new CTcSymMetaclass(sym_name, sym_len, FALSE,
osrp2(dat), t3rp4u(dat + 2));
/*
* add a reverse mapping symbol for the object instance
* (note that we add this as an object, not a metaclass,
* since it refers to the IntrinsicClass instance)
*/
if ((vm_obj_id_t)t3rp4u(dat + 2) != VM_INVALID_OBJ)
G_debugger->add_rev_sym(sym_name, sym_len,
TC_SYM_OBJ, t3rp4u(dat + 2));
break;
default:
/* ignore other types of symbols */
sym = 0;
break;
}
/* if the symbol was valid, add it to the global symbol table */
if (sym != 0)
G_prs->get_global_symtab()->add_entry(sym);
}
/*
* Seek back to the starting position, and then load the GSYM data
* into the runtime reflection symbol table
*/
fp_->seek(init_seek_pos);
load_runtime_symtab_from_gsym(vmg_ init_siz);
}
/*
* load a Global Symbols block
*/
void CVmImageLoader::load_gsym(VMG_ ulong siz)
{
/* load the data into the runtime reflection symbol table */
load_runtime_symtab_from_gsym(vmg_ siz);
}
