/* 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.
#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;
}
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 */
*/
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;
int in_control_form = 0;
int need_slashslash = 0;
unsigned int c;
- extern int repeat_count_threshold;
- extern int print_max;
if (length == 0)
{
}
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;
*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;
}
static value_ptr
-value_chill_length (val)
- value_ptr val;
+value_chill_length (value_ptr val)
{
LONGEST tmp;
struct type *type = VALUE_TYPE (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);
}
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);
}
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;
chill_builtin_types,
range_check_on,
type_check_on,
+ case_sensitive_on,
chill_parse, /* parser */
chill_error, /* parser error function */
evaluate_subexp_chill,
/* 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,