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.
This commit is contained in:
parent
f9a3a01aef
commit
eb392fbf33
@ -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>
|
||||
|
||||
* printcmd.c (address_info): Print 'self' for ObjC.
|
||||
|
@ -549,6 +549,7 @@ binop_result_type (struct value *v1, struct value *v2)
|
||||
{
|
||||
case language_c:
|
||||
case language_cplus:
|
||||
case language_objc:
|
||||
if (TYPE_CODE (t1) == TYPE_CODE_FLT)
|
||||
return TYPE_CODE (t2) == TYPE_CODE_FLT && l2 > l1 ?
|
||||
VALUE_TYPE (v2) : VALUE_TYPE (v1);
|
||||
@ -786,6 +787,7 @@ integral_type (struct type *type)
|
||||
{
|
||||
case language_c:
|
||||
case language_cplus:
|
||||
case language_objc:
|
||||
return (TYPE_CODE (type) != TYPE_CODE_INT) &&
|
||||
(TYPE_CODE (type) != TYPE_CODE_ENUM) ? 0 : 1;
|
||||
case language_m2:
|
||||
@ -828,6 +830,7 @@ character_type (struct type *type)
|
||||
|
||||
case language_c:
|
||||
case language_cplus:
|
||||
case language_objc:
|
||||
return (TYPE_CODE (type) == TYPE_CODE_INT) &&
|
||||
TYPE_LENGTH (type) == sizeof (char)
|
||||
? 1 : 0;
|
||||
@ -850,6 +853,7 @@ string_type (struct type *type)
|
||||
|
||||
case language_c:
|
||||
case language_cplus:
|
||||
case language_objc:
|
||||
/* C does not have distinct string type. */
|
||||
return (0);
|
||||
default:
|
||||
@ -868,6 +872,7 @@ boolean_type (struct type *type)
|
||||
{
|
||||
case language_c:
|
||||
case language_cplus:
|
||||
case language_objc:
|
||||
/* Might be more cleanly handled by having a
|
||||
TYPE_CODE_INT_NOT_BOOL for (OBSOLETE) CHILL and such
|
||||
languages, or a TYPE_CODE_INT_OR_BOOL for C. */
|
||||
@ -904,6 +909,7 @@ structured_type (struct type *type)
|
||||
{
|
||||
case language_c:
|
||||
case language_cplus:
|
||||
case language_objc:
|
||||
return (TYPE_CODE (type) == TYPE_CODE_STRUCT) ||
|
||||
(TYPE_CODE (type) == TYPE_CODE_UNION) ||
|
||||
(TYPE_CODE (type) == TYPE_CODE_ARRAY);
|
||||
@ -1124,6 +1130,7 @@ binop_type_check (struct value *arg1, struct value *arg2, int op)
|
||||
#ifdef _LANG_c
|
||||
case language_c:
|
||||
case language_cplus:
|
||||
case language_objc:
|
||||
switch (op)
|
||||
{
|
||||
case BINOP_DIV:
|
||||
|
Loading…
Reference in New Issue
Block a user