* gdb.base/display.c (do_loops): Add float variable `f'.

[deliverable/binutils-gdb.git] / gdb / ch-lang.c

diff --git a/gdb/ch-lang.c b/gdb/ch-lang.c
index c3a3d90719ef739eb3002a8f4f28ea46969a6f96..fb6dc419e83d115cb917d1c6c01bb29c6c655468 100644 (file)
--- a/gdb/ch-lang.c
+++ b/gdb/ch-lang.c
@@ -1,5 +1,6 @@
 /* Chill language support routines for GDB, the GNU debugger.
-   Copyright 1992, 1995, 1996 Free Software Foundation, Inc.
+   Copyright 1992, 1993, 1994, 1995, 1996, 2000
+   Free Software Foundation, Inc.
 
    This file is part of GDB.
 
@@ -26,37 +27,34 @@
 #include "parser-defs.h"
 #include "language.h"
 #include "ch-lang.h"
+#include "valprint.h"
 
-extern void _initialize_chill_language PARAMS ((void));
+extern void _initialize_chill_language (void);
 
 static value_ptr
-  evaluate_subexp_chill PARAMS ((struct type *, struct expression *, int *, enum noside));
+evaluate_subexp_chill (struct type *, struct expression *, int *,
+                      enum noside);
 
-static value_ptr
-  value_chill_max_min PARAMS ((enum exp_opcode, value_ptr));
+static value_ptr value_chill_max_min (enum exp_opcode, value_ptr);
 
-static value_ptr
-  value_chill_card PARAMS ((value_ptr));
+static value_ptr value_chill_card (value_ptr);
 
-static value_ptr
-  value_chill_length PARAMS ((value_ptr));
+static value_ptr value_chill_length (value_ptr);
 
-static struct type *
-  chill_create_fundamental_type PARAMS ((struct objfile *, int));
+static struct type *chill_create_fundamental_type (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
    characters to derive the demangled form. */
 
 char *
-chill_demangle (mangled)
-     const char *mangled;
+chill_demangle (const char *mangled)
 {
   const char *joiner = NULL;
   char *demangled;
@@ -83,9 +81,7 @@ chill_demangle (mangled)
 }
 
 static void
-chill_printchar (c, stream)
-     register int c;
-     GDB_FILE *stream;
+chill_printchar (register int c, struct ui_file *stream)
 {
   c &= 0xFF;                   /* Avoid sign bit follies */
 
@@ -114,12 +110,8 @@ chill_printchar (c, stream)
  */
 
 static void
-chill_printstr (stream, string, length, width, force_ellipses)
-     GDB_FILE *stream;
-     char *string;
-     unsigned int length;
-     int width;
-     int force_ellipses;
+chill_printstr (struct ui_file *stream, char *string, unsigned int length,
+               int width, int force_ellipses)
 {
   register unsigned int i;
   unsigned int things_printed = 0;
@@ -127,8 +119,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)
     {
@@ -232,9 +222,7 @@ chill_printstr (stream, string, length, width, force_ellipses)
 }
 
 static struct type *
-chill_create_fundamental_type (objfile, typeid)
-     struct objfile *objfile;
-     int typeid;
+chill_create_fundamental_type (struct objfile *objfile, int typeid)
 {
   register struct type *type = NULL;
 
@@ -350,10 +338,8 @@ struct type **CONST_PTR (chill_builtin_types[]) =
    *RESULT_TYPE is the appropriate type for the result. */
 
 LONGEST
-type_lower_upper (op, type, result_type)
-     enum exp_opcode op;       /* Either UNOP_LOWER or UNOP_UPPER */
-     struct type *type;
-     struct type **result_type;
+type_lower_upper (enum exp_opcode op,  /* Either UNOP_LOWER or UNOP_UPPER */
+                 struct type *type, struct type **result_type)
 {
   LONGEST low, high;
   *result_type = type;
@@ -404,8 +390,7 @@ type_lower_upper (op, type, result_type)
 }
 
 static value_ptr
-value_chill_length (val)
-     value_ptr val;
+value_chill_length (value_ptr val)
 {
   LONGEST tmp;
   struct type *type = VALUE_TYPE (val);
@@ -433,8 +418,7 @@ value_chill_length (val)
 }
 
 static value_ptr
-value_chill_card (val)
-     value_ptr val;
+value_chill_card (value_ptr val)
 {
   LONGEST tmp = 0;
   struct type *type = VALUE_TYPE (val);
@@ -458,9 +442,7 @@ value_chill_card (val)
 }
 
 static value_ptr
-value_chill_max_min (op, val)
-     enum exp_opcode op;
-     value_ptr val;
+value_chill_max_min (enum exp_opcode op, value_ptr val)
 {
   LONGEST tmp = 0;
   struct type *type = VALUE_TYPE (val);
@@ -513,11 +495,9 @@ value_chill_max_min (op, val)
 }
 
 static value_ptr
-evaluate_subexp_chill (expect_type, exp, pos, noside)
-     struct type *expect_type;
-     register struct expression *exp;
-     register int *pos;
-     enum noside noside;
+evaluate_subexp_chill (struct type *expect_type,
+                      register struct expression *exp, register int *pos,
+                      enum noside noside)
 {
   int pc = *pos;
   struct type *type;
@@ -629,6 +609,7 @@ const struct language_defn chill_language_defn =
   chill_builtin_types,
   range_check_on,
   type_check_on,
+  case_sensitive_on,
   chill_parse,                 /* parser */
   chill_error,                 /* parser error function */
   evaluate_subexp_chill,
@@ -653,7 +634,7 @@ const struct language_defn chill_language_defn =
 /* Initialization for Chill */
 
 void
-_initialize_chill_language ()
+_initialize_chill_language (void)
 {
   builtin_type_chill_bool =
     init_type (TYPE_CODE_BOOL, TARGET_CHAR_BIT / TARGET_CHAR_BIT,