else if (TYPE_CODE (type) == TYPE_CODE_INT || TYPE_CODE (type) == TYPE_CODE_BOOL)
else if (is_integral_type (type))
value_neg (struct value *arg1){  struct type *type;  struct type *result_type = VALUE_TYPE (arg1);  COERCE_REF (arg1);  COERCE_ENUM (arg1);  type = check_typedef (VALUE_TYPE (arg1));  if (TYPE_CODE (type) == TYPE_CODE_FLT)    return value_from_double (result_type, -value_as_double (arg1));  else if (TYPE_CODE (type) == TYPE_CODE_INT || TYPE_CODE (type) == TYPE_CODE_BOOL)    {      /* Perform integral promotion for ANSI C/C++.  FIXME: What about         FORTRAN and (the deleted) chill ?  */      if (TYPE_LENGTH (type) < TYPE_LENGTH (builtin_type_int))	result_type = builtin_type_int;      return value_from_longest (result_type, -value_as_long (arg1));    }  else    {      error ("Argument to negate operation not a number.");      return 0;			/* For lint -- never reached */    }}