* 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).
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

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)