diff options
| -rw-r--r-- | src/expr.cc | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/src/expr.cc b/src/expr.cc index aa9a7b0e..c59f8a57 100644 --- a/src/expr.cc +++ b/src/expr.cc @@ -64,6 +64,29 @@ value_t expr_t::real_calc(scope_t& scope) if (locus) { add_error_context(_("While evaluating value expression:")); add_error_context(op_context(ptr, locus)); + + if (SHOW_INFO()) { + add_error_context(_("The value expression tree was:")); + std::ostringstream buf; + ptr->dump(buf, 0); + + std::istringstream in(buf.str()); + std::ostringstream out; + char linebuf[1024]; + bool first = true; + while (in.good() && ! in.eof()) { + in.getline(linebuf, 1023); + std::streamsize len = in.gcount(); + if (len > 0) { + if (first) + first = false; + else + out << '\n'; + out << " " << linebuf; + } + } + add_error_context(out.str()); + } } throw; } |