Orange Pi5 kernel

Deprecated Linux kernel 5.10.110 for OrangePi 5/5B/5+ boards

3 Commits   0 Branches   0 Tags
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300   1) /*
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300   2)  * jvmti_agent.c: JVMTI agent interface
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300   3)  *
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300   4)  * Adapted from the Oprofile code in opagent.c:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300   5)  * This library is free software; you can redistribute it and/or
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300   6)  * modify it under the terms of the GNU Lesser General Public
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300   7)  * License as published by the Free Software Foundation; either
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300   8)  * version 2.1 of the License, or (at your option) any later version.
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300   9)  *
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  10)  * This library is distributed in the hope that it will be useful,
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  11)  * but WITHOUT ANY WARRANTY; without even the implied warranty of
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  12)  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  13)  * Lesser General Public License for more details.
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  14)  *
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  15)  * You should have received a copy of the GNU Lesser General Public
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  16)  * License along with this library; if not, write to the Free Software
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  17)  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  18)  *
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  19)  * Copyright 2007 OProfile authors
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  20)  * Jens Wilke
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  21)  * Daniel Hansel
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  22)  * Copyright IBM Corporation 2007
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  23)  */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  24) #include <sys/types.h>
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  25) #include <sys/stat.h> /* for mkdir() */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  26) #include <stdio.h>
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  27) #include <errno.h>
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  28) #include <string.h>
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  29) #include <stdlib.h>
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  30) #include <stdint.h>
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  31) #include <limits.h>
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  32) #include <fcntl.h>
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  33) #include <unistd.h>
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  34) #include <time.h>
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  35) #include <sys/mman.h>
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  36) #include <syscall.h> /* for gettid() */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  37) #include <err.h>
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  38) #include <linux/kernel.h>
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  39) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  40) #include "jvmti_agent.h"
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  41) #include "../util/jitdump.h"
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  42) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  43) #define JIT_LANG "java"
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  44) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  45) static char jit_path[PATH_MAX];
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  46) static void *marker_addr;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  47) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  48) #ifndef HAVE_GETTID
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  49) static inline pid_t gettid(void)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  50) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  51) 	return (pid_t)syscall(__NR_gettid);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  52) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  53) #endif
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  54) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  55) static int get_e_machine(struct jitheader *hdr)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  56) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  57) 	ssize_t sret;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  58) 	char id[16];
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  59) 	int fd, ret = -1;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  60) 	struct {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  61) 		uint16_t e_type;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  62) 		uint16_t e_machine;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  63) 	} info;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  64) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  65) 	fd = open("/proc/self/exe", O_RDONLY);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  66) 	if (fd == -1)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  67) 		return -1;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  68) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  69) 	sret = read(fd, id, sizeof(id));
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  70) 	if (sret != sizeof(id))
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  71) 		goto error;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  72) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  73) 	/* check ELF signature */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  74) 	if (id[0] != 0x7f || id[1] != 'E' || id[2] != 'L' || id[3] != 'F')
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  75) 		goto error;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  76) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  77) 	sret = read(fd, &info, sizeof(info));
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  78) 	if (sret != sizeof(info))
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  79) 		goto error;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  80) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  81) 	hdr->elf_mach = info.e_machine;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  82) 	ret = 0;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  83) error:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  84) 	close(fd);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  85) 	return ret;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  86) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  87) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  88) static int use_arch_timestamp;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  89) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  90) static inline uint64_t
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  91) get_arch_timestamp(void)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  92) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  93) #if defined(__i386__) || defined(__x86_64__)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  94) 	unsigned int low, high;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  95) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  96) 	asm volatile("rdtsc" : "=a" (low), "=d" (high));
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  97) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  98) 	return low | ((uint64_t)high) << 32;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  99) #else
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 100) 	return 0;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 101) #endif
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 102) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 103) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 104) #define NSEC_PER_SEC	1000000000
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 105) static int perf_clk_id = CLOCK_MONOTONIC;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 106) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 107) static inline uint64_t
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 108) timespec_to_ns(const struct timespec *ts)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 109) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 110)         return ((uint64_t) ts->tv_sec * NSEC_PER_SEC) + ts->tv_nsec;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 111) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 112) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 113) static inline uint64_t
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 114) perf_get_timestamp(void)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 115) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 116) 	struct timespec ts;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 117) 	int ret;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 118) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 119) 	if (use_arch_timestamp)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 120) 		return get_arch_timestamp();
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 121) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 122) 	ret = clock_gettime(perf_clk_id, &ts);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 123) 	if (ret)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 124) 		return 0;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 125) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 126) 	return timespec_to_ns(&ts);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 127) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 128) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 129) static int
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 130) create_jit_cache_dir(void)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 131) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 132) 	char str[32];
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 133) 	char *base, *p;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 134) 	struct tm tm;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 135) 	time_t t;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 136) 	int ret;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 137) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 138) 	time(&t);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 139) 	localtime_r(&t, &tm);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 140) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 141) 	base = getenv("JITDUMPDIR");
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 142) 	if (!base)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 143) 		base = getenv("HOME");
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 144) 	if (!base)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 145) 		base = ".";
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 146) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 147) 	strftime(str, sizeof(str), JIT_LANG"-jit-%Y%m%d", &tm);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 148) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 149) 	ret = snprintf(jit_path, PATH_MAX, "%s/.debug/", base);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 150) 	if (ret >= PATH_MAX) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 151) 		warnx("jvmti: cannot generate jit cache dir because %s/.debug/"
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 152) 			" is too long, please check the cwd, JITDUMPDIR, and"
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 153) 			" HOME variables", base);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 154) 		return -1;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 155) 	}
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 156) 	ret = mkdir(jit_path, 0755);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 157) 	if (ret == -1) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 158) 		if (errno != EEXIST) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 159) 			warn("jvmti: cannot create jit cache dir %s", jit_path);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 160) 			return -1;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 161) 		}
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 162) 	}
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 163) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 164) 	ret = snprintf(jit_path, PATH_MAX, "%s/.debug/jit", base);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 165) 	if (ret >= PATH_MAX) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 166) 		warnx("jvmti: cannot generate jit cache dir because"
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 167) 			" %s/.debug/jit is too long, please check the cwd,"
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 168) 			" JITDUMPDIR, and HOME variables", base);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 169) 		return -1;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 170) 	}
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 171) 	ret = mkdir(jit_path, 0755);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 172) 	if (ret == -1) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 173) 		if (errno != EEXIST) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 174) 			warn("jvmti: cannot create jit cache dir %s", jit_path);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 175) 			return -1;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 176) 		}
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 177) 	}
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 178) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 179) 	ret = snprintf(jit_path, PATH_MAX, "%s/.debug/jit/%s.XXXXXXXX", base, str);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 180) 	if (ret >= PATH_MAX) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 181) 		warnx("jvmti: cannot generate jit cache dir because"
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 182) 			" %s/.debug/jit/%s.XXXXXXXX is too long, please check"
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 183) 			" the cwd, JITDUMPDIR, and HOME variables",
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 184) 			base, str);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 185) 		return -1;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 186) 	}
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 187) 	p = mkdtemp(jit_path);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 188) 	if (p != jit_path) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 189) 		warn("jvmti: cannot create jit cache dir %s", jit_path);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 190) 		return -1;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 191) 	}
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 192) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 193) 	return 0;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 194) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 195) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 196) static int
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 197) perf_open_marker_file(int fd)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 198) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 199) 	long pgsz;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 200) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 201) 	pgsz = sysconf(_SC_PAGESIZE);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 202) 	if (pgsz == -1)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 203) 		return -1;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 204) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 205) 	/*
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 206) 	 * we mmap the jitdump to create an MMAP RECORD in perf.data file.
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 207) 	 * The mmap is captured either live (perf record running when we mmap)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 208) 	 * or  in deferred mode, via /proc/PID/maps
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 209) 	 * the MMAP record is used as a marker of a jitdump file for more meta
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 210) 	 * data info about the jitted code. Perf report/annotate detect this
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 211) 	 * special filename and process the jitdump file.
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 212) 	 *
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 213) 	 * mapping must be PROT_EXEC to ensure it is captured by perf record
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 214) 	 * even when not using -d option
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 215) 	 */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 216) 	marker_addr = mmap(NULL, pgsz, PROT_READ|PROT_EXEC, MAP_PRIVATE, fd, 0);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 217) 	return (marker_addr == MAP_FAILED) ? -1 : 0;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 218) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 219) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 220) static void
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 221) perf_close_marker_file(void)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 222) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 223) 	long pgsz;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 224) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 225) 	if (!marker_addr)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 226) 		return;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 227) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 228) 	pgsz = sysconf(_SC_PAGESIZE);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 229) 	if (pgsz == -1)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 230) 		return;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 231) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 232) 	munmap(marker_addr, pgsz);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 233) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 234) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 235) static void
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 236) init_arch_timestamp(void)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 237) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 238) 	char *str = getenv("JITDUMP_USE_ARCH_TIMESTAMP");
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 239) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 240) 	if (!str || !*str || !strcmp(str, "0"))
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 241) 		return;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 242) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 243) 	use_arch_timestamp = 1;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 244) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 245) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 246) void *jvmti_open(void)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 247) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 248) 	char dump_path[PATH_MAX];
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 249) 	struct jitheader header;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 250) 	int fd, ret;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 251) 	FILE *fp;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 252) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 253) 	init_arch_timestamp();
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 254) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 255) 	/*
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 256) 	 * check if clockid is supported
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 257) 	 */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 258) 	if (!perf_get_timestamp()) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 259) 		if (use_arch_timestamp)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 260) 			warnx("jvmti: arch timestamp not supported");
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 261) 		else
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 262) 			warnx("jvmti: kernel does not support %d clock id", perf_clk_id);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 263) 	}
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 264) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 265) 	memset(&header, 0, sizeof(header));
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 266) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 267) 	/*
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 268) 	 * jitdump file dir
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 269) 	 */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 270) 	if (create_jit_cache_dir() < 0)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 271) 		return NULL;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 272) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 273) 	/*
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 274) 	 * jitdump file name
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 275) 	 */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 276) 	ret = snprintf(dump_path, PATH_MAX, "%s/jit-%i.dump", jit_path, getpid());
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 277) 	if (ret >= PATH_MAX) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 278) 		warnx("jvmti: cannot generate jitdump file full path because"
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 279) 			" %s/jit-%i.dump is too long, please check the cwd,"
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 280) 			" JITDUMPDIR, and HOME variables", jit_path, getpid());
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 281) 		return NULL;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 282) 	}
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 283) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 284) 	fd = open(dump_path, O_CREAT|O_TRUNC|O_RDWR, 0666);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 285) 	if (fd == -1)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 286) 		return NULL;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 287) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 288) 	/*
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 289) 	 * create perf.data maker for the jitdump file
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 290) 	 */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 291) 	if (perf_open_marker_file(fd)) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 292) 		warnx("jvmti: failed to create marker file");
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 293) 		return NULL;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 294) 	}
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 295) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 296) 	fp = fdopen(fd, "w+");
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 297) 	if (!fp) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 298) 		warn("jvmti: cannot create %s", dump_path);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 299) 		close(fd);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 300) 		goto error;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 301) 	}
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 302) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 303) 	warnx("jvmti: jitdump in %s", dump_path);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 304) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 305) 	if (get_e_machine(&header)) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 306) 		warn("get_e_machine failed\n");
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 307) 		goto error;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 308) 	}
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 309) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 310) 	header.magic      = JITHEADER_MAGIC;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 311) 	header.version    = JITHEADER_VERSION;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 312) 	header.total_size = sizeof(header);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 313) 	header.pid        = getpid();
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 314) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 315) 	header.timestamp = perf_get_timestamp();
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 316) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 317) 	if (use_arch_timestamp)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 318) 		header.flags |= JITDUMP_FLAGS_ARCH_TIMESTAMP;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 319) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 320) 	if (!fwrite(&header, sizeof(header), 1, fp)) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 321) 		warn("jvmti: cannot write dumpfile header");
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 322) 		goto error;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 323) 	}
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 324) 	return fp;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 325) error:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 326) 	fclose(fp);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 327) 	return NULL;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 328) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 329) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 330) int
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 331) jvmti_close(void *agent)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 332) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 333) 	struct jr_code_close rec;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 334) 	FILE *fp = agent;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 335) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 336) 	if (!fp) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 337) 		warnx("jvmti: invalid fd in close_agent");
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 338) 		return -1;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 339) 	}
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 340) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 341) 	rec.p.id = JIT_CODE_CLOSE;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 342) 	rec.p.total_size = sizeof(rec);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 343) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 344) 	rec.p.timestamp = perf_get_timestamp();
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 345) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 346) 	if (!fwrite(&rec, sizeof(rec), 1, fp))
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 347) 		return -1;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 348) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 349) 	fclose(fp);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 350) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 351) 	fp = NULL;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 352) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 353) 	perf_close_marker_file();
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 354) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 355) 	return 0;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 356) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 357) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 358) int
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 359) jvmti_write_code(void *agent, char const *sym,
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 360) 	uint64_t vma, void const *code, unsigned int const size)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 361) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 362) 	static int code_generation = 1;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 363) 	struct jr_code_load rec;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 364) 	size_t sym_len;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 365) 	FILE *fp = agent;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 366) 	int ret = -1;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 367) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 368) 	/* don't care about 0 length function, no samples */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 369) 	if (size == 0)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 370) 		return 0;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 371) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 372) 	if (!fp) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 373) 		warnx("jvmti: invalid fd in write_native_code");
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 374) 		return -1;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 375) 	}
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 376) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 377) 	sym_len = strlen(sym) + 1;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 378) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 379) 	rec.p.id           = JIT_CODE_LOAD;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 380) 	rec.p.total_size   = sizeof(rec) + sym_len;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 381) 	rec.p.timestamp    = perf_get_timestamp();
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 382) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 383) 	rec.code_size  = size;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 384) 	rec.vma        = vma;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 385) 	rec.code_addr  = vma;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 386) 	rec.pid	       = getpid();
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 387) 	rec.tid	       = gettid();
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 388) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 389) 	if (code)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 390) 		rec.p.total_size += size;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 391) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 392) 	/*
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 393) 	 * If JVM is multi-threaded, nultiple concurrent calls to agent
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 394) 	 * may be possible, so protect file writes
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 395) 	 */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 396) 	flockfile(fp);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 397) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 398) 	/*
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 399) 	 * get code index inside lock to avoid race condition
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 400) 	 */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 401) 	rec.code_index = code_generation++;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 402) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 403) 	ret = fwrite_unlocked(&rec, sizeof(rec), 1, fp);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 404) 	fwrite_unlocked(sym, sym_len, 1, fp);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 405) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 406) 	if (code)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 407) 		fwrite_unlocked(code, size, 1, fp);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 408) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 409) 	funlockfile(fp);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 410) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 411) 	ret = 0;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 412) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 413) 	return ret;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 414) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 415) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 416) int
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 417) jvmti_write_debug_info(void *agent, uint64_t code,
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 418)     int nr_lines, jvmti_line_info_t *li,
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 419)     const char * const * file_names)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 420) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 421) 	struct jr_code_debug_info rec;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 422) 	size_t sret, len, size, flen = 0;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 423) 	uint64_t addr;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 424) 	FILE *fp = agent;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 425) 	int i;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 426) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 427) 	/*
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 428) 	 * no entry to write
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 429) 	 */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 430) 	if (!nr_lines)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 431) 		return 0;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 432) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 433) 	if (!fp) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 434) 		warnx("jvmti: invalid fd in write_debug_info");
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 435) 		return -1;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 436) 	}
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 437) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 438) 	for (i = 0; i < nr_lines; ++i) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 439) 	    flen += strlen(file_names[i]) + 1;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 440) 	}
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 441) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 442) 	rec.p.id        = JIT_CODE_DEBUG_INFO;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 443) 	size            = sizeof(rec);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 444) 	rec.p.timestamp = perf_get_timestamp();
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 445) 	rec.code_addr   = (uint64_t)(uintptr_t)code;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 446) 	rec.nr_entry    = nr_lines;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 447) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 448) 	/*
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 449) 	 * on disk source line info layout:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 450) 	 * uint64_t : addr
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 451) 	 * int      : line number
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 452) 	 * int      : column discriminator
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 453) 	 * file[]   : source file name
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 454) 	 */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 455) 	size += nr_lines * sizeof(struct debug_entry);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 456) 	size += flen;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 457) 	rec.p.total_size = size;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 458) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 459) 	/*
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 460) 	 * If JVM is multi-threaded, nultiple concurrent calls to agent
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 461) 	 * may be possible, so protect file writes
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 462) 	 */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 463) 	flockfile(fp);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 464) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 465) 	sret = fwrite_unlocked(&rec, sizeof(rec), 1, fp);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 466) 	if (sret != 1)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 467) 		goto error;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 468) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 469) 	for (i = 0; i < nr_lines; i++) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 470) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 471) 		addr = (uint64_t)li[i].pc;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 472) 		len  = sizeof(addr);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 473) 		sret = fwrite_unlocked(&addr, len, 1, fp);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 474) 		if (sret != 1)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 475) 			goto error;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 476) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 477) 		len  = sizeof(li[0].line_number);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 478) 		sret = fwrite_unlocked(&li[i].line_number, len, 1, fp);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 479) 		if (sret != 1)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 480) 			goto error;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 481) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 482) 		len  = sizeof(li[0].discrim);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 483) 		sret = fwrite_unlocked(&li[i].discrim, len, 1, fp);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 484) 		if (sret != 1)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 485) 			goto error;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 486) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 487) 		sret = fwrite_unlocked(file_names[i], strlen(file_names[i]) + 1, 1, fp);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 488) 		if (sret != 1)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 489) 			goto error;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 490) 	}
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 491) 	funlockfile(fp);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 492) 	return 0;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 493) error:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 494) 	funlockfile(fp);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 495) 	return -1;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 496) }