an Ada example causes a segfault

[Nicolas Boulenguez]

Hello.

>From the 5.8 ncurses release, I used Ada95/make-tar.sh to make a separate
build of the Ada binding, extracted the Ada tree and compiled with
"./configure && make && samples/tour ". The last command causes a
segmentation fault when choosing the Forms demo.

In main program Tour, the line
Sample.Form_Demo.Demo
calls the Sample.Form_Demo.Demo.

In it, the line
Set_Field_Type (FA (6), Enum_Field);
calls
Terminal_Interface.Curses.Forms.Field_Types.Enumeration.Set_Field_Type

In it, the line
Wrap_Builtin (Fld, Typ, C_Choice_Router);
calls
Terminal_Interface.Curses.Forms.Field_Types.Wrap_Builtin

In it, the line
Res := Set_Fld_Type (Arg1 => Arg);
calls
Set_Fld_Type.

Set_Fld_Type is an import of "set_field type" C function, defined a few
lines higher. The segmentation fault arises during this call.

My system:
libncurses5-dev: debian version 5.7+20100313-5
gcc (Debian 4.4.5-12) 4.4.5
Linux 2.6.32-5-amd64 #1 SMP Wed Jan 12 03:40:32 UTC 2011 x86_64 GNU/Linux