Return to trace.c CVS log

Up to [Research Unix] / researchv10no / cmd / sml / src / runtime

Annotation of researchv10no/cmd/sml/src/runtime/trace.c, revision 1.1.1.1

1.1       root        1: /* Copyright 1989 by AT&T Bell Laboratories */
                      2: #include "tags.h"
                      3: #include "descriptor.h"
                      4: trace(to_low, target_lo, target_hi) int *to_low, *target_lo, *target_hi;
                      5: {int *x=to_low;
                      6:  chatting("tracing %8x\n", target_lo);
                      7:   while(x<target_lo)
                      8:    {int *p= x+1, *x0= x;
                      9:     if (contains_no_ptrs(*x)) 
                     10:        x+=((get_len(x)+7)>>2);
                     11:     else 
                     12:       {x += get_len(x)+1;
                     13:        do if ((((*p)&1)==0) && *p >= (int)target_lo && *p < (int)target_hi)
                     14:             {trace(to_low,x0,x);
                     15:             printrec(x0);
                     16:             return;
                     17:            }
                     18:          while (++p < x);
                     19:       }
                     20:    }
                     21: }
                     22: 
                     23: printrec(x) int *x;
                     24: {int len = get_len(x), i;
                     25:     chatting("\nAddress %8x:    tag=%8x\n",x+1,*x);
                     26:     for(i=0;i<len;i++)
                     27:      chatting("[%2x] %8x\n",i,x[i+1]);
                     28: }

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