bug#32452: 26.1; gnutls_try_handshake maxes out cpu retrying when server is a bit busy

[Noam Postavsky <npostavs@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 290 bytes --]

On 16 August 2018 at 09:41, Eli Zaretskii <eliz@gnu.org> wrote:

> Does anything change if you disable asynchronous DNS and connection
> establishment?

Um, how should I do that? The :nowait argument to open-network-stream
is already nil, if that's what you meant (see attached backtrace).

[-- Attachment #2: gnutls-boot-stacktrace.txt --]
[-- Type: text/plain, Size: 2764 bytes --]

Debugger entered--Lisp error: (quit)
  gnutls-boot(#<process debbugs.gnu.org> gnutls-x509pki (:complete-negotiation t :priority "NORMAL:%DUMBFW" :hostname "debbugs.gnu.org" :loglevel 1 :min-prime-bits 256 :trustfiles nil :crlfiles nil :keylist nil :verify-flags nil :verify-error nil :callbacks nil))
  gnutls-negotiate(:process #<process debbugs.gnu.org> :type gnutls-x509pki :hostname "debbugs.gnu.org")
  open-gnutls-stream("debbugs.gnu.org" #<buffer  *url-http-temp*> "debbugs.gnu.org" 443 nil)
  network-stream-open-tls("debbugs.gnu.org" #<buffer  *url-http-temp*> "debbugs.gnu.org" 443 (:type tls :nowait nil))
  open-network-stream("debbugs.gnu.org" #<buffer  *url-http-temp*> "debbugs.gnu.org" 443 :type tls :nowait nil)
  url-open-stream("debbugs.gnu.org" #<buffer  *url-http-temp*> "debbugs.gnu.org" 443 tls)
  url-http-find-free-connection("debbugs.gnu.org" 443 tls)
  url-http(#s(url :type "https" :user nil :password nil :host "debbugs.gnu.org" :portspec nil :filename "/cgi/bugreport.cgi?bug=32444;mboxmaint=yes;mboxstat=yes" :target nil :attributes nil :fullness t :silent nil :use-cookies t :asynchronous nil) #f(compiled-function (&rest ignored) #<bytecode 0x1910821>) (nil) nil tls)
  url-https(#s(url :type "https" :user nil :password nil :host "debbugs.gnu.org" :portspec nil :filename "/cgi/bugreport.cgi?bug=32444;mboxmaint=yes;mboxstat=yes" :target nil :attributes nil :fullness t :silent nil :use-cookies t :asynchronous nil) #f(compiled-function (&rest ignored) #<bytecode 0x1910821>) (nil))
  url-retrieve-internal("https://debbugs.gnu.org/cgi/bugreport.cgi?bug=32444;mboxmaint=yes;mboxstat=yes" #f(compiled-function (&rest ignored) #<bytecode 0x1910821>) (nil) nil nil)
  url-retrieve("https://debbugs.gnu.org/cgi/bugreport.cgi?bug=32444;mboxmaint=yes;mboxstat=yes" #f(compiled-function (&rest ignored) #<bytecode 0x1910821>) nil nil nil)
  url-retrieve-synchronously("https://debbugs.gnu.org/cgi/bugreport.cgi?bug=32444;mboxmaint=yes;mboxstat=yes")
  url-insert-file-contents("https://debbugs.gnu.org/cgi/bugreport.cgi?bug=32444;mboxmaint=yes;mboxstat=yes" t)
  gnus-read-ephemeral-bug-group("32444" "https://debbugs.gnu.org/cgi/bugreport.cgi?bug=%s;mboxmaint=yes;mboxstat=yes")
  funcall-interactively(gnus-read-ephemeral-bug-group "32444" "https://debbugs.gnu.org/cgi/bugreport.cgi?bug=%s;mboxmaint=yes;mboxstat=yes")
  call-interactively(gnus-read-ephemeral-bug-group record nil)
  command-execute(gnus-read-ephemeral-bug-group record)
  execute-extended-command(nil "gnus-read-ephemeral-bug-group" "gnus-read-ephemeral-b")
  funcall-interactively(execute-extended-command nil "gnus-read-ephemeral-bug-group" "gnus-read-ephemeral-b")
  call-interactively(execute-extended-command nil nil)
  command-execute(execute-extended-command)