if (val != NULL) /* Value history reference */
{
- if (TYPE_CODE (value_type (val)) == TYPE_CODE_INT)
+ if (value_type (val)->code () == TYPE_CODE_INT)
retval = value_as_long (val);
else
error (_("History value must have integer type."));
if (val) /* Value history reference */
{
- if (TYPE_CODE (value_type (val)) == TYPE_CODE_INT)
+ if (value_type (val)->code () == TYPE_CODE_INT)
retval = value_as_long (val);
else
{