Re: gnat compiler hanging

[Stephen Leake <stephen_leake@stephe-leake.org>]

On Thursday, August 24, 2017 at 5:16:10 PM UTC-5, Stephen Leake wrote:
> I've got a file, which is probably bad Ada, that causes the gnat compiler to hang (or at least, take _much_ longer than normal for this file).
> 
> I vaguely recall there is an option -gnatd<something> that causes the compiler to output error messages as soon as they are discovered, rather than keeping them internal and outputing them all at the end.
> 
> But the GNAT user guide just says "see debug.adb" for the definition of '-gnatd', and I don't have the gnat sources installed.
> 
> Does anyone know what option I'm looking for?
> 
> -- Stephe

I found the problem, and a workaround:

--  WORKAROUND: GNAT GPL 2016 compiler hangs on this:
--  for Pattern of Table.McKenzie.Patterns loop
--     Indent_Line ("Table.Mckenzie.patterns.Append (" & Pattern.Image & ");");
--  end loop;
declare
   use WisiToken.Parser.LR.Patterns;
   I : Cursor := Table.McKenzie.Patterns.First;
begin
   loop
      exit when I = No_Element;
      Indent_Line 
        ("Table.Mckenzie.patterns.Append (" & Element (I).Image & ");");
      Next (I);
   end loop;
end;