head	1.1;
access;
symbols;
locks
	paul:1.1; strict;
comment	@ * @;


1.1
date	93.06.14.20.37.07;	author paul;	state Exp;
branches;
next	;


desc
@@


1.1
log
@Initial revision
@
text
@/*
** FreeQIR -- Free space allocated within QI_response array
**
**	Parameters:
**		QRp -- pointer to array of QI_response
**
**	Returns:
**		None
**
**	Side Effects:
**		none
*/

#include "qiapi.h"

#ifndef lint
static char RcsId[] = "@@(#)$Id$";
#endif

void
FreeQIR(QRp)
    QIR	*QRp;
{
    QIR	*QRsave = QRp;

    if (QRp == QIR_NULL)
	return;
    do {
	if (QRp->message != (char *) NULL)
	    free (QRp->message);
    } while ((QRp++)->code < 0);
    free ((char *) QRsave);
}
@