From e44075d3aaf417c6622fc67e82ac0eb5b82c86a0 Mon Sep 17 00:00:00 2001 From: Jim Kingdon Date: Tue, 23 Aug 1994 21:39:50 +0000 Subject: * gdbtypes.h: Declare f77_create_literal_string_type and f77_create_literal_complex_type. * valops.c (f77_value_literal_string, f77_value_substring, f77_value_literal_complex): Use xmalloc not malloc. * valops.c (f77_value_literal_string, f77_value_substring): Make addr char * not CORE_ADDR. * value.h (struct value): Add new field literal_data of aligner union. (VALUE_LITERAL_DATA): Use it. * f-lang.h: Declare find_common_for_function. * value.h, valops.c: Split VALUE_SUBSTRING_START into memaddr and myaddr fields of a union. Don't overload it with the frame field (not sure this is necessary; I'm not sure what lval_* codes VALUE_SUBSTRING_* can be used with). --- gdb/f-lang.h | 2 ++ 1 file changed, 2 insertions(+) (limited to 'gdb/f-lang.h') diff --git a/gdb/f-lang.h b/gdb/f-lang.h index 9611366..edcf035 100644 --- a/gdb/f-lang.h +++ b/gdb/f-lang.h @@ -57,6 +57,8 @@ extern SAVED_F77_COMMON_PTR head_common_list; /* Ptr to 1st saved COMMON */ extern SAVED_F77_COMMON_PTR tail_common_list; /* Ptr to last saved COMMON */ extern SAVED_F77_COMMON_PTR current_common; /* Ptr to current COMMON */ +extern SAVED_F77_COMMON_PTR find_common_for_function PARAMS ((char *, char *)); + #define UNINITIALIZED_SECNUM -1 #define COMMON_NEEDS_PATCHING(blk) ((blk)->secnum == UNINITIALIZED_SECNUM) -- cgit v1.1