Mercurial > illumos > illumos-gate
annotate usr/src/cmd/sgs/librtld_db/demo/common/callstack.c @ 12939:a27c46eb192b
6972234 sgs demo's could use some cleanup
| author | Rod Evans <Rod.Evans@Sun.COM> |
|---|---|
| date | Tue, 27 Jul 2010 22:49:34 -0700 |
| parents | usr/src/cmd/sgs/librtld_db/rdb_demo/common/callstack.c@79e3159504fa |
| children |
| rev | line source |
|---|---|
| 0 | 1 /* |
| 2 * CDDL HEADER START | |
| 3 * | |
| 4 * The contents of this file are subject to the terms of the | |
|
1618
8c9a4f31d225
6316708 LD_DEBUG should provide a means of identifying/isolating individual
rie
parents:
0
diff
changeset
|
5 * Common Development and Distribution License (the "License"). |
|
8c9a4f31d225
6316708 LD_DEBUG should provide a means of identifying/isolating individual
rie
parents:
0
diff
changeset
|
6 * You may not use this file except in compliance with the License. |
| 0 | 7 * |
| 8 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE | |
| 9 * or http://www.opensolaris.org/os/licensing. | |
| 10 * See the License for the specific language governing permissions | |
| 11 * and limitations under the License. | |
| 12 * | |
| 13 * When distributing Covered Code, include this CDDL HEADER in each | |
| 14 * file and include the License file at usr/src/OPENSOLARIS.LICENSE. | |
| 15 * If applicable, add the following below this CDDL HEADER, with the | |
| 16 * fields enclosed by brackets "[]" replaced with your own identifying | |
| 17 * information: Portions Copyright [yyyy] [name of copyright owner] | |
| 18 * | |
| 19 * CDDL HEADER END | |
| 20 */ | |
|
1618
8c9a4f31d225
6316708 LD_DEBUG should provide a means of identifying/isolating individual
rie
parents:
0
diff
changeset
|
21 |
| 0 | 22 /* |
|
12939
a27c46eb192b
6972234 sgs demo's could use some cleanup
Rod Evans <Rod.Evans@Sun.COM>
parents:
3731
diff
changeset
|
23 * Copyright (c) 1995, 2010, Oracle and/or its affiliates. All rights reserved. |
| 0 | 24 */ |
| 25 | |
| 26 #include <stdio.h> | |
| 27 #include <unistd.h> | |
| 28 #include <string.h> | |
| 29 #include <sys/types.h> | |
| 30 #include <sys/reg.h> | |
| 31 #include <sys/frame.h> | |
| 32 #include <sys/stack.h> | |
|
12939
a27c46eb192b
6972234 sgs demo's could use some cleanup
Rod Evans <Rod.Evans@Sun.COM>
parents:
3731
diff
changeset
|
33 #include <sys/machelf.h> |
| 0 | 34 #include <procfs.h> |
| 35 | |
| 36 #include "rdb.h" | |
| 37 | |
| 38 #ifndef STACK_BIAS | |
| 39 #define STACK_BIAS 0 | |
| 40 #endif | |
| 41 | |
| 42 static int | |
| 43 get_frame(struct ps_prochandle *ph, psaddr_t fp, struct frame *frm) | |
| 44 { | |
| 45 #if defined(_LP64) | |
| 46 /* | |
| 47 * Use special structures to read a 32-bit process | |
| 48 * from a 64-bit process. | |
| 49 */ | |
| 50 if (ph->pp_dmodel == PR_MODEL_ILP32) { | |
| 51 struct frame32 frm32; | |
| 52 | |
| 53 if (ps_pread(ph, (psaddr_t)fp, (char *)&frm32, | |
| 54 sizeof (struct frame32)) != PS_OK) { | |
|
12939
a27c46eb192b
6972234 sgs demo's could use some cleanup
Rod Evans <Rod.Evans@Sun.COM>
parents:
3731
diff
changeset
|
55 (void) printf("stack trace: bad frame pointer: 0x%lx\n", |
| 0 | 56 fp); |
| 57 return (-1); | |
| 58 } | |
| 59 | |
| 60 frm->fr_savpc = (long)frm32.fr_savpc; | |
|
3731
79e3159504fa
6523787 dlopen() handle gets mistakenly orphaned - results in access to freed memory
rie
parents:
1618
diff
changeset
|
61 #if defined(__sparcv9) |
|
1618
8c9a4f31d225
6316708 LD_DEBUG should provide a means of identifying/isolating individual
rie
parents:
0
diff
changeset
|
62 frm->fr_savfp = (struct frame *)(uintptr_t)frm32.fr_savfp; |
|
3731
79e3159504fa
6523787 dlopen() handle gets mistakenly orphaned - results in access to freed memory
rie
parents:
1618
diff
changeset
|
63 #elif defined(__amd64) |
| 0 | 64 frm->fr_savfp = (long)frm32.fr_savfp; |
| 65 #endif | |
| 66 return (0); | |
| 67 } | |
| 68 #endif /* defined(_LP64) */ | |
| 69 | |
| 70 if (ps_pread(ph, (psaddr_t)fp + STACK_BIAS, (char *)frm, | |
| 71 sizeof (struct frame)) != PS_OK) { | |
|
12939
a27c46eb192b
6972234 sgs demo's could use some cleanup
Rod Evans <Rod.Evans@Sun.COM>
parents:
3731
diff
changeset
|
72 (void) printf("stack trace: bad frame pointer: 0x%lx\n", fp); |
| 0 | 73 return (-1); |
| 74 } | |
| 75 return (0); | |
| 76 } | |
| 77 | |
| 78 /* | |
|
1618
8c9a4f31d225
6316708 LD_DEBUG should provide a means of identifying/isolating individual
rie
parents:
0
diff
changeset
|
79 * Relatively architecture neutral routine to display the callstack. |
| 0 | 80 */ |
| 81 void | |
| 82 CallStack(struct ps_prochandle *ph) | |
| 83 { | |
| 84 pstatus_t pstatus; | |
| 85 greg_t fp; | |
| 86 struct frame frm; | |
| 87 char *symstr; | |
| 88 | |
| 89 if (pread(ph->pp_statusfd, &pstatus, sizeof (pstatus), 0) == -1) | |
| 90 perr("cs: reading status"); | |
| 91 | |
| 92 symstr = print_address_ps(ph, (ulong_t)pstatus.pr_lwp.pr_reg[R_PC], | |
|
12939
a27c46eb192b
6972234 sgs demo's could use some cleanup
Rod Evans <Rod.Evans@Sun.COM>
parents:
3731
diff
changeset
|
93 FLG_PAP_SONAME); |
|
a27c46eb192b
6972234 sgs demo's could use some cleanup
Rod Evans <Rod.Evans@Sun.COM>
parents:
3731
diff
changeset
|
94 (void) printf(" 0x%08x:%-17s\n", EC_WORD(pstatus.pr_lwp.pr_reg[R_PC]), |
|
a27c46eb192b
6972234 sgs demo's could use some cleanup
Rod Evans <Rod.Evans@Sun.COM>
parents:
3731
diff
changeset
|
95 symstr); |
| 0 | 96 |
|
3731
79e3159504fa
6523787 dlopen() handle gets mistakenly orphaned - results in access to freed memory
rie
parents:
1618
diff
changeset
|
97 fp = pstatus.pr_lwp.pr_reg[R_FP]; |
| 0 | 98 |
| 99 while (fp) { | |
| 100 if (get_frame(ph, (psaddr_t)fp, &frm) == -1) | |
| 101 return; | |
| 102 if (frm.fr_savpc) { | |
| 103 symstr = print_address_ps(ph, (ulong_t)frm.fr_savpc, | |
|
12939
a27c46eb192b
6972234 sgs demo's could use some cleanup
Rod Evans <Rod.Evans@Sun.COM>
parents:
3731
diff
changeset
|
104 FLG_PAP_SONAME); |
|
a27c46eb192b
6972234 sgs demo's could use some cleanup
Rod Evans <Rod.Evans@Sun.COM>
parents:
3731
diff
changeset
|
105 (void) printf(" 0x%08x:%-17s\n", EC_WORD(frm.fr_savpc), |
|
a27c46eb192b
6972234 sgs demo's could use some cleanup
Rod Evans <Rod.Evans@Sun.COM>
parents:
3731
diff
changeset
|
106 symstr); |
| 0 | 107 } |
| 108 fp = (greg_t)frm.fr_savfp; | |
| 109 } | |
| 110 } |