1 //===-- TraceIntelPTGDBRemotePackets.cpp ------------------------*- C++ -*-===//
2 //
3 // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
4 // See https://llvm.org/LICENSE.txt for license information.
5 // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
6 //
7 //===----------------------------------------------------------------------===//
8 
9 #include "lldb/Utility/TraceIntelPTGDBRemotePackets.h"
10 
11 using namespace llvm;
12 using namespace llvm::json;
13 
14 namespace lldb_private {
15 
16 const char *IntelPTDataKinds::kProcFsCpuInfo = "procfsCpuInfo";
17 const char *IntelPTDataKinds::kIptTrace = "iptTrace";
18 const char *IntelPTDataKinds::kPerfContextSwitchTrace =
19     "perfContextSwitchTrace";
20 
21 bool TraceIntelPTStartRequest::IsPerCpuTracing() const {
22   return per_cpu_tracing.value_or(false);
23 }
24 
25 json::Value toJSON(const JSONUINT64 &uint64, bool hex) {
26   if (hex)
27     return json::Value(formatv("{0:x+}", uint64.value));
28   else
29     return json::Value(formatv("{0}", uint64.value));
30 }
31 
32 bool fromJSON(const json::Value &value, JSONUINT64 &uint64, Path path) {
33   if (Optional<uint64_t> val = value.getAsUINT64()) {
34     uint64.value = *val;
35     return true;
36   } else if (Optional<StringRef> val = value.getAsString()) {
37     if (!val->getAsInteger(/*radix=*/0, uint64.value))
38       return true;
39     path.report("invalid string number");
40   }
41   path.report("invalid number or string number");
42   return false;
43 }
44 
45 bool fromJSON(const json::Value &value, TraceIntelPTStartRequest &packet,
46               Path path) {
47   ObjectMapper o(value, path);
48   if (!(o && fromJSON(value, (TraceStartRequest &)packet, path) &&
49         o.map("enableTsc", packet.enable_tsc) &&
50         o.map("psbPeriod", packet.psb_period) &&
51         o.map("iptTraceSize", packet.ipt_trace_size)))
52     return false;
53 
54   if (packet.IsProcessTracing()) {
55     if (!o.map("processBufferSizeLimit", packet.process_buffer_size_limit) ||
56         !o.map("perCpuTracing", packet.per_cpu_tracing))
57       return false;
58   }
59   return true;
60 }
61 
62 json::Value toJSON(const TraceIntelPTStartRequest &packet) {
63   json::Value base = toJSON((const TraceStartRequest &)packet);
64   json::Object &obj = *base.getAsObject();
65   obj.try_emplace("iptTraceSize", packet.ipt_trace_size);
66   obj.try_emplace("processBufferSizeLimit", packet.process_buffer_size_limit);
67   obj.try_emplace("psbPeriod", packet.psb_period);
68   obj.try_emplace("enableTsc", packet.enable_tsc);
69   obj.try_emplace("perCpuTracing", packet.per_cpu_tracing);
70   return base;
71 }
72 
73 uint64_t LinuxPerfZeroTscConversion::ToNanos(uint64_t tsc) const {
74   uint64_t quot = tsc >> time_shift;
75   uint64_t rem_flag = (((uint64_t)1 << time_shift) - 1);
76   uint64_t rem = tsc & rem_flag;
77   return time_zero.value + quot * time_mult + ((rem * time_mult) >> time_shift);
78 }
79 
80 uint64_t LinuxPerfZeroTscConversion::ToTSC(uint64_t nanos) const {
81   uint64_t time = nanos - time_zero.value;
82   uint64_t quot = time / time_mult;
83   uint64_t rem = time % time_mult;
84   return (quot << time_shift) + (rem << time_shift) / time_mult;
85 }
86 
87 json::Value toJSON(const LinuxPerfZeroTscConversion &packet) {
88   return json::Value(json::Object{
89       {"timeMult", packet.time_mult},
90       {"timeShift", packet.time_shift},
91       {"timeZero", toJSON(packet.time_zero, /*hex=*/false)},
92   });
93 }
94 
95 bool fromJSON(const json::Value &value, LinuxPerfZeroTscConversion &packet,
96               json::Path path) {
97   ObjectMapper o(value, path);
98   uint64_t time_mult, time_shift;
99   if (!(o && o.map("timeMult", time_mult) && o.map("timeShift", time_shift) &&
100         o.map("timeZero", packet.time_zero)))
101     return false;
102   packet.time_mult = time_mult;
103   packet.time_shift = time_shift;
104   return true;
105 }
106 
107 bool fromJSON(const json::Value &value, TraceIntelPTGetStateResponse &packet,
108               json::Path path) {
109   ObjectMapper o(value, path);
110   return o && fromJSON(value, (TraceGetStateResponse &)packet, path) &&
111          o.map("tscPerfZeroConversion", packet.tsc_perf_zero_conversion);
112 }
113 
114 json::Value toJSON(const TraceIntelPTGetStateResponse &packet) {
115   json::Value base = toJSON((const TraceGetStateResponse &)packet);
116   base.getAsObject()->insert(
117       {"tscPerfZeroConversion", packet.tsc_perf_zero_conversion});
118   return base;
119 }
120 
121 } // namespace lldb_private
122