![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to .gdbinit CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Apple XNU] / XNU / bsd|
Return to .gdbinit CVS log | Up to [Apple XNU] / XNU / bsd |
1.1 root 1: define ststack
2: set $f=(long*)*$r1
3: p/x $f
4: x/i *($f+2)-4
5: end
6:
7: define tstack
8: if (*(long*)$f) != 0
9: set $f=*(long*)$f
10: p/x $f
11: x/i *($f+8)-4
12: else
13: echo end of stack\n
14: end
15: end
16:
17: define pcb
18: p *(pcb_t)$arg0
19: end
20:
21: define pth
22: p *(thread_t)$arg0
23: end
24:
25: define pta
26: p *(task_t)$arg0
27: end
28:
29: define dcz
30: p *(zone_t)$arg0
31: end
32:
33: define dmapent
34: echo " map_entry"
35: p $arg0
36: echo " start "
37: p ((vm_map_entry_t)$arg0)->links.start
38: echo " end "
39: p ((vm_map_entry_t)$arg0)->links.end
40: if ( $arg0->is_a_map != 0)
41: echo " object is a map"\n
42: echo " share"
43: p $arg0->object.share_map
44: echo " offset"
45: p $arg0->offset
46: end
47: if ( $arg0->is_shared != 0)
48: echo " region is shared"\n
49: end
50: if ( $arg0->is_sub_map != 0)
51: echo " object is a sub map"\n
52: end
53: if ( $arg0->copy_on_write != 0)
54: echo " data is copy on write"\n
55: end
56: if ( $arg0->in_transition != 0)
57: echo " Entry is being changed"\n
58: end
59: if ( $arg0->needs_wakeup != 0)
60: echo " Waiters on in_transition"\n
61: end
62: if ( $arg0->needs_copy != 0)
63: echo " object needs to be copied"\n
64: end
65: echo " protection "
66: p ((vm_map_entry_t)$arg0)->protection
67: echo " max protection "
68: p ((vm_map_entry_t)$arg0)->max_protection
69: echo " inheritance "
70: p ((vm_map_entry_t)$arg0)->inheritance
71: echo " wired count "
72: p ((vm_map_entry_t)$arg0)->wired_count
73: echo " user_wired_count "
74: p ((vm_map_entry_t)$arg0)->user_wired_count
75: end
76:
77: define dmap
78: set $vmmapptr=$arg0
79: set $iter=0
80: if (((vm_map_t)$vmmapptr)->is_main_map != 0)
81: echo " this is a main map"\n
82: end
83: echo " start "
84: p ((vm_map_t)$vmmapptr)->hdr.links.start
85: echo " end "
86: p ((vm_map_t)$vmmapptr)->hdr.links.end
87: if ((vm_map_t)$vmmapptr->entries_pageable != 0)
88: echo " map entries are pageable"\n
89: else
90: echo " map entries are NOT pageable"\n
91: end
92: echo " size "
93: p ((vm_map_t)$vmmapptr)->size
94: echo " pmap "
95: p ((vm_map_t)$vmmapptr)->pmap
96: set $mapentptr=$vmmapptr->hdr.links.next
97: echo " number of map entries "
98: p ((vm_map_t)$vmmapptr)->hdr.nentries
99: while ($iter < ((vm_map_t)$arg0)->hdr.nentries)
100: echo \n
101: echo " entry "
102: p $iter
103: dmapent $mapentptr
104: set $mapentptr=((vm_map_entry_t)$mapentptr)->links.next
105: set $iter=$iter+1
106: end
107:
108: end
109:
110: define dzleak
111: if (((zone_t)$arg0)->zone_name != 0)
112: p (char *)(((zone_t)($arg0))->zone_name)
113: end
114: echo " num elem used "
115: p/x $arg0->count
116: echo " curr zone size "
117: p/x $arg0->cur_size
118: echo " max zone size "
119: p/x $arg0->max_size
120: if ($arg0->free_elements !=0)
121: echo " next free element"
122: p/x $arg0->free_elements
123: end
124: if ( $arg0->doing_alloc != 0)
125: echo " doing allocation"
126: p/x $arg0->doing_alloc
127: end
128: echo " allocation size"
129: p/x $arg0->alloc_size
130: if ( $arg0->pageable != 0)
131: echo " zone is pageable\n"
132: end
133: if ( $arg0->sleepable != 0)
134: echo " zone is sleepable\n"
135: end
136: if ( $arg0->exhaustible != 0)
137: echo " zone is exhaustible\n"
138: end
139: if ( $arg0->expandable != 0)
140: echo " zone is expandable\n"
141: end
142: set $iter=0
143: while ($iter < $arg0->num_alloc_callers)
144: p/x *(struct caller_s *)$arg0->alloc_callers[$iter]
145: set $iter=$iter+1
146: end
147: echo " number of alloc callers "
148: p/x $arg0->num_alloc_callers
149: set $iter=0
150: while ($iter < $arg0->num_free_callers)
151: p/x *(struct caller_s *)$arg0->free_callers[$iter]
152: set $iter=$iter+1
153: end
154: echo " number of free callers "
155: p/x $arg0->num_free_callers
156: end
157:
158: define dz
159: if (((zone_t)$arg0)->zone_name != 0)
160: p (char *)(((zone_t)($arg0))->zone_name)
161: end
162: echo " num elem used "
163: p/x $arg0->count
164: echo " curr zone size "
165: p/x $arg0->cur_size
166: echo " max zone size "
167: p/x $arg0->max_size
168: if ($arg0->free_elements !=0)
169: echo " next free element"
170: p/x $arg0->free_elements
171: end
172: if ( $arg0->doing_alloc != 0)
173: echo " doing allocation"
174: p/x $arg0->doing_alloc
175: end
176: echo " allocation size"
177: p/x $arg0->alloc_size
178: if ( $arg0->pageable != 0)
179: echo " zone is pageable\n"
180: end
181: if ( $arg0->sleepable != 0)
182: echo " zone is sleepable\n"
183: end
184: if ( $arg0->exhaustible != 0)
185: echo " zone is exhaustible\n"
186: end
187: if ( $arg0->expandable != 0)
188: echo " zone is expandable\n"
189: end
190: end
191:
192: define daz
193: set $numtasks=default_pset->task_count
194: set $iter=0
195: set $zoneptr=zone_zone
196: while ($zoneptr != 0)
197: echo \n
198: dz $zoneptr
199: set $zoneptr=((zone_t)($zoneptr))->next_zone
200: set $iter=$iter+1
201: end
202: echo number of zones =
203: p $iter
204: end
205:
206: define dleakaz
207: set $numtasks=default_pset->task_count
208: set $iter=0
209: set $zoneptr=zone_zone
210: while ($zoneptr != 0)
211: echo \n
212: dzleak $zoneptr
213: set $zoneptr=((zone_t)($zoneptr))->next_zone
214: set $iter=$iter+1
215: end
216: echo number of zones =
217: p $iter
218: end
219:
220: define tsaved
221: p/x *(struct ppc_saved_state *)($f+0x90)
222: end
223:
224: define sustack
225: set $u=(long*)((((int)$arg0) & 0x0FFFFFFF) + 0x60000000)
226: p/x $u
227: p/x *($u+2)-4
228: end
229:
230: define ustack
231: if (*(long*)$u) != 0
232: set $u=(long*)((((int)(*(long*)$u)) & 0x0FFFFFFF) + 0x60000000)
233: p/x $u
234: if (((int)(*($u+2)-4)) & 0xF0000000) == 0
235: x/i ((((int)(*($u+2)-4)) & 0x0FFFFFFF) + 0x20000000)
236: else
237: p/x *($u+2)-4
238: end
239: else
240: echo end of user stack\n
241: end
242: end
243:
244: define tasks
245: set $numtasks=default_pset->task_count
246: set $iter=0
247: set $taskptr=default_pset->tasks.next
248: while ($iter < $numtasks)
249: if ((((struct task *)($taskptr))->proc) != 0)
250: p (char *)(((struct task *)($taskptr))->proc->p_comm)
251: p ((struct task *)($taskptr))->map
252: end
253: set $taskptr=((struct task *)($taskptr))->pset_tasks.next
254: set $iter=$iter+1
255: end
256: end
257:
258: define threads
259: set $numthreads=default_pset->thread_count
260: set $iter=0
261: set $threadptr=default_pset->threads.next
262: while ($iter < $numthreads)
263: if ((((struct thread *)($threadptr))->task->proc) != 0)
264: p (char *)(((struct thread *)($threadptr))->task->proc->p_comm)
265: p $threadptr
266: end
267: set $threadptr=((struct thread *)($threadptr))->pset_threads.next
268: set $iter=$iter+1
269: end
270: end
271:
272: define kstackthreads
273: set $numthreads=default_pset->thread_count
274: set $iter=0
275: set $threadptr=default_pset->threads.next
276: while ($iter < $numthreads)
277: if ((((struct thread *)($threadptr))->kernel_stack) != 0)
278: if ((((struct thread *)($threadptr))->task->proc) != 0)
279: p (char *)(((struct thread *)($threadptr))->task->proc->p_comm)
280: p $threadptr
281: end
282: end
283: set $threadptr=((struct thread *)($threadptr))->pset_threads.next
284: set $iter=$iter+1
285: end
286: end
287:
288: define waitthreads
289: set $numthreads=default_pset->thread_count
290: set $iter=0
291: set $threadptr=default_pset->threads.next
292: while ($iter < $numthreads)
293: if ((((struct thread *)($threadptr))->wait_event) != 0)
294: p (char *)(((struct thread *)($threadptr))->task->proc->p_comm)
295: p $threadptr
296: p ((struct thread *)($threadptr))->wait_event
297: p ((struct thread *)($threadptr))->wait_mesg
298: end
299: set $threadptr=((struct thread *)($threadptr))->pset_threads.next
300: set $iter=$iter+1
301: end
302: end
303:
304: define tomkstack
305: if (( ((thread_t)$arg0)->kernel_stack) == 0)
306: echo "no kernel stack"
307: else
308: if $arg0 == cpu_data->active_thread
309: ststack
310: else
311: p/x ((struct ppc_kernel_state *)((((thread_t)$arg0)->kernel_stack)+0x3f94))->r1
312: x/i ((struct ppc_kernel_state *)((((thread_t)$arg0)->kernel_stack)+0x3f94))->lr
313: end
314: end
315: end
316:
317: define kstack
318: if (( ((thread_t)$arg0)->kernel_stack) == 0)
319: echo "no kernel stack"
320: else
321: if $arg0 == cpu_data->active_thread
322: ststack
323: else
324: set $f=((struct ppc_kernel_state *)(($s->kernel_stack)+0x3f94))->r1
325: p/x $f
326: x/i ((struct ppc_kernel_state *)(($s->kernel_stack)+0x3f94))->lr
327: end
328: end
329: end
330:
331: define setRegFromSaved
332: set $s_pc=(long)$pc
333: set $s_lr=(long)$lr
334: set $s_r1=(long)$r1
335: set $s_r13=(long)$r13
336: set $s_r14=(long)$r14
337: set $s_r15=(long)$r15
338: set $s_r16=(long)$r16
339: set $s_r17=(long)$r17
340: set $s_r18=(long)$r18
341: set $s_r19=(long)$r19
342: set $s_r20=(long)$r20
343: set $s_r21=(long)$r21
344: set $s_r22=(long)$r22
345: set $s_r23=(long)$r23
346: set $s_r24=(long)$r24
347: set $s_r25=(long)$r25
348: set $s_r26=(long)$r26
349: set $s_r27=(long)$r27
350: set $s_r28=(long)$r28
351: set $s_r29=(long)$r29
352: set $s_r30=(long)$r30
353: set $s_r31=(long)$r31
354: x/i $s_pc
355: end
356:
357: define printReg
358: printf "pc\t0x%x\n", $s_pc
359: printf "lr\t0x%x\n", $s_lr
360: printf "r1\t0x%x\n", $s_r1
361: printf "r13\t0x%x\n", $s_r13
362: printf "r14\t0x%x\n", $s_r14
363: printf "r15\t0x%x\n", $s_r15
364: printf "r16\t0x%x\n", $s_r16
365: printf "r17\t0x%x\n", $s_r17
366: printf "r18\t0x%x\n", $s_r18
367: printf "r19\t0x%x\n", $s_r19
368: printf "r20\t0x%x\n", $s_r20
369: printf "r21\t0x%x\n", $s_r21
370: printf "r22\t0x%x\n", $s_r22
371: printf "r23\t0x%x\n", $s_r23
372: printf "r24\t0x%x\n", $s_r24
373: printf "r25\t0x%x\n", $s_r25
374: printf "r26\t0x%x\n", $s_r26
375: printf "r27\t0x%x\n", $s_r27
376: printf "r28\t0x%x\n", $s_r28
377: printf "r29\t0x%x\n", $s_r29
378: printf "r30\t0x%x\n", $s_r30
379: printf "r31\t0x%x\n", $s_r31
380: end
381:
382: define popReg
383: if (*(long*)$s_r1) == 0
384: echo end of stack\n
385: else
386: set $s_r1=*(long*)$s_r1
387: set $s_lr=*(long*)($s_r1+8)
388: set $s_t1=$s_r1
389: if $arg0 != 0
390: if $arg0 <= 31
391: set $s_t1=$s_t1-4
392: set $s_r31=*(long*)$s_t1
393: end
394: if $arg0 <= 30
395: set $s_t1=$s_t1-4
396: set $s_r30=*(long*)$s_t1
397: end
398: if $arg0 <= 29
399: set $s_t1=$s_t1-4
400: set $s_r29=*(long*)$s_t1
401: end
402: if $arg0 <= 28
403: set $s_t1=$s_t1-4
404: set $s_r28=*(long*)$s_t1
405: end
406: if $arg0 <= 27
407: set $s_t1=$s_t1-4
408: set $s_r27=*(long*)$s_t1
409: end
410: if $arg0 <= 26
411: set $s_t1=$s_t1-4
412: set $s_r26=*(long*)$s_t1
413: end
414: if $arg0 <= 25
415: set $s_t1=$s_t1-4
416: set $s_r25=*(long*)$s_t1
417: end
418: if $arg0 <= 24
419: set $s_t1=$s_t1-4
420: set $s_r24=*(long*)$s_t1
421: end
422: if $arg0 <= 23
423: set $s_t1=$s_t1-4
424: set $s_r23=*(long*)$s_t1
425: end
426: if $arg0 <= 22
427: set $s_t1=$s_t1-4
428: set $s_r22=*(long*)$s_t1
429: end
430: if $arg0 <= 21
431: set $s_t1=$s_t1-4
432: set $s_r21=*(long*)$s_t1
433: end
434: if $arg0 <= 20
435: set $s_t1=$s_t1-4
436: set $s_r20=*(long*)$s_t1
437: end
438: if $arg0 <= 19
439: set $s_t1=$s_t1-4
440: set $s_r19=*(long*)$s_t1
441: end
442: if $arg0 <= 18
443: set $s_t1=$s_t1-4
444: set $s_r18=*(long*)$s_t1
445: end
446: if $arg0 <= 17
447: set $s_t1=$s_t1-4
448: set $s_r17=*(long*)$s_t1
449: end
450: if $arg0 <= 16
451: set $s_t1=$s_t1-4
452: set $s_r16=*(long*)$s_t1
453: end
454: end
455: set $s_pc=$s_lr-4
456: x/i $s_pc
457: end
458: end
459:
460: define wherePC
461: x/i $s_pc
462: end
463:
464: define popSaved
465: set $s_t1=(struct ppc_saved_state *)($s_r1+0x90)
466: set $s_pc=(long)$s_t1->srr0
467: set $s_lr=(long)$s_t1->lr
468: set $s_r1=(long)$s_t1->r1
469: set $s_r13=(long)$s_t1->r13
470: set $s_r14=(long)$s_t1->r14
471: set $s_r15=(long)$s_t1->r15
472: set $s_r16=(long)$s_t1->r16
473: set $s_r17=(long)$s_t1->r17
474: set $s_r18=(long)$s_t1->r18
475: set $s_r19=(long)$s_t1->r19
476: set $s_r20=(long)$s_t1->r20
477: set $s_r21=(long)$s_t1->r21
478: set $s_r22=(long)$s_t1->r22
479: set $s_r23=(long)$s_t1->r23
480: set $s_r24=(long)$s_t1->r24
481: set $s_r25=(long)$s_t1->r25
482: set $s_r26=(long)$s_t1->r26
483: set $s_r27=(long)$s_t1->r27
484: set $s_r28=(long)$s_t1->r28
485: set $s_r29=(long)$s_t1->r29
486: set $s_r30=(long)$s_t1->r30
487: set $s_r31=(long)$s_t1->r31
488: x/i $s_pc
489: end
490:
491: define setRegFromThread
492: set $s_t1=(thread_t)$arg0
493: set $s_t1=(struct ppc_kernel_state *)(($s_t1->kernel_stack)+0x3f94)
494: set $s_pc=(long)$s_t1->lr
495: set $s_lr=(long)$s_t1->lr
496: set $s_r1=(long)$s_t1->r1
497: set $s_r13=(long)$s_t1->r13[0]
498: set $s_r14=(long)$s_t1->r13[1]
499: set $s_r15=(long)$s_t1->r13[2]
500: set $s_r16=(long)$s_t1->r13[3]
501: set $s_r17=(long)$s_t1->r13[4]
502: set $s_r18=(long)$s_t1->r13[5]
503: set $s_r19=(long)$s_t1->r13[6]
504: set $s_r20=(long)$s_t1->r13[7]
505: set $s_r21=(long)$s_t1->r13[8]
506: set $s_r22=(long)$s_t1->r13[9]
507: set $s_r23=(long)$s_t1->r13[10]
508: set $s_r24=(long)$s_t1->r13[11]
509: set $s_r25=(long)$s_t1->r13[12]
510: set $s_r26=(long)$s_t1->r13[13]
511: set $s_r27=(long)$s_t1->r13[14]
512: set $s_r28=(long)$s_t1->r13[15]
513: set $s_r29=(long)$s_t1->r13[16]
514: set $s_r30=(long)$s_t1->r13[17]
515: set $s_r31=(long)$s_t1->r13[18]
516: x/i $s_pc
517: end
518:
519: define popLR
520: set $s_pc=$s_lr-4
521: x/i $s_pc
522: end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.