diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 8a371cace77..11c0c54d43d 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 9611366879a..edcf035d72d 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 918e1a67aae..a1fc18562e4 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 *));