unofficial mirror of emacs-devel@gnu.org 
 help / color / mirror / code / Atom feed
From: Michael Albinus <michael.albinus@gmx.de>
To: Winston Carlile via "Emacs development discussions."
	<emacs-devel@gnu.org>
Cc: Winston Carlile <winstonc@google.com>
Subject: Re: Making elp.el behave like a real profiler
Date: Wed, 17 Aug 2022 11:18:56 +0200	[thread overview]
Message-ID: <87v8qr2pof.fsf@gmx.de> (raw)
In-Reply-To: <CALYEEYyp_O0P5V3dKxkm26JBiduONUn7-0qoCw8Cx0+0DvpPLQ@mail.gmail.com> (Winston Carlile via's message of "Mon, 15 Aug 2022 12:22:54 -0700")

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

Winston Carlile via "Emacs development discussions."
<emacs-devel@gnu.org> writes:

Hi Winston,

> As a heavy TRAMP user I have been frustrated the past few
> years with slowness, and painstakingly looked for ways to
> remedy this.  Along the way I started to explore Emacs' core
> file API and with it the magic filename system, specifically
> tramp-sh.el.  I quickly came to realize its complexity and
> the inadequacy of the Emacs Lisp Profiler in a highly
> recursive and interconnected codebase.

It is highly appreciated to work on this. However, don't expect that it
will help much in Tramp optimization.

In my experience, most time in Tramp is spent on wire. That is, sending
commands to the remote shell, and reading the command's output. Compared
with this, time spent in Elisp is not so important (although any
optimization will be appreciated as well).

In Tramp it is hard to compare the spent time. Mainly, due to different
network latency in different environments. And this can change even in
your local LAN over the day, so that you cannot be sure whether an
applied optimization helps, or not. I know what I'm speaking about,
because I'm working in this area the last weeks.

What I use for Tramp optimization is to count the number of commands
send to the remote host. The less commands are sent, the better.

As a poor man's approach I trace the Tramp functions tramp-send-command
(all commands sent to the remote shell go through this) and
tramp-file-name-handler (all invocations of Tramp functionality pass
this function). The latter is to know, what Emacs primitive function has
caused a remote command.

So I test something like this

(let ((remote-file-name-inhibit-cache t)) ;; Do not use file caches.
  (trace-function-background 'tramp-send-command)
  (trace-function-background 'tramp-file-name-handler)
  (ignore-errors (kill-buffer trace-buffer))

  ;; The test.
  (with-temp-buffer
    (insert-file-contents "/ssh::.emacs" nil 100 nil)))

The *trace-output* for this example is appended.

See also the discussion in bug#56342.

Best regards, Michael.


[-- Attachment #2: Type: text/plain, Size: 20459 bytes --]

======================================================================
1 -> (tramp-file-name-handler expand-file-name "/ssh::.emacs" nil)
1 <- tramp-file-name-handler: #("/ssh:gandalf:/home/albinus/.emacs" 5 12 (tramp-default t))
======================================================================
1 -> (tramp-file-name-handler insert-file-contents #("/ssh:gandalf:/home/albinus/.emacs" 5 12 (tramp-default t)) nil 100 nil nil)
| 2 -> (tramp-file-name-handler expand-file-name #("/ssh:gandalf:/home/albinus/.emacs" 5 12 (tramp-default t)) nil)
| 2 <- tramp-file-name-handler: #("/ssh:gandalf:/home/albinus/.emacs" 5 12 (tramp-default t))
| 2 -> (tramp-file-name-handler expand-file-name #("/ssh:gandalf:/tmp/" 5 12 (tramp-default t)) nil)
| 2 <- tramp-file-name-handler: #("/ssh:gandalf:/tmp/" 5 12 (tramp-default t))
| 2 -> (tramp-file-name-handler file-writable-p #("/ssh:gandalf:/tmp/" 5 12 (tramp-default t)))
| | 3 -> (tramp-file-name-handler expand-file-name #("/ssh:gandalf:/tmp/" 5 12 (tramp-default t)) nil)
| | 3 <- tramp-file-name-handler: #("/ssh:gandalf:/tmp/" 5 12 (tramp-default t))
| | 3 -> (tramp-file-name-handler file-exists-p #("/ssh:gandalf:/tmp/" 5 12 (tramp-default t)))
| | | 4 -> (tramp-send-command (tramp-file-name "ssh" nil nil #("gandalf" 0 7 (tramp-default t)) nil "/tmp/" nil) "test -e /tmp/ 2>/dev/null; echo tramp_exit_status $?")
| | | 4 <- tramp-send-command: 21
| | 3 <- tramp-file-name-handler: t
| | 3 -> (tramp-send-command (tramp-file-name "ssh" nil nil #("gandalf" 0 7 (tramp-default t)) nil "/tmp/" nil) "test -w /tmp/ 2>/dev/null; echo tramp_exit_status $?")
| | 3 <- tramp-send-command: 21
| 2 <- tramp-file-name-handler: t
| 2 -> (tramp-file-name-handler expand-file-name "tramp." #("/ssh:gandalf:/tmp" 5 12 (tramp-default t)))
| 2 <- tramp-file-name-handler: "/ssh:gandalf:/tmp/tramp."
| 2 -> (tramp-file-name-handler expand-file-name "/ssh:gandalf:/tmp/tramp." "/tmp/")
| 2 <- tramp-file-name-handler: "/ssh:gandalf:/tmp/tramp."
| 2 -> (tramp-file-name-handler expand-file-name "/ssh:gandalf:/tmp/tramp.aKjmrp" nil)
| 2 <- tramp-file-name-handler: "/ssh:gandalf:/tmp/tramp.aKjmrp"
| 2 -> (tramp-file-name-handler write-region "" nil #1="/ssh:gandalf:/tmp/tramp.aKjmrp" nil silent #1# excl)
| | 3 -> (tramp-file-name-handler expand-file-name "/ssh:gandalf:/tmp/tramp.aKjmrp" nil)
| | 3 <- tramp-file-name-handler: "/ssh:gandalf:/tmp/tramp.aKjmrp"
| | 3 -> (tramp-file-name-handler file-truename "/ssh:gandalf:/tmp/tramp.aKjmrp")
| | | 4 -> (tramp-file-name-handler file-remote-p "/ssh:gandalf:/tmp/tramp.aKjmrp" localname nil)
| | | | 5 -> (tramp-file-name-handler expand-file-name "/ssh:gandalf:/tmp/tramp.aKjmrp" nil)
| | | | 5 <- tramp-file-name-handler: "/ssh:gandalf:/tmp/tramp.aKjmrp"
| | | 4 <- tramp-file-name-handler: "/tmp/tramp.aKjmrp"
| | | 4 -> (tramp-file-name-handler expand-file-name "/ssh:gandalf:/tmp/tramp.aKjmrp" nil)
| | | 4 <- tramp-file-name-handler: "/ssh:gandalf:/tmp/tramp.aKjmrp"
| | | 4 -> (tramp-file-name-handler file-remote-p "/ssh:gandalf:/tmp/tramp.aKjmrp" localname nil)
| | | | 5 -> (tramp-file-name-handler expand-file-name "/ssh:gandalf:/tmp/tramp.aKjmrp" nil)
| | | | 5 <- tramp-file-name-handler: "/ssh:gandalf:/tmp/tramp.aKjmrp"
| | | 4 <- tramp-file-name-handler: "/tmp/tramp.aKjmrp"
| | | 4 -> (tramp-file-name-handler file-remote-p "/ssh:gandalf:/tmp/tramp.aKjmrp" nil nil)
| | | | 5 -> (tramp-file-name-handler expand-file-name "/ssh:gandalf:/tmp/tramp.aKjmrp" nil)
| | | | 5 <- tramp-file-name-handler: "/ssh:gandalf:/tmp/tramp.aKjmrp"
| | | 4 <- tramp-file-name-handler: "/ssh:gandalf:"
| | | 4 -> (tramp-send-command (tramp-file-name "ssh" nil nil "gandalf" nil "/tmp/tramp.aKjmrp" nil) "\\readlink --canonicalize-missing /tmp/tramp.aKjmrp 2>/dev/null; echo tramp_exit_status $?")
| | | 4 <- tramp-send-command: 39
| | | 4 -> (tramp-file-name-handler expand-file-name "/ssh:gandalf:/tmp/tramp.aKjmrp" nil)
| | | 4 <- tramp-file-name-handler: "/ssh:gandalf:/tmp/tramp.aKjmrp"
| | | 4 -> (tramp-file-name-handler file-symlink-p "/ssh:gandalf:/tmp/tramp.aKjmrp")
| | | | 5 -> (tramp-file-name-handler expand-file-name "/ssh:gandalf:/tmp/tramp.aKjmrp" nil)
| | | | 5 <- tramp-file-name-handler: "/ssh:gandalf:/tmp/tramp.aKjmrp"
| | | | 5 -> (tramp-file-name-handler file-attributes "/ssh:gandalf:/tmp/tramp.aKjmrp")
| | | | | 6 -> (tramp-file-name-handler expand-file-name "/ssh:gandalf:/tmp/tramp.aKjmrp" nil)
| | | | | 6 <- tramp-file-name-handler: "/ssh:gandalf:/tmp/tramp.aKjmrp"
| | | | | 6 -> (tramp-send-command (tramp-file-name "ssh" nil nil "gandalf" nil "/tmp/tramp.aKjmrp" nil) "tramp_stat_file_attributes /tmp/tramp.aKjmrp 2>/dev/null; echo tramp_exit_status $?")
| | | | | 6 <- tramp-send-command: 25
| | | | 5 <- tramp-file-name-handler: nil
| | | 4 <- tramp-file-name-handler: nil
| | 3 <- tramp-file-name-handler: "/ssh:gandalf:/tmp/tramp.aKjmrp"
| | 3 -> (tramp-file-name-handler expand-file-name "/ssh:gandalf:/tmp/tramp.aKjmrp" nil)
| | 3 <- tramp-file-name-handler: "/ssh:gandalf:/tmp/tramp.aKjmrp"
| | 3 -> (tramp-file-name-handler file-exists-p "/ssh:gandalf:/tmp/tramp.aKjmrp")
| | | 4 -> (tramp-send-command (tramp-file-name "ssh" nil nil "gandalf" nil "/tmp/tramp.aKjmrp" nil) "test -e /tmp/tramp.aKjmrp 2>/dev/null; echo tramp_exit_status $?")
| | | 4 <- tramp-send-command: 21
| | 3 <- tramp-file-name-handler: nil
| | 3 -> (tramp-file-name-handler file-locked-p "/ssh:gandalf:/tmp/tramp.aKjmrp")
| | | 4 -> (tramp-file-name-handler make-lock-file-name "/ssh:gandalf:/tmp/tramp.aKjmrp")
| | | 4 <- tramp-file-name-handler: nil
| | 3 <- tramp-file-name-handler: nil
| | 3 -> (tramp-file-name-handler expand-file-name "/ssh:gandalf:/tmp/tramp.aKjmrp" nil)
| | 3 <- tramp-file-name-handler: "/ssh:gandalf:/tmp/tramp.aKjmrp"
| | 3 -> (tramp-file-name-handler file-attributes "/ssh:gandalf:/tmp/tramp.aKjmrp" integer)
| | | 4 -> (tramp-file-name-handler expand-file-name "/ssh:gandalf:/tmp/tramp.aKjmrp" nil)
| | | 4 <- tramp-file-name-handler: "/ssh:gandalf:/tmp/tramp.aKjmrp"
| | | 4 -> (tramp-send-command (tramp-file-name "ssh" nil nil "gandalf" nil "/tmp/tramp.aKjmrp" nil) "tramp_stat_file_attributes /tmp/tramp.aKjmrp 2>/dev/null; echo tramp_exit_status $?")
| | | 4 <- tramp-send-command: 25
| | 3 <- tramp-file-name-handler: nil
| | 3 -> (tramp-file-name-handler expand-file-name "/ssh:gandalf:/tmp/tramp.aKjmrp" nil)
| | 3 <- tramp-file-name-handler: "/ssh:gandalf:/tmp/tramp.aKjmrp"
| | 3 -> (tramp-file-name-handler file-attributes "/ssh:gandalf:/tmp/tramp.aKjmrp" integer)
| | | 4 -> (tramp-file-name-handler expand-file-name "/ssh:gandalf:/tmp/tramp.aKjmrp" nil)
| | | 4 <- tramp-file-name-handler: "/ssh:gandalf:/tmp/tramp.aKjmrp"
| | | 4 -> (tramp-send-command (tramp-file-name "ssh" nil nil "gandalf" nil "/tmp/tramp.aKjmrp" nil) "tramp_stat_file_attributes /tmp/tramp.aKjmrp 2>/dev/null; echo tramp_exit_status $?")
| | | 4 <- tramp-send-command: 25
| | 3 <- tramp-file-name-handler: nil
| | 3 -> (tramp-file-name-handler expand-file-name "/ssh:gandalf:/tmp/tramp.aKjmrp" nil)
| | 3 <- tramp-file-name-handler: "/ssh:gandalf:/tmp/tramp.aKjmrp"
| | 3 -> (tramp-file-name-handler file-acl "/ssh:gandalf:/tmp/tramp.aKjmrp")
| | 3 <- tramp-file-name-handler: nil
| | 3 -> (tramp-file-name-handler expand-file-name "/ssh:gandalf:/tmp/tramp.aKjmrp" nil)
| | 3 <- tramp-file-name-handler: "/ssh:gandalf:/tmp/tramp.aKjmrp"
| | 3 -> (tramp-file-name-handler file-selinux-context "/ssh:gandalf:/tmp/tramp.aKjmrp")
| | 3 <- tramp-file-name-handler: (nil nil nil nil)
| | 3 -> (tramp-file-name-handler file-name-nondirectory "/ssh:gandalf:/tmp/tramp.aKjmrp")
| | 3 <- tramp-file-name-handler: "tramp.aKjmrp"
| | 3 -> (tramp-file-name-handler file-remote-p "/ssh:gandalf:/tmp/tramp.aKjmrp" nil nil)
| | | 4 -> (tramp-file-name-handler expand-file-name "/ssh:gandalf:/tmp/tramp.aKjmrp" nil)
| | | 4 <- tramp-file-name-handler: "/ssh:gandalf:/tmp/tramp.aKjmrp"
| | 3 <- tramp-file-name-handler: "/ssh:gandalf:"
| | 3 -> (tramp-file-name-handler lock-file "/ssh:gandalf:/tmp/tramp.aKjmrp")
| | | 4 -> (tramp-file-name-handler file-locked-p "/ssh:gandalf:/tmp/tramp.aKjmrp")
| | | | 5 -> (tramp-file-name-handler make-lock-file-name "/ssh:gandalf:/tmp/tramp.aKjmrp")
| | | | 5 <- tramp-file-name-handler: nil
| | | 4 <- tramp-file-name-handler: nil
| | | 4 -> (tramp-file-name-handler make-lock-file-name "/ssh:gandalf:/tmp/tramp.aKjmrp")
| | | 4 <- tramp-file-name-handler: nil
| | | 4 -> (tramp-file-name-handler make-lock-file-name "/ssh:gandalf:/tmp/tramp.aKjmrp")
| | | 4 <- tramp-file-name-handler: nil
| | 3 <- tramp-file-name-handler: nil
| | 3 -> (tramp-send-command (tramp-file-name "ssh" nil nil "gandalf" nil "/tmp/tramp.aKjmrp" nil) "cat </dev/null >/tmp/tramp.aKjmrp")
| | 3 <- tramp-send-command: 1
| | 3 -> (tramp-file-name-handler file-name-directory "/ssh:gandalf:/tmp/tramp.aKjmrp")
| | 3 <- tramp-file-name-handler: "/ssh:gandalf:/tmp/"
| | 3 -> (tramp-file-name-handler expand-file-name "/ssh:gandalf:/tmp/" nil)
| | 3 <- tramp-file-name-handler: "/ssh:gandalf:/tmp/"
| | 3 -> (tramp-file-name-handler directory-file-name "/ssh:gandalf:/tmp/")
| | 3 <- tramp-file-name-handler: "/ssh:gandalf:/tmp"
| | 3 -> (tramp-file-name-handler file-modes "/ssh:gandalf:/tmp" nil)
| | | 4 -> (tramp-file-name-handler expand-file-name "/ssh:gandalf:/tmp" nil)
| | | 4 <- tramp-file-name-handler: "/ssh:gandalf:/tmp"
| | | 4 -> (tramp-file-name-handler file-attributes "/ssh:gandalf:/tmp")
| | | | 5 -> (tramp-file-name-handler expand-file-name "/ssh:gandalf:/tmp" nil)
| | | | 5 <- tramp-file-name-handler: "/ssh:gandalf:/tmp"
| | | | 5 -> (tramp-send-command (tramp-file-name "ssh" nil nil "gandalf" nil "/tmp" nil) "tramp_stat_file_attributes /tmp 2>/dev/null; echo tramp_exit_status $?")
| | | | 5 <- tramp-send-command: 122
| | | 4 <- tramp-file-name-handler: (t 43 0 0 (25339 54877 0 0) (25340 45027 0 0) (25340 45027 0 0) 10240 "drwxrwxrwt" t 1 (-1 . 1))
| | 3 <- tramp-file-name-handler: 1023
| | 3 -> (tramp-file-name-handler tramp-set-file-uid-gid "/ssh:gandalf:/tmp/tramp.aKjmrp" 1000 1000)
| | | 4 -> (tramp-file-name-handler expand-file-name "/ssh:gandalf:/tmp/tramp.aKjmrp" nil)
| | | 4 <- tramp-file-name-handler: "/ssh:gandalf:/tmp/tramp.aKjmrp"
| | | 4 -> (tramp-file-name-handler file-exists-p "/ssh:gandalf:/tmp/tramp.aKjmrp")
| | | | 5 -> (tramp-send-command (tramp-file-name "ssh" nil nil "gandalf" nil "/tmp/tramp.aKjmrp" nil) "test -e /tmp/tramp.aKjmrp 2>/dev/null; echo tramp_exit_status $?")
| | | | 5 <- tramp-send-command: 21
| | | 4 <- tramp-file-name-handler: t
| | | 4 -> (tramp-send-command (tramp-file-name "ssh" nil nil "gandalf" nil "/tmp/tramp.aKjmrp" nil) "chown 1000:1000 /tmp/tramp.aKjmrp")
| | | 4 <- tramp-send-command: 1
| | 3 <- tramp-file-name-handler: 1
| | 3 -> (tramp-file-name-handler expand-file-name "/ssh:gandalf:/tmp/tramp.aKjmrp" "~/")
| | 3 <- tramp-file-name-handler: "/ssh:gandalf:/tmp/tramp.aKjmrp"
| | 3 -> (tramp-file-name-handler set-file-acl "/ssh:gandalf:/tmp/tramp.aKjmrp" nil)
| | | 4 -> (tramp-file-name-handler expand-file-name "/ssh:gandalf:/tmp/tramp.aKjmrp" nil)
| | | 4 <- tramp-file-name-handler: "/ssh:gandalf:/tmp/tramp.aKjmrp"
| | 3 <- tramp-file-name-handler: nil
| | 3 -> (tramp-file-name-handler expand-file-name "/ssh:gandalf:/tmp/tramp.aKjmrp" "~/")
| | 3 <- tramp-file-name-handler: "/ssh:gandalf:/tmp/tramp.aKjmrp"
| | 3 -> (tramp-file-name-handler set-file-selinux-context "/ssh:gandalf:/tmp/tramp.aKjmrp" (nil nil nil nil))
| | 3 <- tramp-file-name-handler: nil
| | 3 -> (tramp-file-name-handler unlock-file "/ssh:gandalf:/tmp/tramp.aKjmrp")
| | | 4 -> (tramp-file-name-handler make-lock-file-name "/ssh:gandalf:/tmp/tramp.aKjmrp")
| | | 4 <- tramp-file-name-handler: nil
| | 3 <- tramp-file-name-handler: nil
| 2 <- tramp-file-name-handler: nil
| 2 -> (tramp-send-command (tramp-file-name "ssh" nil nil #("gandalf" 0 7 (tramp-default t)) nil "/home/albinus/.emacs" nil) "dd bs=1 skip=100 if=/home/albinus/.emacs of=/tmp/tramp.aKjmrp")
| 2 <- tramp-send-command: 98
| 2 -> (tramp-file-name-handler file-local-copy #("/ssh:gandalf:/tmp/tramp.aKjmrp" 5 12 (tramp-default t)))
| | 3 -> (tramp-file-name-handler file-truename #("/ssh:gandalf:/tmp/tramp.aKjmrp" 5 12 (tramp-default t)))
| | | 4 -> (tramp-file-name-handler file-remote-p #("/ssh:gandalf:/tmp/tramp.aKjmrp" 5 12 (tramp-default t)) localname nil)
| | | | 5 -> (tramp-file-name-handler expand-file-name #("/ssh:gandalf:/tmp/tramp.aKjmrp" 5 12 (tramp-default t)) nil)
| | | | 5 <- tramp-file-name-handler: #("/ssh:gandalf:/tmp/tramp.aKjmrp" 5 12 (tramp-default t))
| | | 4 <- tramp-file-name-handler: "/tmp/tramp.aKjmrp"
| | | 4 -> (tramp-file-name-handler expand-file-name #("/ssh:gandalf:/tmp/tramp.aKjmrp" 5 12 (tramp-default t)) nil)
| | | 4 <- tramp-file-name-handler: #("/ssh:gandalf:/tmp/tramp.aKjmrp" 5 12 (tramp-default t))
| | | 4 -> (tramp-file-name-handler file-remote-p #("/ssh:gandalf:/tmp/tramp.aKjmrp" 5 12 (tramp-default t)) localname nil)
| | | | 5 -> (tramp-file-name-handler expand-file-name #("/ssh:gandalf:/tmp/tramp.aKjmrp" 5 12 (tramp-default t)) nil)
| | | | 5 <- tramp-file-name-handler: #("/ssh:gandalf:/tmp/tramp.aKjmrp" 5 12 (tramp-default t))
| | | 4 <- tramp-file-name-handler: "/tmp/tramp.aKjmrp"
| | | 4 -> (tramp-file-name-handler file-remote-p #("/ssh:gandalf:/tmp/tramp.aKjmrp" 5 12 (tramp-default t)) nil nil)
| | | | 5 -> (tramp-file-name-handler expand-file-name #("/ssh:gandalf:/tmp/tramp.aKjmrp" 5 12 (tramp-default t)) nil)
| | | | 5 <- tramp-file-name-handler: #("/ssh:gandalf:/tmp/tramp.aKjmrp" 5 12 (tramp-default t))
| | | 4 <- tramp-file-name-handler: #("/ssh:gandalf:" 5 12 (tramp-default t))
| | | 4 -> (tramp-send-command (tramp-file-name "ssh" nil nil #("gandalf" 0 7 (tramp-default t)) nil "/tmp/tramp.aKjmrp" nil) "\\readlink --canonicalize-missing /tmp/tramp.aKjmrp 2>/dev/null; echo tramp_exit_status $?")
| | | 4 <- tramp-send-command: 39
| | | 4 -> (tramp-file-name-handler expand-file-name #("/ssh:gandalf:/tmp/tramp.aKjmrp" 5 12 (tramp-default t)) nil)
| | | 4 <- tramp-file-name-handler: #("/ssh:gandalf:/tmp/tramp.aKjmrp" 5 12 (tramp-default t))
| | | 4 -> (tramp-file-name-handler file-symlink-p #("/ssh:gandalf:/tmp/tramp.aKjmrp" 5 12 (tramp-default t)))
| | | | 5 -> (tramp-file-name-handler expand-file-name #("/ssh:gandalf:/tmp/tramp.aKjmrp" 5 12 (tramp-default t)) nil)
| | | | 5 <- tramp-file-name-handler: #("/ssh:gandalf:/tmp/tramp.aKjmrp" 5 12 (tramp-default t))
| | | | 5 -> (tramp-file-name-handler file-attributes #("/ssh:gandalf:/tmp/tramp.aKjmrp" 5 12 (tramp-default t)))
| | | | | 6 -> (tramp-file-name-handler expand-file-name #("/ssh:gandalf:/tmp/tramp.aKjmrp" 5 12 (tramp-default t)) nil)
| | | | | 6 <- tramp-file-name-handler: #("/ssh:gandalf:/tmp/tramp.aKjmrp" 5 12 (tramp-default t))
| | | | | 6 -> (tramp-send-command (tramp-file-name "ssh" nil nil #("gandalf" 0 7 (tramp-default t)) nil "/tmp/tramp.aKjmrp" nil) "tramp_stat_file_attributes /tmp/tramp.aKjmrp 2>/dev/null; echo tramp_exit_status $?")
| | | | | 6 <- tramp-send-command: 151
| | | | 5 <- tramp-file-name-handler: (nil 1 1000 1000 (25340 45027 0 0) (25340 45027 0 0) (25340 45027 0 0) 40997 "-rw-r--r--" nil 862941 (-1 . 1))
| | | 4 <- tramp-file-name-handler: nil
| | 3 <- tramp-file-name-handler: #("/ssh:gandalf:/tmp/tramp.aKjmrp" 5 12 (tramp-default t))
| | 3 -> (tramp-file-name-handler file-name-nondirectory #("/ssh:gandalf:/tmp/tramp.aKjmrp" 5 12 (tramp-default t)))
| | 3 <- tramp-file-name-handler: "tramp.aKjmrp"
| | 3 -> (tramp-file-name-handler expand-file-name #("/ssh:gandalf:/tmp/tramp.aKjmrp" 5 12 (tramp-default t)) nil)
| | 3 <- tramp-file-name-handler: #("/ssh:gandalf:/tmp/tramp.aKjmrp" 5 12 (tramp-default t))
| | 3 -> (tramp-file-name-handler file-attributes #("/ssh:gandalf:/tmp/tramp.aKjmrp" 5 12 (tramp-default t)))
| | | 4 -> (tramp-file-name-handler expand-file-name #("/ssh:gandalf:/tmp/tramp.aKjmrp" 5 12 (tramp-default t)) nil)
| | | 4 <- tramp-file-name-handler: #("/ssh:gandalf:/tmp/tramp.aKjmrp" 5 12 (tramp-default t))
| | | 4 -> (tramp-send-command (tramp-file-name "ssh" nil nil #("gandalf" 0 7 (tramp-default t)) nil "/tmp/tramp.aKjmrp" nil) "tramp_stat_file_attributes /tmp/tramp.aKjmrp 2>/dev/null; echo tramp_exit_status $?")
| | | 4 <- tramp-send-command: 151
| | 3 <- tramp-file-name-handler: (nil 1 1000 1000 (25340 45027 0 0) (25340 45027 0 0) (25340 45027 0 0) 40997 "-rw-r--r--" nil 862941 (-1 . 1))
| | 3 -> (tramp-file-name-handler expand-file-name #("/ssh:gandalf:/tmp/" 5 12 (tramp-default t)) nil)
| | 3 <- tramp-file-name-handler: #("/ssh:gandalf:/tmp/" 5 12 (tramp-default t))
| | 3 -> (tramp-file-name-handler file-writable-p #("/ssh:gandalf:/tmp/" 5 12 (tramp-default t)))
| | | 4 -> (tramp-file-name-handler expand-file-name #("/ssh:gandalf:/tmp/" 5 12 (tramp-default t)) nil)
| | | 4 <- tramp-file-name-handler: #("/ssh:gandalf:/tmp/" 5 12 (tramp-default t))
| | | 4 -> (tramp-file-name-handler file-exists-p #("/ssh:gandalf:/tmp/" 5 12 (tramp-default t)))
| | | | 5 -> (tramp-send-command (tramp-file-name "ssh" nil nil #("gandalf" 0 7 (tramp-default t)) nil "/tmp/" nil) "test -e /tmp/ 2>/dev/null; echo tramp_exit_status $?")
| | | | 5 <- tramp-send-command: 21
| | | 4 <- tramp-file-name-handler: t
| | | 4 -> (tramp-send-command (tramp-file-name "ssh" nil nil #("gandalf" 0 7 (tramp-default t)) nil "/tmp/" nil) "test -w /tmp/ 2>/dev/null; echo tramp_exit_status $?")
| | | 4 <- tramp-send-command: 21
| | 3 <- tramp-file-name-handler: t
| | 3 -> (tramp-send-command (tramp-file-name "ssh" nil nil #("gandalf" 0 7 (tramp-default t)) nil "/tmp/tramp.aKjmrp" nil) "(env GZIP= gzip </tmp/tramp.aKjmrp | base64) 2>/dev/null; echo tramp_exit_status $?")
| | 3 <- tramp-send-command: 15235
| | 3 -> (tramp-file-name-handler expand-file-name #("/ssh:gandalf:/tmp/tramp.aKjmrp" 5 12 (tramp-default t)) nil)
| | 3 <- tramp-file-name-handler: #("/ssh:gandalf:/tmp/tramp.aKjmrp" 5 12 (tramp-default t))
| | 3 -> (tramp-file-name-handler file-modes #("/ssh:gandalf:/tmp/tramp.aKjmrp" 5 12 (tramp-default t)) nil)
| | | 4 -> (tramp-file-name-handler expand-file-name #("/ssh:gandalf:/tmp/tramp.aKjmrp" 5 12 (tramp-default t)) nil)
| | | 4 <- tramp-file-name-handler: #("/ssh:gandalf:/tmp/tramp.aKjmrp" 5 12 (tramp-default t))
| | | 4 -> (tramp-file-name-handler file-attributes #("/ssh:gandalf:/tmp/tramp.aKjmrp" 5 12 (tramp-default t)))
| | | | 5 -> (tramp-file-name-handler expand-file-name #("/ssh:gandalf:/tmp/tramp.aKjmrp" 5 12 (tramp-default t)) nil)
| | | | 5 <- tramp-file-name-handler: #("/ssh:gandalf:/tmp/tramp.aKjmrp" 5 12 (tramp-default t))
| | | | 5 -> (tramp-send-command (tramp-file-name "ssh" nil nil #("gandalf" 0 7 (tramp-default t)) nil "/tmp/tramp.aKjmrp" nil) "tramp_stat_file_attributes /tmp/tramp.aKjmrp 2>/dev/null; echo tramp_exit_status $?")
| | | | 5 <- tramp-send-command: 151
| | | 4 <- tramp-file-name-handler: (nil 1 1000 1000 (25340 45027 0 0) (25340 45027 0 0) (25340 45027 0 0) 40997 "-rw-r--r--" nil 862941 (-1 . 1))
| | 3 <- tramp-file-name-handler: 420
| 2 <- tramp-file-name-handler: "/tmp/tramp.bQeiWI.aKjmrp"
| 2 -> (tramp-file-name-handler expand-file-name #("/ssh:gandalf:/tmp/tramp.aKjmrp" 5 12 (tramp-default t)) nil)
| 2 <- tramp-file-name-handler: #("/ssh:gandalf:/tmp/tramp.aKjmrp" 5 12 (tramp-default t))
| 2 -> (tramp-file-name-handler file-directory-p #("/ssh:gandalf:/tmp/tramp.aKjmrp" 5 12 (tramp-default t)))
| | 3 -> (tramp-send-command (tramp-file-name "ssh" nil nil #("gandalf" 0 7 (tramp-default t)) nil "/tmp/tramp.aKjmrp" nil) "test -d /tmp/tramp.aKjmrp 2>/dev/null; echo tramp_exit_status $?")
| | 3 <- tramp-send-command: 21
| 2 <- tramp-file-name-handler: nil
| 2 -> (tramp-file-name-handler expand-file-name #("/ssh:gandalf:/tmp/tramp.aKjmrp" 5 12 (tramp-default t)) nil)
| 2 <- tramp-file-name-handler: #("/ssh:gandalf:/tmp/tramp.aKjmrp" 5 12 (tramp-default t))
| 2 -> (tramp-file-name-handler delete-file #("/ssh:gandalf:/tmp/tramp.aKjmrp" 5 12 (tramp-default t)) nil)
| | 3 -> (tramp-file-name-handler expand-file-name #("/ssh:gandalf:/tmp/tramp.aKjmrp" 5 12 (tramp-default t)) nil)
| | 3 <- tramp-file-name-handler: #("/ssh:gandalf:/tmp/tramp.aKjmrp" 5 12 (tramp-default t))
| | 3 -> (tramp-send-command (tramp-file-name "ssh" nil nil #("gandalf" 0 7 (tramp-default t)) nil "/tmp/tramp.aKjmrp" nil) "rm -f /tmp/tramp.aKjmrp 2>/dev/null; echo tramp_exit_status $?")
| | 3 <- tramp-send-command: 21
| 2 <- tramp-file-name-handler: nil
1 <- tramp-file-name-handler: (#("/ssh:gandalf:/home/albinus/.emacs" 5 12 (tramp-default t)) 40997)

  parent reply	other threads:[~2022-08-17  9:18 UTC|newest]

Thread overview: 5+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2022-08-15 19:22 Making elp.el behave like a real profiler Winston Carlile via Emacs development discussions.
2022-08-16 15:27 ` Stefan Monnier
2022-08-16 15:48   ` Stefan Kangas
2022-08-17  9:18 ` Michael Albinus [this message]
2022-08-17 18:33   ` chad

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.gnu.org/software/emacs/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=87v8qr2pof.fsf@gmx.de \
    --to=michael.albinus@gmx.de \
    --cc=emacs-devel@gnu.org \
    --cc=winstonc@google.com \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).