da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/***********************************************************************
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* This software is part of the ast package *
3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner* Copyright (c) 1985-2010 AT&T Intellectual Property *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* and is licensed under the *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Common Public License, Version 1.0 *
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin* by AT&T Intellectual Property *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* A copy of the License is available at *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* http://www.opensource.org/licenses/cpl1.0.txt *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9) *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Information and Software Systems Research *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* AT&T Research *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Florham Park NJ *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Glenn Fowler <gsf@research.att.com> *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* David Korn <dgk@research.att.com> *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Phong Vo <kpv@research.att.com> *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin***********************************************************************/
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if defined(_UWIN) && defined(_BLD_ast)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinvoid _STUB_vmtrace(){}
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#else
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "vmhdr.h"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/* Turn on tracing for regions
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin**
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin** Written by Kiem-Phong Vo, kpv@research.att.com, 01/16/94.
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin*/
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int Trfile = -1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic char Trbuf[128];
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if __STD_C
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic char* trstrcpy(char* to, const char* from, int endc)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#else
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic char* trstrcpy(to, from, endc)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinchar* to;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinconst char* from;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinint endc;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{ reg int n;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = strlen(from);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin memcpy(to,from,n);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin to += n;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((*to = endc) )
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin to += 1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return to;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/* convert a long value to an ascii representation */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if __STD_C
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic char* tritoa(Vmulong_t v, int type)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#else
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic char* tritoa(v, type)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinVmulong_t v; /* value to convert */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinint type; /* =0 base-16, >0: unsigned base-10, <0: signed base-10 */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char* s;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin s = &Trbuf[sizeof(Trbuf) - 1];
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *s-- = '\0';
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(type == 0) /* base-16 */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { reg char* digit = "0123456789abcdef";
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin do
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { *s-- = digit[v&0xf];
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin v >>= 4;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin } while(v);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(type > 0) /* unsigned base-10 */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { do
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { *s-- = (char)('0' + (v%10));
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin v /= 10;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin } while(v);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else /* signed base-10 */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { int sign = ((long)v < 0);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(sign)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin v = (Vmulong_t)(-((long)v));
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin do
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { *s-- = (char)('0' + (v%10));
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin v /= 10;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin } while(v);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(sign)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *s-- = '-';
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return s+1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/* generate a trace of some call */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if __STD_C
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic void trtrace(Vmalloc_t* vm,
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Vmuchar_t* oldaddr, Vmuchar_t* newaddr, size_t size, size_t align )
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#else
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic void trtrace(vm, oldaddr, newaddr, size, align)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinVmalloc_t* vm; /* region call was made from */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinVmuchar_t* oldaddr; /* old data address */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinVmuchar_t* newaddr; /* new data address */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinsize_t size; /* size of piece */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinsize_t align; /* alignment */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char buf[1024], *bufp, *endbuf;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Vmdata_t* vd = vm->data;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin const char* file = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int line = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin const Void_t* func = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int comma;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int n;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int m;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int type;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define SLOP 64
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(oldaddr == (Vmuchar_t*)(-1)) /* printing busy blocks */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { type = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin oldaddr = NIL(Vmuchar_t*);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { type = vd->mode&VM_METHODS;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin VMFLF(vm,file,line,func);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(Trfile < 0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin bufp = buf; endbuf = buf+sizeof(buf);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin bufp = trstrcpy(bufp, tritoa(oldaddr ? VLONG(oldaddr) : 0L, 0), ':');
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin bufp = trstrcpy(bufp, tritoa(newaddr ? VLONG(newaddr) : 0L, 0), ':');
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin bufp = trstrcpy(bufp, tritoa((Vmulong_t)size, 1), ':');
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin bufp = trstrcpy(bufp, tritoa((Vmulong_t)align, 1), ':');
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin bufp = trstrcpy(bufp, tritoa(VLONG(vm), 0), ':');
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(type&VM_MTBEST)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin bufp = trstrcpy(bufp, "b", ':');
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(type&VM_MTLAST)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin bufp = trstrcpy(bufp, "l", ':');
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(type&VM_MTPOOL)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin bufp = trstrcpy(bufp, "p", ':');
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(type&VM_MTPROFILE)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin bufp = trstrcpy(bufp, "s", ':');
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(type&VM_MTDEBUG)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin bufp = trstrcpy(bufp, "d", ':');
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else bufp = trstrcpy(bufp, "u", ':');
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin comma = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(file && file[0] && line > 0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { if((bufp + strlen(file) + SLOP) >= endbuf)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { char* f;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for(f = bufp + strlen(file); f > file; --f)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(f[-1] == '/' || f[-1] == '\\')
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin file = f;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin bufp = trstrcpy(bufp, "file", '=');
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = endbuf - bufp - SLOP - 3;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin m = strlen(file);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(m > n)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { file += (m - n);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin bufp = trstrcpy(bufp, "..", '.');
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin bufp = trstrcpy(bufp, file, ',');
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin bufp = trstrcpy(bufp, "line", '=');
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin bufp = trstrcpy(bufp, tritoa((Vmulong_t)line,1), 0);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin comma = 1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(func)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { if(comma)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *bufp++ = ',';
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin bufp = trstrcpy(bufp, "func", '=');
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if _PACKAGE_ast
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin bufp = trstrcpy(bufp, (const char*)func, 0);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#else
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin bufp = trstrcpy(bufp, tritoa((Vmulong_t)func,0), 0);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin comma = 1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(comma)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *bufp++ = ':';
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *bufp++ = '\n';
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *bufp = '\0';
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin write(Trfile,buf,(bufp-buf));
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if DEBUG
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if __STD_C
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinvoid _vmmessage(const char* s1, long n1, const char* s2, long n2)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#else
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinvoid _vmmessage(s1, n1, s2, n2)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinconst char* s1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinlong n1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinconst char* s2;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinlong n2;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char buf[1024], *bufp;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin bufp = buf;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin bufp = trstrcpy(bufp, "vmalloc", ':');
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (s1)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin bufp = trstrcpy(bufp, s1, ':');
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (n1)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin bufp = trstrcpy(bufp, tritoa(n1, 1), ':');
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (s2)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin bufp = trstrcpy(bufp, s2, ':');
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (n2)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin bufp = trstrcpy(bufp, tritoa(n2, 0), ':');
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner bufp = trstrcpy(bufp, tritoa((long)getpid(), 1), ':');
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *bufp++ = '\n';
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin write(2,buf,(bufp-buf));
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if __STD_C
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinint vmtrace(int file)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#else
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinint vmtrace(file)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinint file;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int fd;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin _Vmstrcpy = trstrcpy;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin _Vmitoa = tritoa;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin _Vmtrace = trtrace;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fd = Trfile;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Trfile = file;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return fd;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if __STD_C
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinint vmtrbusy(Vmalloc_t* vm)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#else
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinint vmtrbusy(vm)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinVmalloc_t* vm;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Seg_t* seg;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Vmdata_t* vd = vm->data;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(Trfile < 0 || !(vd->mode&(VM_MTBEST|VM_MTDEBUG|VM_MTPROFILE)))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return -1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for(seg = vd->seg; seg; seg = seg->next)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { Block_t *b, *endb;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Vmuchar_t* data;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin size_t s;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for(b = SEGBLOCK(seg), endb = BLOCK(seg->baddr); b < endb; )
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { if(ISJUNK(SIZE(b)) || !ISBUSY(SIZE(b)))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin data = DATA(b);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(vd->mode&VM_MTDEBUG)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { data = DB2DEBUG(data);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin s = DBSIZE(data);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(vd->mode&VM_MTPROFILE)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin s = PFSIZE(data);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else s = SIZE(b)&~BITS;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin trtrace(vm, (Vmuchar_t*)(-1), data, s, 0);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin b = (Block_t*)((Vmuchar_t*)DATA(b) + (SIZE(b)&~BITS) );
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif