Build issues from git source

[Simon Wright]

First, I got a successful Ada build of commit 097844d with GCC 12.1.0 on macOS 
Monterey, emacs 28.1.

I did have a problem with byte-compilation of org.emacs.wisi, see attached 
patch (copied from similar in org.emacs.ada-mode).

That done, I had this issue on opening an Ada source file:

Debugger entered--Lisp error: (void-variable 
wisi-parser-transaction-log-buffer-size-default)
  ada-parse-require-process()
  ada-mode()
  …

and similar with a .gpr, except the top function was gpr-mode(). I couldn’t see 
what the problem was!

Having fixed that (by setting transaction-log-buffer-size to 300000 directly - 
would defvar rather than defconst be better?), I now see this with Ada source 
(similar with GPR):

Debugger entered--Lisp error: (void-function wisi-parse-require-process)
  wisi-parse-require-process(#s(ada-wisi-parser :repair-image ((AT . "at") 
(RAISE . "raise") (SEPARATE . "separate") (TERMINATE . "terminate") (SELECT . 
"select") (UNTIL . "until") (DELAY . "delay") (ABORT . "abort") (REQUEUE . 
"requeue") (ACCEPT . "accept") (ENTRY . "entry") (GENERIC . "generic") 
(EXCEPTION . "exception") (RENAMES . "renames") (OVERRIDING . "overriding") 
(BODY . "body") (PRIVATE . "private") (PACKAGE . "package") (OUT . "out") 
(RETURN . "return") (GOTO . "goto") (EXIT . "exit") (DO . "do") (REVERSE . 
"reverse") (WHILE . "while") (LOOP . "loop") (PARALLEL . "parallel") (BEGIN . 
"begin") (DECLARE . "declare") (SOME . "some") (ELSE . "else") (IF . "if") 
(THEN . "then") (ELSIF . "elsif") (REM . "rem") (ABS . "abs") (IN . "in") (XOR 
. "xor") (OR . "or") (USE . "use") (FOR . "for") (NOT . "not") (FUNCTION . 
"function") (PROCEDURE . "procedure") (ALL . "all") (ACCESS . "access") 
(INTERFACE . "interface") (SYNCHRONIZED . "synchronized") (PROTECTED . 
"protected") (TASK . "task") ...) :transaction-log-buffer nil 
:transaction-log-buffer-size 300000 :label "Ada" :language-protocol-version "4" 
:exec-file "ada_mode_wisi_lr1_parse" :exec-opts ("--recover-log" 
"/Users/simon/Developer/ada-mode/recover.log") :token-table [WHITESPACE 
NEW_LINE COMMENT GNAT_PREP_IF GNAT_PREP_ELSIF GNAT_PREP_ELSE GNAT_PREP_END_IF 
CONFLICT_MARK_A CONFLICT_MARK_B CONFLICT_MARK_END PLACEHOLDER AT RAISE SEPARATE 
TERMINATE SELECT UNTIL DELAY ABORT REQUEUE ACCEPT ENTRY GENERIC EXCEPTION 
RENAMES OVERRIDING BODY PRIVATE PACKAGE OUT RETURN GOTO EXIT DO REVERSE WHILE 
LOOP PARALLEL BEGIN DECLARE SOME ELSE IF THEN ELSIF REM ABS IN XOR OR ...] 
:face-table [font-lock-constant-face font-lock-function-name-face 
font-lock-type-face nil] :busy nil :process nil :buffer nil :source-buffer nil 
:version-checked nil :total-wait-time 0.0 :response-count 0 :end-pos nil 
:language-action-table nil :query-result nil) :nowait t)
  ada-parse-require-process()
  ada-mode()
  
—S

get-correct-emacs.diff
Description: Binary data