Re: Build issues from git source

[Simon Wright]

Reverting to ada-mode 7.2.0, GCC 11.2.0, but emacs 28.1:

Debugger entered--Lisp error: (wrong-type-argument (or eieio-object class) 
#s(xref-item :summary "Command_Line_Configuration" :location 
#s(xref-file-location :file 
"/Users/simon/Developer/Analytical_Engine/src/aes.a..." :line 40 :column 43)) 
obj)
  signal(wrong-type-argument ((or eieio-object class) #s(xref-item :summary 
"Command_Line_Configuration" :location #s(xref-file-location :file 
"/Users/simon/Developer/Analytical_Engine/src/aes.a..." :line 40 :column 43)) 
obj))
  slot-value(#s(xref-item :summary "Command_Line_Configuration" :location 
#s(xref-file-location :file 
"/Users/simon/Developer/Analytical_Engine/src/aes.a..." :line 40 :column 43)) 
location)
  wisi-goto-spec/body(#("Command_Line_Configuration" 0 1 (xref-identifier 
(:file "/Users/simon/Developer/Analytical_Engine/src/aes.a..." :line 40 :column 
43))))

> On 12 May 2022, at 15:40, Simon Wright <simon.j.wright@mac.com> wrote:
> 
> 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>