/* pe_expunge.c - expunge a PE */
static char *rcsid
= "$Header: /f/osi/psap/RCS/pe_expunge.c,v 7.2 91/02/22 09:36:13 mrose Interim $";
* $Header: /f/osi/psap/RCS/pe_expunge.c,v 7.2 91/02/22 09:36:13 mrose Interim $
* Revision 7.2 91/02/22 09:36:13 mrose
* Revision 7.1 91/02/12 18:32:46 mrose
* Revision 7.0 89/11/23 22:13:03 mrose
* Acquisition, use, and distribution of this module and related
* materials are subject to the restrictions of a license agreement.
* Consult the Preface in the User's Manual for the full terms of
if (pe
-> pe_realbase
&& !r
-> pe_realbase
) {
r
-> pe_realbase
= pe
-> pe_realbase
;
pe
-> pe_realbase
= NULL
;