Return to trace9.c CVS log

Up to [Research Unix] / researchv8dc / cmd / trace

Annotation of researchv8dc/cmd/trace/trace9.c, revision 1.1

1.1     ! root        1: #include "stdio.h"
        !             2: #include "trace.h"
        !             3: #include "trace.d"
        !             4: 
        !             5:  struct Swiffle *slist, *slast, *flast;
        !             6:  int nswiff = 0, fswiff = 0;
        !             7: 
        !             8: struct Swiffle *
        !             9: unswiffle(avoid)
        !            10:        struct STATE *avoid;
        !            11: {
        !            12:        struct Swiffle *try, *result = (struct Swiffle *) NULL;
        !            13:        register int i;
        !            14: 
        !            15:        for (i = nswiff, try = slist; i > 0; i--, try = try->next)
        !            16:                if (try->st != avoid)
        !            17:                {       result = try;
        !            18:                        getput(try, i);
        !            19:                        if (try->vi->analyzed == 0)
        !            20:                        {       fprintf(stderr, "assertion botched\n");
        !            21:                                kill(getpid(), 3);
        !            22:                        }
        !            23:                        break;
        !            24:                }
        !            25: 
        !            26:        return result;
        !            27: }
        !            28: 
        !            29: swiffle(this, that)
        !            30:        struct STATE *this;
        !            31:        struct VISIT *that;
        !            32: {
        !            33:        struct Swiffle *getswiff(), *try;
        !            34: 
        !            35:        try = getswiff();
        !            36:        try->st = this;
        !            37:        try->vi = that;
        !            38: 
        !            39:        if (nswiff++ == 0)
        !            40:                slist = try;
        !            41:        else
        !            42:        {       slast->next = try;
        !            43:                try->last = slast;
        !            44:        }
        !            45:        slast = try;
        !            46: }
        !            47: 
        !            48: getput(try, n)
        !            49:        struct Swiffle *try;
        !            50: {
        !            51: /* unlink from slist: */
        !            52:        if (try == slist)
        !            53:                slist = try->next;
        !            54:        else
        !            55:                try->last->next = try->next;
        !            56: 
        !            57:        if (n > 1)
        !            58:                try->next->last = try->last;
        !            59: 
        !            60:        if (try == slast)
        !            61:        {       if (try == slist)
        !            62:                        slast = (struct Swiffle *) NULL;
        !            63:                else
        !            64:                        slast = try->last;
        !            65:        }
        !            66:        nswiff--;
        !            67: 
        !            68: /* relink in flist: */
        !            69:        try->next = (struct Swiffle *) NULL;
        !            70: 
        !            71:        if (fswiff++ == 0)
        !            72:                try->last = (struct Swiffle *) NULL;
        !            73:        else
        !            74:        {       flast->next = try;
        !            75:                try->last = flast;
        !            76:        }
        !            77:        flast = try;
        !            78: }
        !            79: 
        !            80: struct Swiffle *
        !            81: getswiff()
        !            82: {      struct Swiffle *try;
        !            83: 
        !            84:        if (fswiff == 0)
        !            85:                try = (struct Swiffle *) Smalloc(sizeof(struct Swiffle));
        !            86:        else
        !            87:        {       fswiff--;
        !            88:                try = flast;
        !            89:                if ((flast = try->last) != NULL)
        !            90:                        flast->next = (struct Swiffle *) NULL;
        !            91:        }
        !            92:        try->next = try->last = (struct Swiffle *) NULL;
        !            93: 
        !            94:        return try;
        !            95: }

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