vaclavt/mlisp
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

detailed stracktrace only when option -d, second implemented in c++

Browse Source
This commit is contained in:
VaclavT
2021-10-11 12:04:49 +02:00
parent b68987fdd7
commit ecbc3af789
6 changed files with 38 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
ml_profiler.cpp
View File

@@ -16,21 +16,32 @@ void MlPerfMon::turnOn() {
start_time = std::chrono::high_resolution_clock::now();
}
void MlPerfMon::debugOn() {
debugStacktraceOn = true;
}
void MlPerfMon::add_method_call(const MlValue &function, const std::vector<MlValue> &args) {
// only main thread is logged, to prevent mixing from others threads so lock not needed
if (main_thread_id != std::this_thread::get_id()) return;
std::string method = function.type == MlValue::LAMBDA ? "lambda" : function.str;
std::string args_string;
for (size_t i = 0; i < args.size() && args_string.size() < 64; i++) {
args_string.append(" ");
args_string.append(args[i].display());
}
if (args_string.size() > 64)
args_string = args_string.substr(0, 62) + ".."; // TODO introduce constant here
if (debugStacktraceOn) {
// call stack with more info
std::string args_string;
for (size_t i = 0; i < args.size() && args_string.size() < call_stack_args_str_len; i++) {
args_string.append(" ");
args_string.append(args[i].display());
}
if (args_string.size() > call_stack_args_str_len)
args_string = args_string.substr(0, call_stack_args_str_len) + "..";
else
args_string.append(")");
call_stack.push_back("(" + method + args_string + ")");
call_stack.push_back("(" + method + args_string);
} else {
call_stack.push_back(method);
}
if (perfOn)
calls_counter[method]++;
@@ -57,7 +68,7 @@ std::string MlPerfMon::callstack() const {
return cs.append("\n");
}
size_t MlPerfMon::get_callstack_position() {
size_t MlPerfMon::get_callstack_position() const {
return call_stack.size();
}
@@ -71,7 +82,7 @@ void MlPerfMon::clear_callstack() {
call_stack.empty();
}
void MlPerfMon::print_results() {
void MlPerfMon::print_results() const {
if (perfOn) {
time_point<high_resolution_clock> end_time = high_resolution_clock::now();