/* Language-specific hook definitions for CHILL front end.
- Copyright (C) 1992, 93, 94, 98, 99, 2000 Free Software Foundation, Inc.
+ Copyright (C) 1992, 1993, 1994, 1998, 1999, 2000, 2001
+ Free Software Foundation, Inc.
This file is part of GNU CC.
#include "toplev.h"
#include "rtl.h"
#include "expr.h"
+#include "diagnostic.h"
/* Type node for boolean types. */
extern FILE* finput;
static int deep_const_expr PARAMS ((tree));
-static void chill_print_error_function PARAMS ((const char *));
+static void chill_print_error_function PARAMS ((diagnostic_context *,
+ const char *));
\f
/* Return 1 if the expression tree given has all
constant nodes as its leaves,otherwise. */
int indent ATTRIBUTE_UNUSED;
{
}
-
-void
-GNU_xref_begin ()
-{
- fatal ("GCC does not yet support XREF");
-}
-
-void
-GNU_xref_end ()
-{
- fatal ("GCC does not yet support XREF");
-}
\f
/*
* process chill-specific compiler command-line options
explicit_ignore_case = 1;
if (special_UC)
{
- error ("Ignoring case upon input and");
- error ("making special words uppercase wouldn't work.");
+ error ("ignoring case upon input and");
+ error ("making special words uppercase wouldn't work");
}
else
ignore_case = 1;
{
if (explicit_ignore_case)
{
- error ("Making special words uppercase and");
- error (" ignoring case upon input wouldn't work.");
+ error ("making special words uppercase and");
+ error (" ignoring case upon input wouldn't work");
}
else
special_UC = 1, ignore_case = 0;
}
static void
-chill_print_error_function (file)
+chill_print_error_function (context, file)
+ diagnostic_context *buffer __attribute__((__unused__));
const char *file;
{
static tree last_error_function = NULL_TREE;