Return to dtors.c CVS log

Up to [Research Unix] / researchv10no / cmd / cfront / libC / misc

researchv10 Norman

typedef void (*PFV)();

extern "C" {
	extern __dtors();
}

__dtors()
{
	extern PFV _dtors[];
	static ddone;
	if (ddone == 0) {	// once only
		ddone = 1;
		PFV* pf = _dtors;
		while (*pf) pf++;
		while (_dtors < pf) (**--pf)();
	}
	return 0;
}

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.