dtors.c
Click here to get the file
Size
1 kB
-
File type
text/plain
File contents
/*ident "@(#)cls4:Munch/dtors.c 1.3" */
/*******************************************************************************
C++ source for the C++ Language System, Release 3.0. This product
is a new release of the original cfront developed in the computer
science research center of AT&T Bell Laboratories.
Copyright (c) 1993 UNIX System Laboratories, Inc.
Copyright (c) 1991, 1992 AT&T and UNIX System Laboratories, Inc.
Copyright (c) 1984, 1989, 1990 AT&T. All Rights Reserved.
THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE of AT&T and UNIX System
Laboratories, Inc. The copyright notice above does not evidence
any actual or intended publication of such source code.
*******************************************************************************/
typedef void (*PFV)();
void __dtors()
{
extern PFV _dtors[];
static int ddone;
if (ddone == 0) { // once only
ddone = 1;
PFV* pf = _dtors;
while (*pf) pf++;
while (_dtors < pf) (**--pf)();
}
}