caas barely works now

This commit is contained in:
Araq 2012-10-24 01:13:44 +02:00
commit de338526ec
4 changed files with 18 additions and 8 deletions

View file

@ -206,7 +206,8 @@ proc raiseExceptionAux(e: ref E_Base) =
else:
when hasSomeStackTrace:
var buf = newStringOfCap(2000)
rawWriteStackTrace(buf)
if isNil(e.trace): rawWriteStackTrace(buf)
else: add(buf, e.trace)
add(buf, "Error: unhandled exception: ")
if not isNil(e.msg): add(buf, e.msg)
add(buf, " [")