diff options
| author | Jim Kingdon <jkingdon@engr.sgi.com> | 1994-08-23 21:39:50 +0000 |
|---|---|---|
| committer | Jim Kingdon <jkingdon@engr.sgi.com> | 1994-08-23 21:39:50 +0000 |
| commit | e44075d3aaf417c6622fc67e82ac0eb5b82c86a0 (patch) | |
| tree | 060b13e34e250f18544514ba4e2703aa34b8ea2a /gdb | |
| parent | 4682251ba12364e56cba3bfd327721a0daf7c554 (diff) | |
| download | gdb-e44075d3aaf417c6622fc67e82ac0eb5b82c86a0.zip gdb-e44075d3aaf417c6622fc67e82ac0eb5b82c86a0.tar.gz gdb-e44075d3aaf417c6622fc67e82ac0eb5b82c86a0.tar.bz2 | |
* 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).
Diffstat (limited to 'gdb')
| -rw-r--r-- | gdb/ChangeLog | 16 | ||||
| -rw-r--r-- | gdb/f-lang.h | 2 | ||||
| -rw-r--r-- | gdb/gdbtypes.h | 9 |
3 files changed, 25 insertions, 2 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 8a371ca..11c0c54 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 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) diff --git a/gdb/gdbtypes.h b/gdb/gdbtypes.h index 918e1a6..a1fc185 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 *)); |