Lines Matching refs:pp
202 #define STABS_CONTINUE(pp,objfile) \ argument
204 if (**(pp) == '\\' || (**(pp) == '?' && (*(pp))[1] == '\0')) \
205 *(pp) = next_symbol_text (objfile); \
349 char *pp; in patch_block_stabs() local
361 pp = (char *) strchr (name, ':'); in patch_block_stabs()
362 while (pp[1] == ':') in patch_block_stabs()
364 pp += 2; in patch_block_stabs()
365 pp = (char *) strchr (pp, ':'); in patch_block_stabs()
367 sym = find_symbol_in_list (symbols, name, pp - name); in patch_block_stabs()
389 obsavestring (name, pp - name, &objfile->objfile_obstack); in patch_block_stabs()
390 pp += 2; in patch_block_stabs()
391 if (*(pp - 1) == 'F' || *(pp - 1) == 'f') in patch_block_stabs()
397 lookup_function_type (read_type (&pp, objfile)); in patch_block_stabs()
401 SYMBOL_TYPE (sym) = read_type (&pp, objfile); in patch_block_stabs()
407 pp += 2; in patch_block_stabs()
408 if (*(pp - 1) == 'F' || *(pp - 1) == 'f') in patch_block_stabs()
411 lookup_function_type (read_type (&pp, objfile)); in patch_block_stabs()
415 SYMBOL_TYPE (sym) = read_type (&pp, objfile); in patch_block_stabs()
432 read_type_number (char **pp, int *typenums) in read_type_number() argument
435 if (**pp == '(') in read_type_number()
437 (*pp)++; in read_type_number()
438 typenums[0] = read_huge_number (pp, ',', &nbits); in read_type_number()
441 typenums[1] = read_huge_number (pp, ')', &nbits); in read_type_number()
448 typenums[1] = read_huge_number (pp, 0, &nbits); in read_type_number()
1346 error_type (char **pp, struct objfile *objfile) in error_type() argument
1352 while (**pp != '\0') in error_type()
1354 (*pp)++; in error_type()
1358 if ((*pp)[-1] == '\\' || (*pp)[-1] == '?') in error_type()
1360 *pp = next_symbol_text (objfile); in error_type()
1378 read_type (char **pp, struct objfile *objfile) in read_type() argument
1398 if ((**pp >= '0' && **pp <= '9') in read_type()
1399 || **pp == '(' in read_type()
1400 || **pp == '-') in read_type()
1402 if (read_type_number (pp, typenums) != 0) in read_type()
1403 return error_type (pp, objfile); in read_type()
1405 if (**pp != '=') in read_type()
1424 (*pp) += 2; in read_type()
1431 (*pp)++; in read_type()
1435 type_descriptor = (*pp)[-1]; in read_type()
1453 switch ((*pp)[0]) in read_type()
1469 "Unrecognized cross-reference type `%c'", (*pp)[0]); in read_type()
1475 q1 = strchr (*pp, '<'); in read_type()
1476 p = strchr (*pp, ':'); in read_type()
1478 return error_type (pp, objfile); in read_type()
1493 return error_type (pp, objfile); in read_type()
1496 (char *) obstack_alloc (&objfile->objfile_obstack, p - *pp + 1); in read_type()
1499 from = *pp + 1; in read_type()
1506 *pp = from + 1; in read_type()
1558 (*pp)--; in read_type()
1568 struct type *xtype = read_type (pp, objfile); in read_type()
1620 type1 = read_type (pp, objfile); in read_type()
1625 type1 = read_type (pp, objfile); in read_type()
1630 type1 = read_type (pp, objfile); in read_type()
1651 const char *type_start = (*pp) - 1; in read_type()
1652 struct type *return_type = read_type (pp, objfile); in read_type()
1661 while (**pp && **pp != '#') in read_type()
1663 struct type *arg_type = read_type (pp, objfile); in read_type()
1670 if (**pp == '#') in read_type()
1671 ++*pp; in read_type()
1708 type = read_type (pp, objfile); in read_type()
1714 type = read_type (pp, objfile); in read_type()
1720 if (isdigit (**pp) || **pp == '(' || **pp == '-') in read_type()
1724 struct type *domain = read_type (pp, objfile); in read_type()
1727 if (**pp != ',') in read_type()
1729 return error_type (pp, objfile); in read_type()
1730 ++*pp; in read_type()
1732 memtype = read_type (pp, objfile); in read_type()
1739 char *attr = *pp; in read_type()
1741 while (**pp != ';' && **pp != '\0') in read_type()
1742 ++(*pp); in read_type()
1743 if (**pp == '\0') in read_type()
1744 return error_type (pp, objfile); in read_type()
1746 ++ * pp; /* Skip the semicolon. */ in read_type()
1771 ++*pp; in read_type()
1777 if ((*pp)[0] == '#') in read_type()
1782 (*pp)++; in read_type()
1783 return_type = read_type (pp, objfile); in read_type()
1784 if (*(*pp)++ != ';') in read_type()
1794 struct type *domain = read_type (pp, objfile); in read_type()
1799 if (**pp != ',') in read_type()
1801 return error_type (pp, objfile); in read_type()
1803 ++(*pp); in read_type()
1805 return_type = read_type (pp, objfile); in read_type()
1806 args = read_args (pp, ';', objfile, &nargs, &varargs); in read_type()
1814 type = read_range_type (pp, typenums, objfile); in read_type()
1822 type = read_sun_builtin_type (pp, typenums, objfile); in read_type()
1829 type = read_sun_floating_type (pp, typenums, objfile); in read_type()
1836 type = read_enum_type (pp, type, objfile); in read_type()
1855 type = read_struct_type (pp, type, type_code, objfile); in read_type()
1860 if (**pp != 'r') in read_type()
1861 return error_type (pp, objfile); in read_type()
1862 ++*pp; in read_type()
1865 type = read_array_type (pp, type, objfile); in read_type()
1873 type1 = read_type (pp, objfile); in read_type()
1882 --*pp; /* Go back to the symbol in error */ in read_type()
1884 return error_type (pp, objfile); in read_type()
1890 return error_type (pp, objfile); in read_type()
2108 read_member_functions (struct field_info *fip, char **pp, struct type *type, in read_member_functions() argument
2133 while (**pp != ';') in read_member_functions()
2138 p = *pp; in read_member_functions()
2157 if ((*pp)[0] == 'o' && (*pp)[1] == 'p' && is_cplus_marker ((*pp)[2])) in read_member_functions()
2172 *pp = p + 2; in read_member_functions()
2174 STABS_CONTINUE (pp, objfile); in read_member_functions()
2175 p = *pp; in read_member_functions()
2182 *pp = p + 1; in read_member_functions()
2186 main_fn_name = savestring (*pp, p - *pp); in read_member_functions()
2188 *pp = p + 2; in read_member_functions()
2203 STABS_CONTINUE (pp, objfile); in read_member_functions()
2205 new_sublist->fn_field.type = read_type (pp, objfile); in read_member_functions()
2206 if (**pp != ':') in read_member_functions()
2219 (*pp)++; in read_member_functions()
2220 p = *pp; in read_member_functions()
2234 new_sublist->fn_field.physname = savestring (*pp, p - *pp); in read_member_functions()
2235 *pp = p + 1; in read_member_functions()
2238 switch (*(*pp)++) in read_member_functions()
2248 STABS_CONTINUE (pp, objfile); in read_member_functions()
2249 switch (**pp) in read_member_functions()
2254 (*pp)++; in read_member_functions()
2259 (*pp)++; in read_member_functions()
2264 (*pp)++; in read_member_functions()
2269 (*pp)++; in read_member_functions()
2277 "const/volatile indicator missing, got '%c'", **pp); in read_member_functions()
2281 switch (*(*pp)++) in read_member_functions()
2294 (0x7fffffff & read_huge_number (pp, ';', &nbits)) + 2; in read_member_functions()
2298 STABS_CONTINUE (pp, objfile); in read_member_functions()
2299 if (**pp == ';' || **pp == '\0') in read_member_functions()
2309 look_ahead_type = read_type (pp, objfile); in read_member_functions()
2310 if (**pp == ':') in read_member_functions()
2317 if (**pp != ';') in read_member_functions()
2323 ++*pp; in read_member_functions()
2360 "member function type missing, got '%c'", (*pp)[-1]); in read_member_functions()
2373 STABS_CONTINUE (pp, objfile); in read_member_functions()
2375 while (**pp != ';' && **pp != '\0'); in read_member_functions()
2377 (*pp)++; in read_member_functions()
2378 STABS_CONTINUE (pp, objfile); in read_member_functions()
2586 read_cpp_abbrev (struct field_info *fip, char **pp, struct type *type, in read_cpp_abbrev() argument
2594 p = *pp; in read_cpp_abbrev()
2600 *pp = p + 1; in read_cpp_abbrev()
2607 context = read_type (pp, objfile); in read_cpp_abbrev()
2635 invalid_cpp_abbrev_complaint (*pp); in read_cpp_abbrev()
2645 p = ++(*pp); in read_cpp_abbrev()
2648 invalid_cpp_abbrev_complaint (*pp); in read_cpp_abbrev()
2651 fip->list->field.type = read_type (pp, objfile); in read_cpp_abbrev()
2652 if (**pp == ',') in read_cpp_abbrev()
2653 (*pp)++; /* Skip the comma. */ in read_cpp_abbrev()
2659 FIELD_BITPOS (fip->list->field) = read_huge_number (pp, ';', &nbits); in read_cpp_abbrev()
2669 invalid_cpp_abbrev_complaint (*pp); in read_cpp_abbrev()
2679 read_one_struct_field (struct field_info *fip, char **pp, char *p, in read_one_struct_field() argument
2683 obsavestring (*pp, p - *pp, &objfile->objfile_obstack); in read_one_struct_field()
2684 *pp = p + 1; in read_one_struct_field()
2687 if (**pp == '/') in read_one_struct_field()
2689 (*pp)++; in read_one_struct_field()
2690 fip->list->visibility = *(*pp)++; in read_one_struct_field()
2698 fip->list->field.type = read_type (pp, objfile); in read_one_struct_field()
2699 if (**pp == ':') in read_one_struct_field()
2701 p = ++(*pp); in read_one_struct_field()
2704 if (**pp == '!') in read_one_struct_field()
2707 p = ++(*pp); in read_one_struct_field()
2717 SET_FIELD_PHYSNAME (fip->list->field, savestring (*pp, p - *pp)); in read_one_struct_field()
2718 *pp = p + 1; in read_one_struct_field()
2721 else if (**pp != ',') in read_one_struct_field()
2728 (*pp)++; /* Skip the comma. */ in read_one_struct_field()
2732 FIELD_BITPOS (fip->list->field) = read_huge_number (pp, ',', &nbits); in read_one_struct_field()
2738 FIELD_BITSIZE (fip->list->field) = read_huge_number (pp, ';', &nbits); in read_one_struct_field()
2817 read_struct_fields (struct field_info *fip, char **pp, struct type *type, in read_struct_fields() argument
2825 p = *pp; in read_struct_fields()
2833 while (**pp != ';' && **pp != '\0') in read_struct_fields()
2835 STABS_CONTINUE (pp, objfile); in read_struct_fields()
2844 p = *pp; in read_struct_fields()
2853 if (!read_cpp_abbrev (fip, pp, type, objfile)) in read_struct_fields()
2875 read_one_struct_field (fip, pp, p, type, objfile); in read_struct_fields()
2915 read_baseclasses (struct field_info *fip, char **pp, struct type *type, in read_baseclasses() argument
2921 if (**pp != '!') in read_baseclasses()
2928 (*pp)++; in read_baseclasses()
2934 TYPE_N_BASECLASSES (type) = read_huge_number (pp, ',', &nbits); in read_baseclasses()
2965 STABS_CONTINUE (pp, objfile); in read_baseclasses()
2966 switch (**pp) in read_baseclasses()
2978 "Unknown virtual character `%c' for baseclass", **pp); in read_baseclasses()
2981 ++(*pp); in read_baseclasses()
2983 new->visibility = *(*pp)++; in read_baseclasses()
3008 FIELD_BITPOS (new->field) = read_huge_number (pp, ',', &nbits); in read_baseclasses()
3017 new->field.type = read_type (pp, objfile); in read_baseclasses()
3021 if (**pp == ';') in read_baseclasses()
3022 (*pp)++; in read_baseclasses()
3038 read_tilde_fields (struct field_info *fip, char **pp, struct type *type, in read_tilde_fields() argument
3043 STABS_CONTINUE (pp, objfile); in read_tilde_fields()
3046 if (**pp == ';') in read_tilde_fields()
3048 (*pp)++; in read_tilde_fields()
3051 if (**pp == '~') in read_tilde_fields()
3053 (*pp)++; in read_tilde_fields()
3055 if (**pp == '=' || **pp == '+' || **pp == '-') in read_tilde_fields()
3059 (*pp)++; in read_tilde_fields()
3063 if (*(*pp)++ == '%') in read_tilde_fields()
3074 t = read_type (pp, objfile); in read_tilde_fields()
3075 p = (*pp)++; in read_tilde_fields()
3113 *pp = p + 1; in read_tilde_fields()
3274 read_struct_type (char **pp, struct type *type, enum type_code type_code, in read_struct_type() argument
3313 TYPE_LENGTH (type) = read_huge_number (pp, 0, &nbits); in read_struct_type()
3315 return error_type (pp, objfile); in read_struct_type()
3323 if (!read_baseclasses (&fi, pp, type, objfile) in read_struct_type()
3324 || !read_struct_fields (&fi, pp, type, objfile) in read_struct_type()
3326 || !read_member_functions (&fi, pp, type, objfile) in read_struct_type()
3328 || !read_tilde_fields (&fi, pp, type, objfile)) in read_struct_type()
3330 type = error_type (pp, objfile); in read_struct_type()
3343 read_array_type (char **pp, struct type *type, in read_array_type() argument
3359 index_type = read_type (pp, objfile); in read_array_type()
3360 if (**pp != ';') in read_array_type()
3362 return error_type (pp, objfile); in read_array_type()
3363 ++*pp; in read_array_type()
3366 if (!(**pp >= '0' && **pp <= '9') && **pp != '-') in read_array_type()
3368 (*pp)++; in read_array_type()
3371 lower = read_huge_number (pp, ';', &nbits); in read_array_type()
3374 return error_type (pp, objfile); in read_array_type()
3376 if (!(**pp >= '0' && **pp <= '9') && **pp != '-') in read_array_type()
3378 (*pp)++; in read_array_type()
3381 upper = read_huge_number (pp, ';', &nbits); in read_array_type()
3383 return error_type (pp, objfile); in read_array_type()
3385 element_type = read_type (pp, objfile); in read_array_type()
3406 read_enum_type (char **pp, struct type *type, in read_enum_type() argument
3434 if (**pp == '-') in read_enum_type()
3437 while (**pp != ':') in read_enum_type()
3438 (*pp)++; in read_enum_type()
3441 (*pp)++; in read_enum_type()
3447 while (**pp && **pp != ';' && **pp != ',') in read_enum_type()
3449 STABS_CONTINUE (pp, objfile); in read_enum_type()
3450 p = *pp; in read_enum_type()
3453 name = obsavestring (*pp, p - *pp, &objfile->objfile_obstack); in read_enum_type()
3454 *pp = p + 1; in read_enum_type()
3455 n = read_huge_number (pp, ',', &nbits); in read_enum_type()
3457 return error_type (pp, objfile); in read_enum_type()
3473 if (**pp == ';') in read_enum_type()
3474 (*pp)++; /* Skip the semicolon. */ in read_enum_type()
3529 read_sun_builtin_type (char **pp, int typenums[2], struct objfile *objfile) in read_sun_builtin_type() argument
3536 switch (**pp) in read_sun_builtin_type()
3545 return error_type (pp, objfile); in read_sun_builtin_type()
3547 (*pp)++; in read_sun_builtin_type()
3555 if (**pp == 'c') in read_sun_builtin_type()
3556 (*pp)++; in read_sun_builtin_type()
3557 else if (**pp == 'b') in read_sun_builtin_type()
3560 (*pp)++; in read_sun_builtin_type()
3567 read_huge_number (pp, ';', &nbits); in read_sun_builtin_type()
3569 return error_type (pp, objfile); in read_sun_builtin_type()
3572 read_huge_number (pp, ';', &nbits); in read_sun_builtin_type()
3574 return error_type (pp, objfile); in read_sun_builtin_type()
3577 type_bits = read_huge_number (pp, 0, &nbits); in read_sun_builtin_type()
3579 return error_type (pp, objfile); in read_sun_builtin_type()
3586 if (**pp == ';') in read_sun_builtin_type()
3587 ++(*pp); in read_sun_builtin_type()
3601 read_sun_floating_type (char **pp, int typenums[2], struct objfile *objfile) in read_sun_floating_type() argument
3610 details = read_huge_number (pp, ';', &nbits); in read_sun_floating_type()
3612 return error_type (pp, objfile); in read_sun_floating_type()
3615 nbytes = read_huge_number (pp, ';', &nbits); in read_sun_floating_type()
3617 return error_type (pp, objfile); in read_sun_floating_type()
3644 read_huge_number (char **pp, int end, int *bits) in read_huge_number() argument
3646 char *p = *pp; in read_huge_number()
3713 *pp = p; in read_huge_number()
3743 read_range_type (char **pp, int typenums[2], struct objfile *objfile) in read_range_type() argument
3745 char *orig_pp = *pp; in read_range_type()
3755 if (read_type_number (pp, rangenums) != 0) in read_range_type()
3756 return error_type (pp, objfile); in read_range_type()
3760 if (**pp == '=') in read_range_type()
3762 *pp = orig_pp; in read_range_type()
3763 index_type = read_type (pp, objfile); in read_range_type()
3767 if (**pp == ';') in read_range_type()
3768 (*pp)++; in read_range_type()
3772 n2 = read_huge_number (pp, ';', &n2bits); in read_range_type()
3773 n3 = read_huge_number (pp, ';', &n3bits); in read_range_type()
3776 return error_type (pp, objfile); in read_range_type()
3814 return error_type (pp, objfile); in read_range_type()
3943 read_args (char **pp, int end, struct objfile *objfile, int *nargsp, in read_args() argument
3951 while (**pp != end) in read_args()
3953 if (**pp != ',') in read_args()
3956 (*pp)++; in read_args()
3957 STABS_CONTINUE (pp, objfile); in read_args()
3958 types[n++] = read_type (pp, objfile); in read_args()
3960 (*pp)++; /* get past `end' (the ':' character) */ in read_args()