mirror/binutils-gdb
2
0
Fork 0
mirror of https://sourceware.org/git/binutils-gdb.git synced 2024-11-27 03:51:15 +08:00
Code Issues Packages Projects Releases Wiki Activity

* gdbtypes.h: Declare f77_create_literal_string_type and

Browse Source 
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).
This commit is contained in:
Jim Kingdon 1994-08-23 21:39:50 +00:00
parent 4682251ba1
commit e44075d3aa
3 changed files with 25 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
gdb/ChangeLog
View File

@ -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,

2
gdb/f-lang.h
View File

@ -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)

9
gdb/gdbtypes.h
View File

@ -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 *));