typecode = TYPE_CODE (type); if ((typecode != TYPE_CODE_INT) && (typecode != TYPE_CODE_BOOL))
if (!is_integral_type (type))
value_complement (struct value *arg1){  struct type *type;  struct type *result_type = VALUE_TYPE (arg1);  int typecode;  COERCE_REF (arg1);  COERCE_ENUM (arg1);  type = check_typedef (VALUE_TYPE (arg1));  typecode = TYPE_CODE (type);  if ((typecode != TYPE_CODE_INT) && (typecode != TYPE_CODE_BOOL))    error ("Argument to complement operation not an integer or boolean.");  /* Perform integral promotion for ANSI C/C++.     FIXME: What about FORTRAN ?  */  if (TYPE_LENGTH (type) < TYPE_LENGTH (builtin_type_int))    result_type = builtin_type_int;  return value_from_longest (result_type, ~value_as_long (arg1));}