aboutsummaryrefslogtreecommitdiff
path: root/cddl/contrib/opensolaris/lib/libdtrace/sparc
diff options
context:
space:
mode:
Diffstat (limited to 'cddl/contrib/opensolaris/lib/libdtrace/sparc')
-rw-r--r--cddl/contrib/opensolaris/lib/libdtrace/sparc/dt_isadep.c338
-rw-r--r--cddl/contrib/opensolaris/lib/libdtrace/sparc/regs.d120
2 files changed, 0 insertions, 458 deletions
diff --git a/cddl/contrib/opensolaris/lib/libdtrace/sparc/dt_isadep.c b/cddl/contrib/opensolaris/lib/libdtrace/sparc/dt_isadep.c
deleted file mode 100644
index ed05275e7f83..000000000000
--- a/cddl/contrib/opensolaris/lib/libdtrace/sparc/dt_isadep.c
+++ /dev/null
@@ -1,338 +0,0 @@
-/*
- * CDDL HEADER START
- *
- * The contents of this file are subject to the terms of the
- * Common Development and Distribution License, Version 1.0 only
- * (the "License"). You may not use this file except in compliance
- * with the License.
- *
- * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
- * or http://www.opensolaris.org/os/licensing.
- * See the License for the specific language governing permissions
- * and limitations under the License.
- *
- * When distributing Covered Code, include this CDDL HEADER in each
- * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
- * If applicable, add the following below this CDDL HEADER, with the
- * fields enclosed by brackets "[]" replaced with your own identifying
- * information: Portions Copyright [yyyy] [name of copyright owner]
- *
- * CDDL HEADER END
- */
-/*
- * Copyright 2005 Sun Microsystems, Inc. All rights reserved.
- * Use is subject to license terms.
- */
-
-#pragma ident "%Z%%M% %I% %E% SMI"
-
-#include <stdlib.h>
-#include <assert.h>
-#include <errno.h>
-#include <string.h>
-#include <libgen.h>
-
-#include <dt_impl.h>
-#include <dt_pid.h>
-
-#define OP(x) ((x) >> 30)
-#define OP2(x) (((x) >> 22) & 0x07)
-#define COND(x) (((x) >> 25) & 0x0f)
-#define A(x) (((x) >> 29) & 0x01)
-
-#define OP_BRANCH 0
-
-#define OP2_BPcc 0x1
-#define OP2_Bicc 0x2
-#define OP2_BPr 0x3
-#define OP2_FBPfcc 0x5
-#define OP2_FBfcc 0x6
-
-/*ARGSUSED*/
-int
-dt_pid_create_entry_probe(struct ps_prochandle *P, dtrace_hdl_t *dtp,
- fasttrap_probe_spec_t *ftp, const GElf_Sym *symp)
-{
- ftp->ftps_type = DTFTP_ENTRY;
- ftp->ftps_pc = (uintptr_t)symp->st_value;
- ftp->ftps_size = (size_t)symp->st_size;
- ftp->ftps_noffs = 1;
- ftp->ftps_offs[0] = 0;
-
- if (ioctl(dtp->dt_ftfd, FASTTRAPIOC_MAKEPROBE, ftp) != 0) {
- dt_dprintf("fasttrap probe creation ioctl failed: %s\n",
- strerror(errno));
- return (dt_set_errno(dtp, errno));
- }
-
- return (1);
-}
-
-int
-dt_pid_create_return_probe(struct ps_prochandle *P, dtrace_hdl_t *dtp,
- fasttrap_probe_spec_t *ftp, const GElf_Sym *symp, uint64_t *stret)
-{
-
- uint32_t *text;
- int i;
- int srdepth = 0;
-
- if ((text = malloc(symp->st_size + 4)) == NULL) {
- dt_dprintf("mr sparkle: malloc() failed\n");
- return (DT_PROC_ERR);
- }
-
- if (Pread(P, text, symp->st_size, symp->st_value) != symp->st_size) {
- dt_dprintf("mr sparkle: Pread() failed\n");
- free(text);
- return (DT_PROC_ERR);
- }
-
- /*
- * Leave a dummy instruction in the last slot to simplify edge
- * conditions.
- */
- text[symp->st_size / 4] = 0;
-
- ftp->ftps_type = DTFTP_RETURN;
- ftp->ftps_pc = symp->st_value;
- ftp->ftps_size = symp->st_size;
- ftp->ftps_noffs = 0;
-
- for (i = 0; i < symp->st_size / 4; i++) {
- /*
- * If we encounter an existing tracepoint, query the
- * kernel to find out the instruction that was
- * replaced at this spot.
- */
- while (text[i] == FASTTRAP_INSTR) {
- fasttrap_instr_query_t instr;
-
- instr.ftiq_pid = Pstatus(P)->pr_pid;
- instr.ftiq_pc = symp->st_value + i * 4;
-
- if (ioctl(dtp->dt_ftfd, FASTTRAPIOC_GETINSTR,
- &instr) != 0) {
-
- if (errno == ESRCH || errno == ENOENT) {
- if (Pread(P, &text[i], 4,
- instr.ftiq_pc) != 4) {
- dt_dprintf("mr sparkle: "
- "Pread() failed\n");
- free(text);
- return (DT_PROC_ERR);
- }
- continue;
- }
-
- free(text);
- dt_dprintf("mr sparkle: getinstr query "
- "failed: %s\n", strerror(errno));
- return (DT_PROC_ERR);
- }
-
- text[i] = instr.ftiq_instr;
- break;
- }
-
- /* save */
- if ((text[i] & 0xc1f80000) == 0x81e00000) {
- srdepth++;
- continue;
- }
-
- /* restore */
- if ((text[i] & 0xc1f80000) == 0x81e80000) {
- srdepth--;
- continue;
- }
-
- if (srdepth > 0) {
- /* ret */
- if (text[i] == 0x81c7e008)
- goto is_ret;
-
- /* return */
- if (text[i] == 0x81cfe008)
- goto is_ret;
-
- /* call or jmpl w/ restore in the slot */
- if (((text[i] & 0xc0000000) == 0x40000000 ||
- (text[i] & 0xc1f80000) == 0x81c00000) &&
- (text[i + 1] & 0xc1f80000) == 0x81e80000)
- goto is_ret;
-
- /* call to one of the stret routines */
- if ((text[i] & 0xc0000000) == 0x40000000) {
- int32_t disp = text[i] << 2;
- uint64_t dest = ftp->ftps_pc + i * 4 + disp;
-
- dt_dprintf("dest = %llx\n", (u_longlong_t)dest);
-
- if (dest == stret[0] || dest == stret[1] ||
- dest == stret[2] || dest == stret[3])
- goto is_ret;
- }
- } else {
- /* external call */
- if ((text[i] & 0xc0000000) == 0x40000000) {
- int32_t dst = text[i] << 2;
-
- dst += i * 4;
-
- if ((uintptr_t)dst >= (uintptr_t)symp->st_size)
- goto is_ret;
- }
-
- /* jmpl into %g0 -- this includes the retl pseudo op */
- if ((text[i] & 0xfff80000) == 0x81c00000)
- goto is_ret;
-
- /* external branch -- possible return site */
- if (OP(text[i]) == OP_BRANCH) {
- int32_t dst;
- int baa;
-
- switch (OP2(text[i])) {
- case OP2_BPcc:
- dst = text[i] & 0x7ffff;
- dst <<= 13;
- dst >>= 11;
-
- baa = COND(text[i]) == 8 && A(text[i]);
- break;
- case OP2_Bicc:
- dst = text[i] & 0x3fffff;
- dst <<= 10;
- dst >>= 8;
-
- baa = COND(text[i]) == 8 && A(text[i]);
- break;
- case OP2_BPr:
- dst = (((text[i]) >> 6) & 0xc000) |
- ((text[i]) & 0x3fff);
- dst <<= 16;
- dst >>= 14;
-
- baa = 0;
- break;
- case OP2_FBPfcc:
- dst = text[i] & 0x7ffff;
- dst <<= 13;
- dst >>= 11;
-
- baa = COND(text[i]) == 8 && A(text[i]);
- break;
- case OP2_FBfcc:
- dst = text[i] & 0x3fffff;
- dst <<= 10;
- dst >>= 8;
-
- baa = COND(text[i]) == 8 && A(text[i]);
- break;
- default:
- continue;
- }
-
- dst += i * 4;
-
- /*
- * Interpret branches outside of the function's
- * bounds as potential return sites. If the
- * branch is a ba,a don't skip the instruction
- * in the delay slot.
- */
- if ((uintptr_t)dst >=
- (uintptr_t)symp->st_size) {
- if (baa)
- goto is_ret_baa;
- else
- goto is_ret;
- }
- }
- }
-
- continue;
-is_ret:
- i++;
-is_ret_baa:
- dt_dprintf("return at offset %x\n", i * 4);
- ftp->ftps_offs[ftp->ftps_noffs++] = i * 4;
- }
-
- free(text);
- if (ftp->ftps_noffs > 0) {
- if (ioctl(dtp->dt_ftfd, FASTTRAPIOC_MAKEPROBE, ftp) != 0) {
- dt_dprintf("fasttrap probe creation ioctl failed: %s\n",
- strerror(errno));
- return (dt_set_errno(dtp, errno));
- }
- }
-
-
- return (ftp->ftps_noffs);
-}
-
-/*ARGSUSED*/
-int
-dt_pid_create_offset_probe(struct ps_prochandle *P, dtrace_hdl_t *dtp,
- fasttrap_probe_spec_t *ftp, const GElf_Sym *symp, ulong_t off)
-{
- if (off & 0x3)
- return (DT_PROC_ALIGN);
-
- ftp->ftps_type = DTFTP_OFFSETS;
- ftp->ftps_pc = (uintptr_t)symp->st_value;
- ftp->ftps_size = (size_t)symp->st_size;
- ftp->ftps_noffs = 1;
- ftp->ftps_offs[0] = off;
-
- if (ioctl(dtp->dt_ftfd, FASTTRAPIOC_MAKEPROBE, ftp) != 0) {
- dt_dprintf("fasttrap probe creation ioctl failed: %s\n",
- strerror(errno));
- return (dt_set_errno(dtp, errno));
- }
-
- return (1);
-}
-
-/*ARGSUSED*/
-int
-dt_pid_create_glob_offset_probes(struct ps_prochandle *P, dtrace_hdl_t *dtp,
- fasttrap_probe_spec_t *ftp, const GElf_Sym *symp, const char *pattern)
-{
- ulong_t i;
-
- ftp->ftps_type = DTFTP_OFFSETS;
- ftp->ftps_pc = (uintptr_t)symp->st_value;
- ftp->ftps_size = (size_t)symp->st_size;
- ftp->ftps_noffs = 0;
-
- /*
- * If we're matching against everything, just iterate through each
- * instruction in the function, otherwise look for matching offset
- * names by constructing the string and comparing it against the
- * pattern.
- */
- if (strcmp("*", pattern) == 0) {
- for (i = 0; i < symp->st_size; i += 4) {
- ftp->ftps_offs[ftp->ftps_noffs++] = i;
- }
- } else {
- char name[sizeof (i) * 2 + 1];
-
- for (i = 0; i < symp->st_size; i += 4) {
- (void) sprintf(name, "%lx", i);
- if (gmatch(name, pattern))
- ftp->ftps_offs[ftp->ftps_noffs++] = i;
- }
- }
-
- if (ioctl(dtp->dt_ftfd, FASTTRAPIOC_MAKEPROBE, ftp) != 0) {
- dt_dprintf("fasttrap probe creation ioctl failed: %s\n",
- strerror(errno));
- return (dt_set_errno(dtp, errno));
- }
-
- return (ftp->ftps_noffs);
-}
diff --git a/cddl/contrib/opensolaris/lib/libdtrace/sparc/regs.d b/cddl/contrib/opensolaris/lib/libdtrace/sparc/regs.d
deleted file mode 100644
index 7c4bc0fac519..000000000000
--- a/cddl/contrib/opensolaris/lib/libdtrace/sparc/regs.d
+++ /dev/null
@@ -1,120 +0,0 @@
-/*
- * CDDL HEADER START
- *
- * The contents of this file are subject to the terms of the
- * Common Development and Distribution License, Version 1.0 only
- * (the "License"). You may not use this file except in compliance
- * with the License.
- *
- * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
- * or http://www.opensolaris.org/os/licensing.
- * See the License for the specific language governing permissions
- * and limitations under the License.
- *
- * When distributing Covered Code, include this CDDL HEADER in each
- * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
- * If applicable, add the following below this CDDL HEADER, with the
- * fields enclosed by brackets "[]" replaced with your own identifying
- * information: Portions Copyright [yyyy] [name of copyright owner]
- *
- * CDDL HEADER END
- */
-/*
- * Copyright 2003 Sun Microsystems, Inc. All rights reserved.
- * Use is subject to license terms.
- */
-
-#pragma ident "%Z%%M% %I% %E% SMI"
-
-inline int R_G0 = 0;
-#pragma D binding "1.0" R_G0
-inline int R_G1 = 1;
-#pragma D binding "1.0" R_G1
-inline int R_G2 = 2;
-#pragma D binding "1.0" R_G2
-inline int R_G3 = 3;
-#pragma D binding "1.0" R_G3
-inline int R_G4 = 4;
-#pragma D binding "1.0" R_G4
-inline int R_G5 = 5;
-#pragma D binding "1.0" R_G5
-inline int R_G6 = 6;
-#pragma D binding "1.0" R_G6
-inline int R_G7 = 7;
-#pragma D binding "1.0" R_G7
-
-inline int R_O0 = 8;
-#pragma D binding "1.0" R_O0
-inline int R_O1 = 9;
-#pragma D binding "1.0" R_O1
-inline int R_O2 = 10;
-#pragma D binding "1.0" R_O2
-inline int R_O3 = 11;
-#pragma D binding "1.0" R_O3
-inline int R_O4 = 12;
-#pragma D binding "1.0" R_O4
-inline int R_O5 = 13;
-#pragma D binding "1.0" R_O5
-inline int R_O6 = 14;
-#pragma D binding "1.0" R_O6
-inline int R_O7 = 15;
-#pragma D binding "1.0" R_O7
-
-inline int R_L0 = 16;
-#pragma D binding "1.0" R_L0
-inline int R_L1 = 17;
-#pragma D binding "1.0" R_L1
-inline int R_L2 = 18;
-#pragma D binding "1.0" R_L2
-inline int R_L3 = 19;
-#pragma D binding "1.0" R_L3
-inline int R_L4 = 20;
-#pragma D binding "1.0" R_L4
-inline int R_L5 = 21;
-#pragma D binding "1.0" R_L5
-inline int R_L6 = 22;
-#pragma D binding "1.0" R_L6
-inline int R_L7 = 23;
-#pragma D binding "1.0" R_L7
-
-inline int R_I0 = 24;
-#pragma D binding "1.0" R_I0
-inline int R_I1 = 25;
-#pragma D binding "1.0" R_I1
-inline int R_I2 = 26;
-#pragma D binding "1.0" R_I2
-inline int R_I3 = 27;
-#pragma D binding "1.0" R_I3
-inline int R_I4 = 28;
-#pragma D binding "1.0" R_I4
-inline int R_I5 = 29;
-#pragma D binding "1.0" R_I5
-inline int R_I6 = 30;
-#pragma D binding "1.0" R_I6
-inline int R_I7 = 31;
-#pragma D binding "1.0" R_I7
-
-inline int R_CCR = 32;
-#pragma D binding "1.0" R_CCR
-inline int R_PC = 33;
-#pragma D binding "1.0" R_PC
-inline int R_nPC = 34;
-#pragma D binding "1.0" R_nPC
-inline int R_NPC = R_nPC;
-#pragma D binding "1.0" R_NPC
-inline int R_Y = 35;
-#pragma D binding "1.0" R_Y
-inline int R_ASI = 36;
-#pragma D binding "1.0" R_ASI
-inline int R_FPRS = 37;
-#pragma D binding "1.0" R_FPRS
-inline int R_PS = R_CCR;
-#pragma D binding "1.0" R_PS
-inline int R_SP = R_O6;
-#pragma D binding "1.0" R_SP
-inline int R_FP = R_I6;
-#pragma D binding "1.0" R_FP
-inline int R_R0 = R_O0;
-#pragma D binding "1.0" R_R0
-inline int R_R1 = R_O1;
-#pragma D binding "1.0" R_R1
generated by cgit v1.2.3 (git 2.25.1) at 2025-12-02 19:43:14 +0000