bug#20843: 24.5; Profiler error: "Invalid sampling interval"

[Sebastien Vauban]

When trying to start the profiler under Cygwin Emacs 24.5, I get this:

--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (error "Invalid sampling interval")
  profiler-cpu-start(1000000)
  profiler-start(cpu)
  call-interactively(profiler-start record nil)
  #[1025 "\306\211?\205\f       \211\3069\203!\307N\203!
\203!\310\303!\202\235\311!\262\211\211\242\312=\262\203<\313\"\211\262\204\"\314!\203l\203e\315E\fB
\247\203e
\316V\203e
\f\233\211:\203d\211\306\241\210\210\315\"\202\233\317#9\203\233\320N\203\233\321N\204\233\322\321\323#\210\324\325\326
 \211\320N\327#\"\210\262\207" [debug-on-next-call prefix-arg 
current-prefix-arg disabled-command-function command-history history-length nil 
disabled run-hooks indirect-function autoload autoload-do-load arrayp 
execute-kbd-macro 0 call-interactively byte-obsolete-info 
command-execute-obsolete-warned put t message "%s" macroexp--obsolete-warning 
"command"] 13 1990764](profiler-start record nil nil)
  funcall(#[1025 "\306\211?\205\f       \211\3069\203!\307N\203!
\203!\310\303!\202\235\311!\262\211\211\242\312=\262\203<\313\"\211\262\204\"\314!\203l\203e\315E\fB
\247\203e
\316V\203e
\f\233\211:\203d\211\306\241\210\210\315\"\202\233\317#9\203\233\320N\203\233\321N\204\233\322\321\323#\210\324\325\326
 \211\320N\327#\"\210\262\207" [debug-on-next-call prefix-arg 
current-prefix-arg disabled-command-function command-history history-length nil 
disabled run-hooks indirect-function autoload autoload-do-load arrayp 
execute-kbd-macro 0 call-interactively byte-obsolete-info 
command-execute-obsolete-warned put t message "%s" macroexp--obsolete-warning 
"command"] 13 1990764] profiler-start record nil nil)
  (with-no-warnings (funcall ad--addoit-function cmd record-flag keys special))
  (setq ad-return-value (with-no-warnings (funcall ad--addoit-function cmd 
record-flag keys special)))
  (let (ad-return-value) (setq ad-return-value (with-no-warnings (funcall 
ad--addoit-function cmd record-flag keys special))) (when 
(fancy-narrow-active-p) (fancy-narrow--motion-function)) ad-return-value)
  ad-Advice-command-execute(#[1025 "\306\211?\205\f     
\211\3069\203!\307N\203!
\203!\310\303!\202\235\311!\262\211\211\242\312=\262\203<\313\"\211\262\204\"\314!\203l\203e\315E\fB
\247\203e
\316V\203e
\f\233\211:\203d\211\306\241\210\210\315\"\202\233\317#9\203\233\320N\203\233\321N\204\233\322\321\323#\210\324\325\326
 \211\320N\327#\"\210\262\207" [debug-on-next-call prefix-arg 
current-prefix-arg disabled-command-function command-history history-length nil 
disabled run-hooks indirect-function autoload autoload-do-load arrayp 
execute-kbd-macro 0 call-interactively byte-obsolete-info 
command-execute-obsolete-warned put t message "%s" macroexp--obsolete-warning 
"command"] 13 1990764] profiler-start record)
  apply(ad-Advice-command-execute #[1025 "\306\211?\205\f       
\211\3069\203!\307N\203!
\203!\310\303!\202\235\311!\262\211\211\242\312=\262\203<\313\"\211\262\204\"\314!\203l\203e\315E\fB
\247\203e
\316V\203e
\f\233\211:\203d\211\306\241\210\210\315\"\202\233\317#9\203\233\320N\203\233\321N\204\233\322\321\323#\210\324\325\326
 \211\320N\327#\"\210\262\207" [debug-on-next-call prefix-arg 
current-prefix-arg disabled-command-function command-history history-length nil 
disabled run-hooks indirect-function autoload autoload-do-load arrayp 
execute-kbd-macro 0 call-interactively byte-obsolete-info 
command-execute-obsolete-warned put t message "%s" macroexp--obsolete-warning 
"command"] 13 1990764] (profiler-start record))
  command-execute(profiler-start record)
  (progn (command-execute sym-com (quote record)))
  (if helm-M-x-always-save-history (progn (command-execute sym-com (quote 
record))))
  (let ((prefix-arg (or helm-current-prefix-arg arg))) (if 
helm-M-x-always-save-history nil (command-execute sym-com (quote record))) 
(setq extended-command-history (cons command-name (delete command-name 
extended-command-history))) (if helm-M-x-always-save-history (progn 
(command-execute sym-com (quote record)))))
  (let ((sym-com (and (stringp command-name) (intern-soft command-name)))) 
(setq this-command sym-com real-this-command sym-com) (let ((prefix-arg (or 
helm-current-prefix-arg arg))) (if helm-M-x-always-save-history nil 
(command-execute sym-com (quote record))) (setq extended-command-history (cons 
command-name (delete command-name extended-command-history))) (if 
helm-M-x-always-save-history (progn (command-execute sym-com (quote record))))))
  helm-M-x(nil "profiler-start")
  call-interactively(helm-M-x nil nil)
  #[1025 "\306\211?\205\f       \211\3069\203!\307N\203!
\203!\310\303!\202\235\311!\262\211\211\242\312=\262\203<\313\"\211\262\204\"\314!\203l\203e\315E\fB
\247\203e
\316V\203e
\f\233\211:\203d\211\306\241\210\210\315\"\202\233\317#9\203\233\320N\203\233\321N\204\233\322\321\323#\210\324\325\326
 \211\320N\327#\"\210\262\207" [debug-on-next-call prefix-arg 
current-prefix-arg disabled-command-function command-history history-length nil 
disabled run-hooks indirect-function autoload autoload-do-load arrayp 
execute-kbd-macro 0 call-interactively byte-obsolete-info 
command-execute-obsolete-warned put t message "%s" macroexp--obsolete-warning 
"command"] 13 1990764](helm-M-x nil nil nil)
  funcall(#[1025 "\306\211?\205\f       \211\3069\203!\307N\203!
\203!\310\303!\202\235\311!\262\211\211\242\312=\262\203<\313\"\211\262\204\"\314!\203l\203e\315E\fB
\247\203e
\316V\203e
\f\233\211:\203d\211\306\241\210\210\315\"\202\233\317#9\203\233\320N\203\233\321N\204\233\322\321\323#\210\324\325\326
 \211\320N\327#\"\210\262\207" [debug-on-next-call prefix-arg 
current-prefix-arg disabled-command-function command-history history-length nil 
disabled run-hooks indirect-function autoload autoload-do-load arrayp 
execute-kbd-macro 0 call-interactively byte-obsolete-info 
command-execute-obsolete-warned put t message "%s" macroexp--obsolete-warning 
"command"] 13 1990764] helm-M-x nil nil nil)
  (with-no-warnings (funcall ad--addoit-function cmd record-flag keys special))
  (setq ad-return-value (with-no-warnings (funcall ad--addoit-function cmd 
record-flag keys special)))
  (let (ad-return-value) (setq ad-return-value (with-no-warnings (funcall 
ad--addoit-function cmd record-flag keys special))) (when 
(fancy-narrow-active-p) (fancy-narrow--motion-function)) ad-return-value)
  ad-Advice-command-execute(#[1025 "\306\211?\205\f     
\211\3069\203!\307N\203!
\203!\310\303!\202\235\311!\262\211\211\242\312=\262\203<\313\"\211\262\204\"\314!\203l\203e\315E\fB
\247\203e
\316V\203e
\f\233\211:\203d\211\306\241\210\210\315\"\202\233\317#9\203\233\320N\203\233\321N\204\233\322\321\323#\210\324\325\326
 \211\320N\327#\"\210\262\207" [debug-on-next-call prefix-arg 
current-prefix-arg disabled-command-function command-history history-length nil 
disabled run-hooks indirect-function autoload autoload-do-load arrayp 
execute-kbd-macro 0 call-interactively byte-obsolete-info 
command-execute-obsolete-warned put t message "%s" macroexp--obsolete-warning 
"command"] 13 1990764] helm-M-x)
  apply(ad-Advice-command-execute #[1025 "\306\211?\205\f       
\211\3069\203!\307N\203!
\203!\310\303!\202\235\311!\262\211\211\242\312=\262\203<\313\"\211\262\204\"\314!\203l\203e\315E\fB
\247\203e
\316V\203e
\f\233\211:\203d\211\306\241\210\210\315\"\202\233\317#9\203\233\320N\203\233\321N\204\233\322\321\323#\210\324\325\326
 \211\320N\327#\"\210\262\207" [debug-on-next-call prefix-arg 
current-prefix-arg disabled-command-function command-history history-length nil 
disabled run-hooks indirect-function autoload autoload-do-load arrayp 
execute-kbd-macro 0 call-interactively byte-obsolete-info 
command-execute-obsolete-warned put t message "%s" macroexp--obsolete-warning 
"command"] 13 1990764] helm-M-x)
  command-execute(helm-M-x)
--8<---------------cut here---------------end--------------->8---

In GNU Emacs 24.5.1 (x86_64-unknown-cygwin)
 of 2015-04-10 on desktop-new