Extract stacktrace from the failed task

Author: KDr2

src/taskcopy.jl

@@ -40,8 +40,8 @@ proper way is refreshing the `current_task` (the variable `t`) in
 function task_wrapper(func)
     () ->
     try
-        res = func()
         ct = current_task()
+        res = func()
         ct.result = res
         isa(ct.storage, Nothing) && (ct.storage = IdDict())
         ct.storage[:_libtask_state] = :done
@@ -83,6 +83,19 @@ function Base.copy(t::Task)
   newt
 end
 
+struct CTaskException
+    msg::String
+    backtrace::Vector{Union{Ptr{Nothing}, Base.InterpreterIP}}
+end
+
+function Base.show(io::IO, exc::CTaskException)
+    println(io, "Stacktrace in the failed task:\n")
+    println(io, exc.msg * "\n")
+    for line in stacktrace(exc.backtrace)
+        println(io, string(line))
+    end
+end
+
 produce(v) = begin
     ct = current_task()
 
@@ -178,7 +191,7 @@ consume(p::Task, values...) = begin
             return p.result
         end
         if p.exception != nothing
-            throw(p.exception)
+            throw(CTaskException(p.exception.msg, p.backtrace))
         end
     end
     wait()