Return to dtors.c CVS log

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

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

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

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