projects
/
deliverable
/
binutils-gdb.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* hppa-dis.c (print_insn_hppa): Change condition args to use
[deliverable/binutils-gdb.git]
/
gdb
/
f-exp.y
diff --git
a/gdb/f-exp.y
b/gdb/f-exp.y
index ee97015ef6b9696f9fe4f3c35b1f1821fdf1de99..4a1f747605c902b56a86d013a97052508dbae5a8 100644
(file)
--- a/
gdb/f-exp.y
+++ b/
gdb/f-exp.y
@@
-43,7
+43,7
@@
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
%{
#include "defs.h"
%{
#include "defs.h"
-#include
<string.h>
+#include
"gdb_string.h"
#include "expression.h"
#include "value.h"
#include "parser-defs.h"
#include "expression.h"
#include "value.h"
#include "parser-defs.h"
@@
-109,6
+109,10
@@
static int yylex PARAMS ((void));
void yyerror PARAMS ((char *));
void yyerror PARAMS ((char *));
+static void growbuf_by_size PARAMS ((int));
+
+static int match_string_literal PARAMS ((void));
+
%}
/* Although the yacc "value" of an expression is not used,
%}
/* Although the yacc "value" of an expression is not used,
@@
-122,7
+126,7
@@
void yyerror PARAMS ((char *));
LONGEST val;
struct type *type;
} typed_val;
LONGEST val;
struct type *type;
} typed_val;
-
double
dval;
+
DOUBLEST
dval;
struct symbol *sym;
struct type *tval;
struct stoken sval;
struct symbol *sym;
struct type *tval;
struct stoken sval;
@@
-418,6
+422,7
@@
exp : VARIABLE
exp : SIZEOF '(' type ')' %prec UNARY
{ write_exp_elt_opcode (OP_LONG);
write_exp_elt_type (builtin_type_f_integer);
exp : SIZEOF '(' type ')' %prec UNARY
{ write_exp_elt_opcode (OP_LONG);
write_exp_elt_type (builtin_type_f_integer);
+ CHECK_TYPEDEF ($3);
write_exp_elt_longcst ((LONGEST) TYPE_LENGTH ($3));
write_exp_elt_opcode (OP_LONG); }
;
write_exp_elt_longcst ((LONGEST) TYPE_LENGTH ($3));
write_exp_elt_opcode (OP_LONG); }
;
@@
-638,7
+643,7
@@
parse_number (p, len, parsed_float, putithere)
register int base = input_radix;
int unsigned_p = 0;
int long_p = 0;
register int base = input_radix;
int unsigned_p = 0;
int long_p = 0;
-
unsigned
LONGEST high_bit;
+
U
LONGEST high_bit;
struct type *signed_type;
struct type *unsigned_type;
struct type *signed_type;
struct type *unsigned_type;
@@
-740,13
+745,13
@@
parse_number (p, len, parsed_float, putithere)
&& ((n >> 2) >> (TARGET_INT_BIT-2))) /* Avoid shift warning */
|| long_p)
{
&& ((n >> 2) >> (TARGET_INT_BIT-2))) /* Avoid shift warning */
|| long_p)
{
- high_bit = ((
unsigned
LONGEST)1) << (TARGET_LONG_BIT-1);
+ high_bit = ((
U
LONGEST)1) << (TARGET_LONG_BIT-1);
unsigned_type = builtin_type_unsigned_long;
signed_type = builtin_type_long;
}
else
{
unsigned_type = builtin_type_unsigned_long;
signed_type = builtin_type_long;
}
else
{
- high_bit = ((
unsigned
LONGEST)1) << (TARGET_INT_BIT-1);
+ high_bit = ((
U
LONGEST)1) << (TARGET_INT_BIT-1);
unsigned_type = builtin_type_unsigned_int;
signed_type = builtin_type_int;
}
unsigned_type = builtin_type_unsigned_int;
signed_type = builtin_type_int;
}
This page took
0.032381 seconds
and
4
git commands to generate.