projects
/
deliverable
/
binutils-gdb.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
ubsan: alpha-vms: shift exponent is too large
[deliverable/binutils-gdb.git]
/
gdb
/
f-lang.c
diff --git
a/gdb/f-lang.c
b/gdb/f-lang.c
index ce7f1471c52d9c6f3338946841d7f4a7e3931d4a..022918efa2d928fdfbf87a354d596adad3f671bc 100644
(file)
--- a/
gdb/f-lang.c
+++ b/
gdb/f-lang.c
@@
-59,7
+59,7
@@
f_get_encoding (struct type *type)
encoding = target_charset (get_type_arch (type));
break;
case 4:
encoding = target_charset (get_type_arch (type));
break;
case 4:
- if (
gdbarch_byte_order (get_type_arch (type)
) == BFD_ENDIAN_BIG)
+ if (
type_byte_order (type
) == BFD_ENDIAN_BIG)
encoding = "UTF-32BE";
else
encoding = "UTF-32LE";
encoding = "UTF-32BE";
else
encoding = "UTF-32LE";
@@
-243,7
+243,8
@@
f_collect_symbol_completion_matches (completion_tracker &tracker,
}
/* Special expression evaluation cases for Fortran. */
}
/* Special expression evaluation cases for Fortran. */
-struct value *
+
+static struct value *
evaluate_subexp_f (struct type *expect_type, struct expression *exp,
int *pos, enum noside noside)
{
evaluate_subexp_f (struct type *expect_type, struct expression *exp,
int *pos, enum noside noside)
{
@@
-671,11
+672,10
@@
extern const struct language_defn f_language_defn =
f_language_arch_info,
default_print_array_index,
default_pass_by_reference,
f_language_arch_info,
default_print_array_index,
default_pass_by_reference,
- default_get_string,
c_watch_location_expression,
c_watch_location_expression,
-
NULL,
/* la_get_symbol_name_matcher */
+
cp_get_symbol_name_matcher,
/* la_get_symbol_name_matcher */
iterate_over_symbols,
iterate_over_symbols,
-
default
_search_name_hash,
+
cp
_search_name_hash,
&default_varobj_ops,
NULL,
NULL,
&default_varobj_ops,
NULL,
NULL,
This page took
0.039759 seconds
and
4
git commands to generate.