basic continue after error works; interactive mode more useful
This commit is contained in:
parent
5b28d08203
commit
627e192f64
12 changed files with 58 additions and 40 deletions
|
|
@ -75,11 +75,12 @@ proc popStackFrame(c: PEvalContext) =
|
|||
|
||||
proc evalAux(c: PEvalContext, n: PNode, flags: TEvalFlags): PNode
|
||||
|
||||
proc stackTraceAux(x: PStackFrame) =
|
||||
if x != nil:
|
||||
proc stackTraceAux(x: PStackFrame) =
|
||||
if x != nil:
|
||||
stackTraceAux(x.next)
|
||||
var info = if x.call != nil: x.call.info else: UnknownLineInfo()
|
||||
messageOut(`%`("file: $1, line: $2",
|
||||
[toFilename(x.call.info), $(toLineNumber(x.call.info))]))
|
||||
[toFilename(info), $(toLineNumber(info))]))
|
||||
|
||||
proc stackTrace(c: PEvalContext, n: PNode, msg: TMsgKind, arg: string = "") =
|
||||
messageOut("stack trace: (most recent call last)")
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue