Return to dtors.c CVS log

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

Annotation of researchv10no/cmd/cfront/libC/misc/dtors.c, revision 1.1.1.1

1.1       root        1: typedef void (*PFV)();
                      2: 
                      3: extern "C" {
                      4:        extern __dtors();
                      5: }
                      6: 
                      7: __dtors()
                      8: {
                      9:        extern PFV _dtors[];
                     10:        static ddone;
                     11:        if (ddone == 0) {       // once only
                     12:                ddone = 1;
                     13:                PFV* pf = _dtors;
                     14:                while (*pf) pf++;
                     15:                while (_dtors < pf) (**--pf)();
                     16:        }
                     17:        return 0;
                     18: }

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