^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) }