Re: gnat compiler hanging

[Simon Wright <simon@pushface.org>]

Stephen Leake <stephen_leake@stephe-leake.org> writes:

> 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 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;

Could you have used the generalized iterator?

   for I in Table.McKenzie.Patterns.Iterate loop
      Indent_Line 
        ("Table.Mckenzie.patterns.Append ("
         & Table.Mckenzie.patterns.Element (I).Image
         & ");");
   end loop;

(not syntax-checked, of course)