Return to trace8.c CVS log

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

Annotation of researchv10no/cmd/trace/trace8.c, revision 1.1.1.1

1.1       root        1: #include <stdio.h>
                      2: #include "trace.h"
                      3: #include "trace.d"
                      4: 
                      5:  extern int *globvars;
                      6:  extern int nrprocs, nrrefs, nrvars;
                      7:  extern struct PROCSTACK **procstack;
                      8:  extern struct VARPARS *procpars;
                      9: 
                     10:  char *Realloc(), *Emalloc(), *Smalloc();
                     11: 
                     12:  struct TEMPLATE **templates;
                     13:  int nrtemplates = 0, tbound = 0;
                     14: 
                     15: growttable()
                     16: { int nsz = tbound + 32;
                     17: 
                     18:        if (nsz == 32)
                     19:                templates = (struct TEMPLATE **)
                     20:                        Emalloc(nsz * sizeof(struct TEMPLATE *));
                     21:        else
                     22:                templates = (struct TEMPLATE **)
                     23:                        Realloc(templates, nsz * sizeof(struct TEMPLATE *));
                     24:        
                     25:        tbound = nsz;
                     26: 
                     27: }
                     28: 
                     29: struct TEMPLATE *
                     30: Tinsert()
                     31: { struct TEMPLATE *try;
                     32:   register int i;
                     33: 
                     34:        if (nrtemplates >= tbound)
                     35:                growttable();
                     36: 
                     37:        try = (struct TEMPLATE *)
                     38:                Smalloc(sizeof(struct TEMPLATE));
                     39:        try->l_vars = (struct LOCVARS **)
                     40:                Smalloc(nrprocs * sizeof(struct LOCVARS *));
                     41:        try->g_vars = (short *)
                     42:                Smalloc(nrvars * sizeof(short));
                     43: 
                     44:        for (i = 0; i < nrvars; i++)
                     45:                try->g_vars[i] = (short) globvars[i];
                     46: 
                     47:        if (nrrefs > 0)
                     48:                try->traceback = (struct PROCSTACK **)
                     49:                        Smalloc(nrprocs * sizeof(struct PROCSTACK *));
                     50: 
                     51:        for (i = 0; i < nrprocs; i++)
                     52:        {       try->l_vars[i] = (struct LOCVARS *)
                     53:                        Smalloc(sizeof(struct LOCVARS));
                     54: 
                     55:                cpylvars(try->l_vars[i], &(procpars[i]));
                     56: 
                     57:                if (nrrefs > 0)
                     58:                {       if (procstack[i] == NULL)
                     59:                        {       try->traceback[i] = NULL;
                     60:                                continue;
                     61:                        }
                     62:                        try->traceback[i] = (struct PROCSTACK *)
                     63:                                Smalloc(sizeof(struct PROCSTACK));
                     64:                        cpystacks(try->traceback[i], procstack[i]);
                     65:        }       }
                     66: 
                     67:        templates[nrtemplates] = try;
                     68:        nrtemplates++;
                     69: 
                     70:        return try;
                     71: }
                     72: 
                     73: struct TEMPLATE *
                     74: inTtable()
                     75: { register int i;
                     76: 
                     77:        for (i = 0; i < nrtemplates; i++)
                     78:                if (sametempl(templates[i]))
                     79:                        return templates[i];
                     80: 
                     81:        return Tinsert();
                     82: }
                     83: 
                     84: sametempl(at)
                     85:        struct TEMPLATE *at;
                     86: { register int i;
                     87: 
                     88:        for (i = 0; i < nrprocs; i++)
                     89:        {       if (cmplvars(at->l_vars[i], &(procpars[i])) == 0 ||
                     90:                   (nrrefs > 0 && cmpstacks(at->traceback[i], procstack[i]) == 0))
                     91:                        return 0;
                     92:        }
                     93: 
                     94:        for (i = 0; i < nrvars; i++)
                     95:                if (at->g_vars[i] != (short) globvars[i])
                     96:                        return 0;
                     97: 
                     98:        return 1;
                     99: }

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