yggdrasil/binutils-gdb
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* ch-valprint.c (annotate.h): Include.

Browse Source 
* eval.c (evaluate_subexp_standard): Remove unused variable.
	(calc_f77_array_dims): Add parens to expression.
	* f-exp.y (yylex): Add parens to expression, remove unused label.
	* f-lang.h (calc_f77_array_dims): Declare.
	* f-valprint.c (f_val_print): Remove unused variables.
This commit is contained in:
Stan Shebs 1995-03-14 02:37:20 +00:00
parent 85a30e5978
commit 477b242500
6 changed files with 18 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
gdb/ChangeLog
View File

@ -1,11 +1,20 @@
Mon Mar 13 18:27:25 1995 Stan Shebs <shebs@andros.cygnus.com>
* ch-valprint.c (annotate.h): Include.
* eval.c (evaluate_subexp_standard): Remove unused variable.
(calc_f77_array_dims): Add parens to expression.
* f-exp.y (yylex): Add parens to expression, remove unused label.
* f-lang.h (calc_f77_array_dims): Declare.
* f-valprint.c (f_val_print): Remove unused variables.
Mon Mar 13 15:25:47 1995 Jim Kingdon <kingdon@deneb.cygnus.com>
* alpha-tdep.c (find_proc_desc): If pdr.framereg field is -1, don't
use the PDR, just examine prologues instead.
start-sanitize-arc
Fri Mar 10 16:13:18 1995 Kung Hsu <kung@mexican.cygnus.com>
start-sanitize-arc
* config/tm-arc.h: Change arc register names.
end-sanitize-arc

1
gdb/ch-valprint.c
View File

@ -30,6 +30,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
#include "c-lang.h" /* For c_val_print */
#include "typeprint.h"
#include "ch-lang.h"
#include "annotate.h"
static void
chill_print_value_fields PARAMS ((struct type *, char *, GDB_FILE *, int, int,

10
gdb/eval.c
View File

@ -1,5 +1,5 @@
/* Evaluate expressions for GDB.
Copyright 1986, 1987, 1989, 1991, 1992, 1993, 1994
Copyright 1986, 1987, 1989, 1991, 1992, 1993, 1994, 1995
Free Software Foundation, Inc.
This file is part of GDB.
@ -28,16 +28,13 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
#include "frame.h"
#include "demangle.h"
#include "language.h" /* For CAST_IS_CONVERSION */
#include "f-lang.h" /* for array bound stuff */
#include "f-lang.h" /* for array bound stuff */
/* Prototypes for local functions. */
static value_ptr evaluate_subexp_for_sizeof PARAMS ((struct expression *,
int *));
value_ptr evaluate_subexp_with_coercion PARAMS ((struct expression *,
int *, enum noside));
static value_ptr evaluate_subexp_for_address PARAMS ((struct expression *,
int *, enum noside));
@ -951,7 +948,6 @@ evaluate_subexp_standard (expect_type, exp, pos, noside)
int ndimensions=1,i;
struct type *tmp_type;
int offset_item; /* The array offset where the item lives */
int fixed_subscript;
if (nargs > MAX_FORTRAN_DIMS)
error ("Too many subscripts for F77 (%d Max)", MAX_FORTRAN_DIMS);
@ -1579,7 +1575,7 @@ calc_f77_array_dims (array_type)
tmp_type = array_type;
while (tmp_type = TYPE_TARGET_TYPE (tmp_type))
while ((tmp_type = TYPE_TARGET_TYPE (tmp_type)))
{
if (TYPE_CODE (tmp_type) == TYPE_CODE_ARRAY)
++ndimen;

5
gdb/f-exp.y
View File

@ -1039,8 +1039,8 @@ yylex ()
got_dot = got_d = 1;
else if (!hex && !got_dot && *p == '.')
got_dot = 1;
else if ((got_e && (p[-1] == 'e' || p[-1] == 'E'))
|| (got_d && (p[-1] == 'd' || p[-1] == 'D'))
else if (((got_e && (p[-1] == 'e' || p[-1] == 'E'))
|| (got_d && (p[-1] == 'd' || p[-1] == 'D')))
&& (*p == '-' || *p == '+'))
/* This is the sign of the exponent, not the end of the
number. */
@ -1114,7 +1114,6 @@ yylex ()
and $$digits (equivalent to $<-digits> if you could type that).
Make token type LAST, and put the number (the digits) in yylval. */
tryname:
if (*tokstart == '$')
{
register int negate = 0;

2
gdb/f-lang.h
View File

@ -86,6 +86,8 @@ extern int f77_get_dynamic_lowerbound PARAMS ((struct type *, int *));
extern void f77_get_dynamic_array_length PARAMS ((struct type *));
extern int calc_f77_array_dims PARAMS ((struct type *));
#define DEFAULT_DOTMAIN_NAME_IN_MF77 ".MAIN_"
#define DEFAULT_MAIN_NAME_IN_MF77 "MAIN_"
#define DEFAULT_DOTMAIN_NAME_IN_XLF_BUGGY ".main "

2
gdb/f-valprint.c
View File

@ -372,10 +372,8 @@ f_val_print (type, valaddr, address, stream, format, deref_ref, recurse,
enum val_prettyprint pretty;
{
register unsigned int i = 0; /* Number of characters printed */
unsigned len;
struct type *elttype;
LONGEST val;
char *localstr;
char *straddr;
CORE_ADDR addr;