vmtrace.c revision 7c2fbfb345896881c631598ee3852ce9ce33fb07
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/***********************************************************************
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* This software is part of the ast package *
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin* Copyright (c) 1985-2008 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* A copy of the License is available at *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9) *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Information and Software Systems Research *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* AT&T Research *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Florham Park NJ *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Glenn Fowler <gsf@research.att.com> *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* David Korn <dgk@research.att.com> *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Phong Vo <kpv@research.att.com> *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin***********************************************************************/
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/* Turn on tracing for regions
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin** Written by Kiem-Phong Vo, kpv@research.att.com, 01/16/94.
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic char* trstrcpy(char* to, const char* from, int endc)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinconst char* from;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/* convert a long value to an ascii representation */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinint type; /* =0 base-16, >0: unsigned base-10, <0: signed base-10 */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *s-- = '\0';
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin } while(v);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin } while(v);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else /* signed base-10 */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { int sign = ((long)v < 0);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin v = (Vmulong_t)(-((long)v));
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin } while(v);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *s-- = '-';
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return s+1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/* generate a trace of some call */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Vmuchar_t* oldaddr, Vmuchar_t* newaddr, size_t size, size_t align )
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin const char* file = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(oldaddr == (Vmuchar_t*)(-1)) /* printing busy blocks */
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 { char* f;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { file += (m - n);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinvoid _vmmessage(const char* s1, long n1, const char* s2, long n2)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinconst char* s1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinconst char* s2;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(Trfile < 0 || !(vd->mode&(VM_MTBEST|VM_MTDEBUG|VM_MTPROFILE)))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return -1;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for(b = SEGBLOCK(seg), endb = BLOCK(seg->baddr); b < endb; )