1 /***********************************************************************
2 * *
3 * This software is part of the ast package *
4 * Copyright (c) 1985-2011 AT&T Intellectual Property *
5 * and is licensed under the *
6 * Eclipse Public License, Version 1.0 *
7 * by AT&T Intellectual Property *
8 * *
9 * A copy of the License is available at *
10 * http://www.eclipse.org/org/documents/epl-v10.html *
11 * (with md5 checksum b35adb5213ca9657e911e9befb180842) *
12 * *
13 * Information and Software Systems Research *
14 * AT&T Research *
15 * Florham Park NJ *
16 * *
17 * Glenn Fowler <gsf@research.att.com> *
18 * David Korn <dgk@research.att.com> *
19 * Phong Vo <kpv@research.att.com> *
20 * *
21 ***********************************************************************/
22 #if defined(_UWIN) && defined(_BLD_ast)
23
_STUB_vmtrace()24 void _STUB_vmtrace(){}
25
26 #else
27
28 #include "vmhdr.h"
29
30 /* Turn on tracing for regions
31 **
32 ** Written by Kiem-Phong Vo, kpv@research.att.com, 01/16/94.
33 */
34
35 static int Trfile = -1;
36 static char Trbuf[128];
37
38 #if __STD_C
trstrcpy(char * to,const char * from,int endc)39 static char* trstrcpy(char* to, const char* from, int endc)
40 #else
41 static char* trstrcpy(to, from, endc)
42 char* to;
43 const char* from;
44 int endc;
45 #endif
46 { reg int n;
47
48 n = strlen(from);
49 memcpy(to,from,n);
50 to += n;
51 if((*to = endc) )
52 to += 1;
53 return to;
54 }
55
56 /* convert a long value to an ascii representation */
57 #if __STD_C
tritoa(Vmulong_t v,int type)58 static char* tritoa(Vmulong_t v, int type)
59 #else
60 static char* tritoa(v, type)
61 Vmulong_t v; /* value to convert */
62 int type; /* =0 base-16, >0: unsigned base-10, <0: signed base-10 */
63 #endif
64 {
65 char* s;
66
67 s = &Trbuf[sizeof(Trbuf) - 1];
68 *s-- = '\0';
69
70 if(type == 0) /* base-16 */
71 { reg char* digit = "0123456789abcdef";
72 do
73 { *s-- = digit[v&0xf];
74 v >>= 4;
75 } while(v);
76 }
77 else if(type > 0) /* unsigned base-10 */
78 { do
79 { *s-- = (char)('0' + (v%10));
80 v /= 10;
81 } while(v);
82 }
83 else /* signed base-10 */
84 { int sign = ((long)v < 0);
85 if(sign)
86 v = (Vmulong_t)(-((long)v));
87 do
88 { *s-- = (char)('0' + (v%10));
89 v /= 10;
90 } while(v);
91 if(sign)
92 *s-- = '-';
93 }
94
95 return s+1;
96 }
97
98 /* generate a trace of some call */
99 #if __STD_C
trtrace(Vmalloc_t * vm,Vmuchar_t * oldaddr,Vmuchar_t * newaddr,size_t size,size_t align)100 static void trtrace(Vmalloc_t* vm,
101 Vmuchar_t* oldaddr, Vmuchar_t* newaddr, size_t size, size_t align )
102 #else
103 static void trtrace(vm, oldaddr, newaddr, size, align)
104 Vmalloc_t* vm; /* region call was made from */
105 Vmuchar_t* oldaddr; /* old data address */
106 Vmuchar_t* newaddr; /* new data address */
107 size_t size; /* size of piece */
108 size_t align; /* alignment */
109 #endif
110 {
111 char buf[1024], *bufp, *endbuf;
112 Vmdata_t* vd = vm->data;
113 const char* file = 0;
114 int line = 0;
115 const char* func = 0;
116 int comma;
117 int n;
118 int m;
119
120 int type;
121 #define SLOP 64
122
123 if(oldaddr == (Vmuchar_t*)(-1)) /* printing busy blocks */
124 { type = 0;
125 oldaddr = NIL(Vmuchar_t*);
126 }
127 else
128 { type = vd->mode&VM_METHODS;
129 VMFLF(vm,file,line,func);
130 }
131
132 if(Trfile < 0)
133 return;
134
135 bufp = buf; endbuf = buf+sizeof(buf);
136 bufp = trstrcpy(bufp, tritoa(oldaddr ? VLONG(oldaddr) : 0L, 0), ':');
137 bufp = trstrcpy(bufp, tritoa(newaddr ? VLONG(newaddr) : 0L, 0), ':');
138 bufp = trstrcpy(bufp, tritoa((Vmulong_t)size, 1), ':');
139 bufp = trstrcpy(bufp, tritoa((Vmulong_t)align, 1), ':');
140 bufp = trstrcpy(bufp, tritoa(VLONG(vm), 0), ':');
141 if(type&VM_MTBEST)
142 bufp = trstrcpy(bufp, "b", ':');
143 else if(type&VM_MTLAST)
144 bufp = trstrcpy(bufp, "l", ':');
145 else if(type&VM_MTPOOL)
146 bufp = trstrcpy(bufp, "p", ':');
147 else if(type&VM_MTPROFILE)
148 bufp = trstrcpy(bufp, "s", ':');
149 else if(type&VM_MTDEBUG)
150 bufp = trstrcpy(bufp, "d", ':');
151 else bufp = trstrcpy(bufp, "u", ':');
152
153 comma = 0;
154 if(file && file[0] && line > 0)
155 { if((bufp + strlen(file) + SLOP) >= endbuf)
156 { char* f;
157 for(f = bufp + strlen(file); f > file; --f)
158 if(f[-1] == '/' || f[-1] == '\\')
159 break;
160 file = f;
161 }
162
163 bufp = trstrcpy(bufp, "file", '=');
164 n = endbuf - bufp - SLOP - 3;
165 m = strlen(file);
166 if(m > n)
167 { file += (m - n);
168 bufp = trstrcpy(bufp, "..", '.');
169 }
170 bufp = trstrcpy(bufp, file, ',');
171 bufp = trstrcpy(bufp, "line", '=');
172 bufp = trstrcpy(bufp, tritoa((Vmulong_t)line,1), 0);
173 comma = 1;
174 }
175 if(func)
176 { if(comma)
177 *bufp++ = ',';
178 bufp = trstrcpy(bufp, "func", '=');
179 #if 1
180 bufp = trstrcpy(bufp, (const char*)func, 0);
181 #else
182 bufp = trstrcpy(bufp, tritoa((Vmulong_t)func,0), 0);
183 #endif
184 comma = 1;
185 }
186 if(comma)
187 *bufp++ = ':';
188
189 *bufp++ = '\n';
190 *bufp = '\0';
191
192 write(Trfile,buf,(bufp-buf));
193 }
194
195 #if __STD_C
_vmmessage(const char * s1,long n1,const char * s2,long n2)196 void _vmmessage(const char* s1, long n1, const char* s2, long n2)
197 #else
198 void _vmmessage(s1, n1, s2, n2)
199 const char* s1;
200 long n1;
201 const char* s2;
202 long n2;
203 #endif
204 {
205 char buf[1024], *bufp;
206
207 bufp = buf;
208 bufp = trstrcpy(bufp, "vmalloc", ':');
209 if (s1)
210 {
211 bufp = trstrcpy(bufp, s1, ':');
212 if (n1)
213 bufp = trstrcpy(bufp, tritoa(n1, 1), ':');
214 }
215 if (s2)
216 {
217 bufp = trstrcpy(bufp, s2, ':');
218 if (n2)
219 bufp = trstrcpy(bufp, tritoa(n2, 0), ':');
220 }
221
222 bufp = trstrcpy(bufp, tritoa((long)getpid(), 1), ':');
223
224 *bufp++ = '\n';
225 write(2,buf,(bufp-buf));
226 }
227
228 #if __STD_C
vmtrace(int file)229 int vmtrace(int file)
230 #else
231 int vmtrace(file)
232 int file;
233 #endif
234 {
235 int fd;
236
237 _Vmstrcpy = trstrcpy;
238 _Vmitoa = tritoa;
239 _Vmtrace = trtrace;
240
241 fd = Trfile;
242 Trfile = file;
243 return fd;
244 }
245
246 #if __STD_C
vmtrbusy(Vmalloc_t * vm)247 int vmtrbusy(Vmalloc_t* vm)
248 #else
249 int vmtrbusy(vm)
250 Vmalloc_t* vm;
251 #endif
252 {
253 Seg_t* seg;
254 Vmdata_t* vd = vm->data;
255
256 if(Trfile < 0 || !(vd->mode&(VM_MTBEST|VM_MTDEBUG|VM_MTPROFILE)))
257 return -1;
258
259 for(seg = vd->seg; seg; seg = seg->next)
260 { Block_t *b, *endb;
261 Vmuchar_t* data;
262 size_t s;
263
264 for(b = SEGBLOCK(seg), endb = BLOCK(seg->baddr); b < endb; )
265 { if(ISJUNK(SIZE(b)) || !ISBUSY(SIZE(b)))
266 continue;
267
268 data = DATA(b);
269 if(vd->mode&VM_MTDEBUG)
270 { data = DB2DEBUG(data);
271 s = DBSIZE(data);
272 }
273 else if(vd->mode&VM_MTPROFILE)
274 s = PFSIZE(data);
275 else s = SIZE(b)&~BITS;
276
277 trtrace(vm, (Vmuchar_t*)(-1), data, s, 0);
278
279 b = (Block_t*)((Vmuchar_t*)DATA(b) + (SIZE(b)&~BITS) );
280 }
281 }
282
283 return 0;
284 }
285
286 #endif
287