From e44075d3aaf417c6622fc67e82ac0eb5b82c86a0 Mon Sep 17 00:00:00 2001 From: Jim Kingdon Date: Tue, 23 Aug 1994 21:39:50 +0000 Subject: [PATCH] * 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/ChangeLog | 16 ++++++++++++++++ gdb/f-lang.h | 2 ++ gdb/gdbtypes.h | 9 +++++++-- 3 files changed, 25 insertions(+), 2 deletions(-) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 8a371cace7..11c0c54d43 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,19 @@ +Tue Aug 23 12:05:19 1994 Jim Kingdon (kingdon@cygnus.com) + + * 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). + Mon Aug 22 11:45:01 1994 Stan Shebs (shebs@andros.cygnus.com) * config/a29k/{a29k-kern.mt,a29k-udi.mt,a29k.mt,ultra3.mh, diff --git a/gdb/f-lang.h b/gdb/f-lang.h index 9611366879..edcf035d72 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) diff --git a/gdb/gdbtypes.h b/gdb/gdbtypes.h index 918e1a67aa..a1fc18562e 100644 --- a/gdb/gdbtypes.h +++ b/gdb/gdbtypes.h @@ -723,8 +723,13 @@ create_array_type PARAMS ((struct type *, struct type *, struct type *)); extern struct type * create_string_type PARAMS ((struct type *, struct type *)); -extern struct type * -create_set_type PARAMS ((struct type *, struct type *)); +extern struct type *f77_create_literal_string_type PARAMS ((struct type *, + struct type *)); + +extern struct type *create_set_type PARAMS ((struct type *, struct type *)); + +extern struct type *f77_create_literal_complex_type PARAMS ((struct type *, + struct type *)); extern struct type * lookup_unsigned_typename PARAMS ((char *));