darkkirb/old-cross-binutils
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

language.c (binop_result_type): Add language_objc to case.

Browse source 
(integral_type): Likewise.
(character_type): Likewise.
(string_type): Likewise.
(boolean_type): Likewise.
(structured_type): Likewise.
(binop_type_check): Likewise.
This commit is contained in:
Adam Fedor 2002-10-12 16:03:30 +00:00
parent f9a3a01aef
commit eb392fbf33
2 changed files with 17 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
gdb/ChangeLog
View file

@ -1,3 +1,13 @@
2002-10-12 Adam Fedor <fedor@gnu.org>
* language.c (binop_result_type): Add language_objc to case.
(integral_type): Likewise.
(character_type): Likewise.
(string_type): Likewise.
(boolean_type): Likewise.
(structured_type): Likewise.
(binop_type_check): Likewise.
2002-10-11 Adam Fedor <fedor@gnu.org> 2002-10-11 Adam Fedor <fedor@gnu.org>
* printcmd.c (address_info): Print 'self' for ObjC. * printcmd.c (address_info): Print 'self' for ObjC.

7
gdb/language.c
View file

@ -549,6 +549,7 @@ binop_result_type (struct value *v1, struct value *v2)
{ {
case language_c: case language_c:
case language_cplus: case language_cplus:
case language_objc:
if (TYPE_CODE (t1) == TYPE_CODE_FLT) if (TYPE_CODE (t1) == TYPE_CODE_FLT)
return TYPE_CODE (t2) == TYPE_CODE_FLT && l2 > l1 ? return TYPE_CODE (t2) == TYPE_CODE_FLT && l2 > l1 ?
VALUE_TYPE (v2) : VALUE_TYPE (v1); VALUE_TYPE (v2) : VALUE_TYPE (v1);
@ -786,6 +787,7 @@ integral_type (struct type *type)
{ {
case language_c: case language_c:
case language_cplus: case language_cplus:
case language_objc:
return (TYPE_CODE (type) != TYPE_CODE_INT) && return (TYPE_CODE (type) != TYPE_CODE_INT) &&
(TYPE_CODE (type) != TYPE_CODE_ENUM) ? 0 : 1; (TYPE_CODE (type) != TYPE_CODE_ENUM) ? 0 : 1;
case language_m2: case language_m2:
@ -828,6 +830,7 @@ character_type (struct type *type)
case language_c: case language_c:
case language_cplus: case language_cplus:
case language_objc:
return (TYPE_CODE (type) == TYPE_CODE_INT) && return (TYPE_CODE (type) == TYPE_CODE_INT) &&
TYPE_LENGTH (type) == sizeof (char) TYPE_LENGTH (type) == sizeof (char)
? 1 : 0; ? 1 : 0;
@ -850,6 +853,7 @@ string_type (struct type *type)
case language_c: case language_c:
case language_cplus: case language_cplus:
case language_objc:
/* C does not have distinct string type. */ /* C does not have distinct string type. */
return (0); return (0);
default: default:
@ -868,6 +872,7 @@ boolean_type (struct type *type)
{ {
case language_c: case language_c:
case language_cplus: case language_cplus:
case language_objc:
/* Might be more cleanly handled by having a /* Might be more cleanly handled by having a
TYPE_CODE_INT_NOT_BOOL for (OBSOLETE) CHILL and such TYPE_CODE_INT_NOT_BOOL for (OBSOLETE) CHILL and such
languages, or a TYPE_CODE_INT_OR_BOOL for C. */ languages, or a TYPE_CODE_INT_OR_BOOL for C. */
@ -904,6 +909,7 @@ structured_type (struct type *type)
{ {
case language_c: case language_c:
case language_cplus: case language_cplus:
case language_objc:
return (TYPE_CODE (type) == TYPE_CODE_STRUCT) || return (TYPE_CODE (type) == TYPE_CODE_STRUCT) ||
(TYPE_CODE (type) == TYPE_CODE_UNION) || (TYPE_CODE (type) == TYPE_CODE_UNION) ||
(TYPE_CODE (type) == TYPE_CODE_ARRAY); (TYPE_CODE (type) == TYPE_CODE_ARRAY);
@ -1124,6 +1130,7 @@ binop_type_check (struct value *arg1, struct value *arg2, int op)
#ifdef _LANG_c #ifdef _LANG_c
case language_c: case language_c:
case language_cplus: case language_cplus:
case language_objc:
switch (op) switch (op)
{ {
case BINOP_DIV: case BINOP_DIV: