Posted to tcl by colin at Tue Jul 14 14:50:48 GMT 2009view raw

  1. cannot yield: C stack busy
  2. while executing
  3. "::yield"
  4. (class "::Coroonet" method "_yield" line 3)
  5. invoked from within
  6. "my _yield $socket INCOMING"
  7. (class "::Coroonet" method "get" line 4)
  8. invoked from within
  9. "my get $socket"
  10. (class "::SMTP" method "response" line 4)
  11. invoked from within
  12. "my response $socket"
  13. (class "::SMTP" method "senddata" line 14)
  14. invoked from within
  15. "my senddata $socket 3000 $msg"
  16. ("3*" arm line 2)
  17. invoked from within
  18. "switch -glob $code {
  19. 3* {
  20. lassign [my senddata $socket 3000 $msg] code response
  21. puts stderr "sent data: $code"
  22. dict set status data..."
  23. (body of "dict with")
  24. invoked from within
  25. "dict with smtp {
  26. lassign [my send $socket 60000 EHLO $client] code response
  27. dict set status EHLO [list $code $response]
  28.  
  29. switch -glob -..."
  30. (class "::SMTP" method "smtp_server" line 23)
  31. invoked from within
  32. "my smtp_server $socket $msg $smtp"
  33. (class "::SMTP" method "smtp" line 14)
  34. invoked from within
  35. "my smtp ::mime::1 {client thighbone syncvar ::status completion {} servers {puretcl.com localhost} multiple 0 atleastone 1 queue 1 xverp 1 mode MAIL m..."
  36. invoked from within
  37. "::oo::Obj5::C1 INCOMING"