bug#35144: 26.1; ada-mode 6.1.0 Constraint_Error in which_func_update for file containing only a procedure

[Ludovic Brenta <ludovic@ludovic-brenta.org>]

X-Debbugs-CC: ada-mode-users@nongnu.org
Package: emacs, ada-mode
Version: 26.1
Severity: minor

This bug exists only when wisi-partial-parse-threshold is zero,
which happens when ~/.emacs contains:

(add-hook 'ada-mode-hook
           (lambda ()
             "For ada-mode 6.1, force partial parsing in all buffers."
             (if (version< "6.0" (ada-mode-version))
               (setq wisi-partial-parse-threshold 0))))

Visit a file foo.adb consisting of:

procedure Foo is
begin
end Foo;

This immediately triggers this in the *Messages* buffer:

Error running timer ‘which-func-update’: (error "Error in 
which-func-update: (error \"unhandled exception: CONSTRAINT_ERROR: 
emacs_wisi_common_parse.adb:320 index check failed\")")

-- 
Ludovic Brenta.