mirror of
https://github.com/darlinghq/darling-gdb.git
synced 2024-12-05 19:07:07 +00:00
e58de8a230
* Makefile.in (YYFILES): Add ch-exp.tab.c. * Makefile.in (YYOBJ): Add ch-exp.tab.o. * Makefile.in (saber_gdb): Add unload of ch-exp.y and load of ch-exp.tab.c. * Makefile.in (distclean): Add target ch-exp.tab.c. * Makefile.in (realclean): Add rm of ch-exp.tab.c. * Makefile.in (c-exp.tab.c, m2-exp.tab.c): Add dependency on Makefile since it contains sed patterns used in generation. Add sed pattern to also delete #include of any malloc.h. * Makefile.in (ch-exp.tab.o, ch-exp.tab.c): New targets. * ch-exp.y: New expression parser, for GNU-Chill. * c-exp.y, expr.c, expression.h, language.c, m2-exp.y, parser-defs.h, valarith.c, valops.c, value.h: Remap macros and function names to conform to K&R terminology with respect to logical and bitwise operators: UNOP_ZEROP => UNOP_LOGICAL_NOT UNOP_LOGNOT => UNOP_COMPLEMENT BINOP_LOGAND => BINOP_BITWISE_AND BINOP_LOGXOR => BINOP_BITWISE_XOR BINOP_LOGIOR => BINOP_BITWISE_IOR BINOP_AND => BINOP_LOGICAL_AND BINOP_OR => BINOP_LOGICAL_OR PREC_OR => PREC_LOGICAL_OR PREC_AND => PREC_LOGICAL_AND PREC_LOGIOR => PREC_BITWISE_IOR PREC_LOGXOR => PREC_BITWISE_XOR PREC_LOGAND => PREC_BITWISE_AND value_zerop() => value_logical_not() value_lognot() => value_complement() * c-exp.y (c_op_print_tab): Add explicit empty terminator. * m2-exp.y (m2_op_print_tab): Add explicit empty terminator. * defs.h (enum language): Add language_chill. * dwarfread.c (set_cu_language): Add LANG_CHILL case and make LANG_MODULA2 a recognized language. * eval.c (evaluate_subexp): Add OP_BOOL case. * expprint.c (print_subexp): Add OP_BOOL case. * gdbtypes.h (enum_typecode): Note TYPE_CODE_BOOL used for Chill as well as Modula-2. * gdbtypes.y (builtin_type_chill_bool, builtin_type_chill_long, builtin_type_chill_ulong, builtin_type_chill_real): Add. * i387-tdep.c (sys/dir.h): Remove, appears to be unnecessary and is nonexistant in some SVR4 based systems. * language.c (DEFAULT_ALLOCSIZE): Change from 3 => 4. * language.c (set_language_command): Add chill. * language.c (binop_result_type, integral_type, character_type, boolean_type, structured_type, value_true, binop_type_check): Add language_chill cases. * language.h (_LANG_chill): Define. * m2-exp.y (number_sign, modblock): Make static, #ifdef out unused modblock. * m2-exp.y (ANDAND): Rename to LOGICAL_AND. * source.c (source_info): Fix minor nits, print "1 line" rather than "1 lines", and "language is <lang>". * symfile.c (deduce_language_from_filename): Recognize the filename extensions ".chill", ".c186", and ".c286" for Chill. * valarith.c (value_binop): Handle TYPE_CODE_BOOL as well as TYPE_CODE_INT and TYPE_CODE_FLOAT. * valprint.c (val_print): Print TYPE_CODE_BOOL type values as "TRUE" or "FALSE". * valprint.c (typedef_print): Add case for language_chill. * values.c (value_from_longest): Handle TYPE_CODE_BOOL.
128 lines
3.3 KiB
C
128 lines
3.3 KiB
C
/* Intel 387 floating point stuff.
|
|
Copyright (C) 1988, 1989, 1991 Free Software Foundation, Inc.
|
|
|
|
This file is part of GDB.
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation; either version 2 of the License, or
|
|
(at your option) any later version.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
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. */
|
|
|
|
#include "defs.h"
|
|
#include "frame.h"
|
|
#include "inferior.h"
|
|
#include "language.h"
|
|
#include "gdbcore.h"
|
|
#include "ieee-float.h"
|
|
|
|
#ifdef USG
|
|
#include <sys/types.h>
|
|
#endif
|
|
|
|
#include <sys/param.h>
|
|
#include <signal.h>
|
|
#include <sys/user.h>
|
|
#include <sys/ioctl.h>
|
|
#include <fcntl.h>
|
|
|
|
#include <sys/file.h>
|
|
#include <sys/stat.h>
|
|
|
|
#include <sys/reg.h>
|
|
|
|
struct ext_format ext_format_i387 = {
|
|
/* tot sbyte smask expbyte manbyte */
|
|
10, 9, 0x80, 9,8, 4,0 /* i387 */
|
|
};
|
|
|
|
/* FIXME: Eliminate these routines when we have the time to change all
|
|
the callers. */
|
|
|
|
void
|
|
i387_to_double (from, to)
|
|
char *from;
|
|
char *to;
|
|
{
|
|
ieee_extended_to_double (&ext_format_i387, from, (double *)to);
|
|
}
|
|
|
|
void
|
|
double_to_i387 (from, to)
|
|
char *from;
|
|
char *to;
|
|
{
|
|
double_to_ieee_extended (&ext_format_i387, (double *)from, to);
|
|
}
|
|
|
|
void
|
|
print_387_control_word (control)
|
|
unsigned int control;
|
|
{
|
|
printf ("control %s: ", local_hex_string(control));
|
|
printf ("compute to ");
|
|
switch ((control >> 8) & 3)
|
|
{
|
|
case 0: printf ("24 bits; "); break;
|
|
case 1: printf ("(bad); "); break;
|
|
case 2: printf ("53 bits; "); break;
|
|
case 3: printf ("64 bits; "); break;
|
|
}
|
|
printf ("round ");
|
|
switch ((control >> 10) & 3)
|
|
{
|
|
case 0: printf ("NEAREST; "); break;
|
|
case 1: printf ("DOWN; "); break;
|
|
case 2: printf ("UP; "); break;
|
|
case 3: printf ("CHOP; "); break;
|
|
}
|
|
if (control & 0x3f)
|
|
{
|
|
printf ("mask:");
|
|
if (control & 0x0001) printf (" INVALID");
|
|
if (control & 0x0002) printf (" DENORM");
|
|
if (control & 0x0004) printf (" DIVZ");
|
|
if (control & 0x0008) printf (" OVERF");
|
|
if (control & 0x0010) printf (" UNDERF");
|
|
if (control & 0x0020) printf (" LOS");
|
|
printf (";");
|
|
}
|
|
printf ("\n");
|
|
if (control & 0xe080) warning ("reserved bits on: %s\n",
|
|
local_hex_string(control & 0xe080));
|
|
}
|
|
|
|
void
|
|
print_387_status_word (status)
|
|
unsigned int status;
|
|
{
|
|
printf ("status %s: ", local_hex_string (status));
|
|
if (status & 0xff)
|
|
{
|
|
printf ("exceptions:");
|
|
if (status & 0x0001) printf (" INVALID");
|
|
if (status & 0x0002) printf (" DENORM");
|
|
if (status & 0x0004) printf (" DIVZ");
|
|
if (status & 0x0008) printf (" OVERF");
|
|
if (status & 0x0010) printf (" UNDERF");
|
|
if (status & 0x0020) printf (" LOS");
|
|
if (status & 0x0040) printf (" FPSTACK");
|
|
printf ("; ");
|
|
}
|
|
printf ("flags: %d%d%d%d; ",
|
|
(status & 0x4000) != 0,
|
|
(status & 0x0400) != 0,
|
|
(status & 0x0200) != 0,
|
|
(status & 0x0100) != 0);
|
|
|
|
printf ("top %d\n", (status >> 11) & 7);
|
|
}
|