20000-05-18 H.J. Lu (hjl@gnu.org)
[binutils-gdb.git] / gdb / ch-lang.c
index c3a3d90719ef739eb3002a8f4f28ea46969a6f96..cf6325755be90cfe9b2d02aac4d6151e84a7e3c5 100644 (file)
@@ -1,5 +1,5 @@
 /* Chill language support routines for GDB, the GNU debugger.
-   Copyright 1992, 1995, 1996 Free Software Foundation, Inc.
+   Copyright 1992, 1995, 1996, 2000 Free Software Foundation, Inc.
 
    This file is part of GDB.
 
@@ -26,6 +26,7 @@
 #include "parser-defs.h"
 #include "language.h"
 #include "ch-lang.h"
+#include "valprint.h"
 
 extern void _initialize_chill_language PARAMS ((void));
 
@@ -44,11 +45,11 @@ static value_ptr
 static struct type *
   chill_create_fundamental_type PARAMS ((struct objfile *, int));
 
-static void
-chill_printstr PARAMS ((GDB_FILE * stream, char *string, unsigned int length, int width, int force_ellipses));
+static void chill_printstr (struct ui_file * stream, char *string,
+                           unsigned int length, int width,
+                           int force_ellipses);
 
-static void
-chill_printchar PARAMS ((int, GDB_FILE *));
+static void chill_printchar (int, struct ui_file *);
 
 /* For now, Chill uses a simple mangling algorithm whereby you simply
    discard everything after the occurance of two successive CPLUS_MARKER
@@ -85,7 +86,7 @@ chill_demangle (mangled)
 static void
 chill_printchar (c, stream)
      register int c;
-     GDB_FILE *stream;
+     struct ui_file *stream;
 {
   c &= 0xFF;                   /* Avoid sign bit follies */
 
@@ -115,7 +116,7 @@ chill_printchar (c, stream)
 
 static void
 chill_printstr (stream, string, length, width, force_ellipses)
-     GDB_FILE *stream;
+     struct ui_file *stream;
      char *string;
      unsigned int length;
      int width;
@@ -127,8 +128,6 @@ chill_printstr (stream, string, length, width, force_ellipses)
   int in_control_form = 0;
   int need_slashslash = 0;
   unsigned int c;
-  extern int repeat_count_threshold;
-  extern int print_max;
 
   if (length == 0)
     {