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

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 8a371ca..11c0c54 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 *));