import gdb-19990422 snapshot

[deliverable/binutils-gdb.git] / gdb / f-lang.h

diff --git a/gdb/f-lang.h b/gdb/f-lang.h
index edcf035d72d408817df71a40c9633657c4254e95..c6b8f028a23a5ebaf53bef4bd70b40fd170b7cfa 100644 (file)
--- a/gdb/f-lang.h
+++ b/gdb/f-lang.h
@@ -17,15 +17,17 @@ GNU General Public License for more details.
 
 You should have received a copy of the GNU General Public License
 along with this program; if not, write to the Free Software
-Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
+Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
 
 extern int f_parse PARAMS ((void));
 
 extern void f_error PARAMS ((char *)); /* Defined in f-exp.y */
 
-extern void f_print_type PARAMS ((struct type *, char *, FILE *, int, int));
+extern void f_print_type PARAMS ((struct type *, char *,
+                                 GDB_FILE *, int, int));
 
-extern int f_val_print PARAMS ((struct type *, char *, CORE_ADDR, FILE *,
+extern int f_val_print PARAMS ((struct type *, char *, int, 
+                               CORE_ADDR, GDB_FILE *,
                                int, int, int, enum val_prettyprint));
 
 /* Language-specific data structures */ 
@@ -86,6 +88,8 @@ extern int f77_get_dynamic_lowerbound PARAMS ((struct type *, int *));
 
 extern void f77_get_dynamic_array_length PARAMS ((struct type *)); 
 
+extern int calc_f77_array_dims PARAMS ((struct type *));
+
 #define DEFAULT_DOTMAIN_NAME_IN_MF77            ".MAIN_"
 #define DEFAULT_MAIN_NAME_IN_MF77               "MAIN_"
 #define DEFAULT_DOTMAIN_NAME_IN_XLF_BUGGY       ".main "