Return to resetp.c CVS log

Up to [CSRG BSD Unix] / 42BSD / ingres / source / ctlmod

Annotation of 42BSD/ingres/source/ctlmod/resetp.c, revision 1.1

1.1     ! root        1: # include      "ctlmod.h"
        !             2: # include      <ingres.h>
        !             3: # include      <tree.h>
        !             4: # include      <sccs.h>
        !             5: 
        !             6: SCCSID(@(#)resetp.c    7.1     2/5/81)
        !             7: 
        !             8: /*
        !             9: **  RESETP -- reset parameters from call.
        !            10: **
        !            11: **     This must be called after an initp-setp-call sequence to
        !            12: **     reclaim the memory gathered by the initp.  It can also be
        !            13: **     used in an initp-setp sequence to clean up if an error is
        !            14: **     found.
        !            15: **
        !            16: **     Parameters:
        !            17: **             none.
        !            18: **
        !            19: **     Returns:
        !            20: **             none.
        !            21: **
        !            22: **     Side Effects:
        !            23: **             Restores the old context.
        !            24: **             Reclaims space from Qbuf.
        !            25: **
        !            26: **     Trace Flags:
        !            27: **             4.4 - 4.7
        !            28: */
        !            29: 
        !            30: resetp()
        !            31: {
        !            32:        extern char     *Proc_name;
        !            33: 
        !            34: # ifdef xCTR1
        !            35:        if (tTf(4, 4))
        !            36:                printf("resetp: ctx_new=%d _init=%d _link=%x _pmark=%d _cmark=%d\n",
        !            37:                    Ctx.ctx_new, Ctx.ctx_init, Ctx.ctx_link, Ctx.ctx_pmark,
        !            38:                    Ctx.ctx_cmark);
        !            39: # endif
        !            40: 
        !            41:        /* don't do anything if no matching "initp" call */
        !            42:        if (!Ctx.ctx_new)
        !            43:                return;
        !            44: 
        !            45:        /*
        !            46:        **      The 'freebuf' to ctx_cmark will also deallocate
        !            47:        **      any parameters, since ctx_pmark >= ctx_cmark
        !            48:        **      always.
        !            49:        */
        !            50: 
        !            51:        if (Ctx.ctx_link != NULL)
        !            52:                bmove((char *) Ctx.ctx_link, (char *) &Ctx, Ctx.ctx_size);
        !            53: # ifdef xCM_DEBUG
        !            54:        if (Ctx.ctx_pmark < Ctx.ctx_cmark)
        !            55:                syserr("resetp: pmark %d cmark %d", Ctx.ctx_pmark, Ctx.ctx_cmark);
        !            56: # endif
        !            57:        freebuf(Qbuf, Ctx.ctx_cmark);
        !            58:        tT = Ctx.ctx_tvect;
        !            59:        Proc_name = Ctx.ctx_name;
        !            60: # ifdef xCTR1
        !            61:        if (tTf(4, 5))
        !            62:                lprintf("resetp: free %d\n", Ctx.ctx_cmark);
        !            63: # endif
        !            64: 
        !            65:        /*
        !            66:        **      If there was a Qt associated with this context,
        !            67:        **      restore it also.  If not, but there was a Qt
        !            68:        **      associated with the context we just deallocated,
        !            69:        **      set Qt to be 'unallocated'.
        !            70:        */
        !            71:        if (Ctx.ctx_qt != NULL)
        !            72:        {
        !            73:                /* first free any descriptors */
        !            74:                clrrange();
        !            75:                bmove((char *) Ctx.ctx_qt, (char *) &Qt, sizeof Qt);
        !            76:                free(Ctx.ctx_qt);
        !            77:                Ctx.ctx_qt = NULL;
        !            78:        }
        !            79:        else if (Qt.qt_ctx == NULL)
        !            80:                Qt.qt_active = 0;
        !            81: }

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