/*
 * call-seq:
 *    res.clear()
 *
 * Clears the PGresult object as the result of the query.
 */
static VALUE
pgresult_clear(obj)
  VALUE obj;
{
  PQclear(get_pgresult(obj));
  DATA_PTR(obj) = 0;

  return Qnil;
}