Exemplo n.º 1
0
struct pvm_object pvm_create_class_object(struct pvm_object name, struct pvm_object iface, int da_size)
{
	struct pvm_object _data = pvm_object_create_fixed( pvm_get_class_class() );

	struct data_area_4_class *      da = (struct data_area_4_class *)_data.data->da;

	da->object_data_area_size   	= da_size;
	da->object_flags     		= 0;
	da->object_default_interface 	= iface;
	da->sys_table_id             	= -1;

	da->class_name 			= name;
	da->class_parent 		= pvm_get_null_class();

	return _data;
}
Exemplo n.º 2
0
int pvm_ip_to_linenum(pvm_object_t tclass, int method_ordinal, int ip)
{
    if(!pvm_object_class_exactly_is( tclass, pvm_get_class_class() ))
    {
        printf("pvm_ip_to_linenum: not a class\n");
        return -1;
    }

    struct data_area_4_class *cda= pvm_object_da( tclass, class );
    pvm_object_t ip2line_maps = cda->ip2line_maps;
    //cda->method_names = method_names;

    pvm_object_t map = pvm_get_ofield( ip2line_maps, method_ordinal );

    struct data_area_4_binary * bin = pvm_object_da( map, binary );

    int nrecords = (map.data->_da_size)/sizeof(struct vm_code_linenum);

    struct vm_code_linenum *sp = (void *)bin->data;



    int i;
    for( i = 0; i < nrecords; i++)
    {
        // TODO bin search, array must be sorted
        if( sp[i].ip >= ip )
        {
            if( i == 0 )
                return -1;

            return sp[i-1].line;
        }
    }

    return -1;
}