#1 Program_Error with Window_Type in a package specification.

[Blady]

Hello,

a declaration of a window in a package specification provoque a Program_Error at elaboration time:

with Gnoga.Gui.Window;
package Essai2_Ext_Decl is
ExtW : Gnoga.Gui.Window.Window_Type;
end Essai2_Ext_Decl;

with Gnoga.Gui.Window;
with Essai2_Ext_Decl;
procedure Essai2 is
LocalW : Gnoga.Gui.Window.Window_Type;
begin
null;
end Essai2;

$ ./essai2
Execution terminated by unhandled exception
Exception name: PROGRAM_ERROR
Message: s-taprob.adb:136 explicit raise
Load address: 0x100000000
Call stack traceback locations:
system__tasking__protected_objects__lock (in essai2) + 171
gnoga__server__connection__id_machine_type__next_idP (in essai2) (gnoga-server-connection.adb:2168)
gnoga__server__connection__new_unique_id (in essai2) (gnoga-server-connection.adb:2183)
gnoga__gui__base__initialize (in essai2) (gnoga-gui-base.adb:215)
gnoga__gui__element__element_typeDI (in essai2) + 22
gnoga__gui__document__document_typeIP (in essai2) + 105
gnoga__gui__window__window_typeIP (in essai2) + 87
essai2_ext_declelabs (in essai2) (essai2ext_decl.ads:4)
adainit (in essai2) (bessai2.adb:647)
main (in essai2) (b__essai2.adb:730)

HTH, Pascal.

[David Botton]

What version of GNAT are you using?

[David Botton]

I do not have this issue using FSF gnat 4.9.1 on ubuntu.

David Botton

[Blady]

GNAT GPL 2014 on MacOS 10.9.5.

[David Botton]

I can confirm that on FSF GNAT 4.9.1 on Mac OS X I am seeing this program error. I'll let you know what I find.

David Botton

[Jere]

I am also seeing this with GNAT GPL on Windows7.

[David Botton]

It is an elaboration issue, I am looking to see what will resolve this.

If you add to essai2_ext_decl.ads the following the program error is resolved (and testing shows all working properly):

with Gnoga.Server.Connection;
pragma Elaborate_All (Gnoga.Server.Connection);

[David Botton]

I've added those lines to Gnoga.Gui.Window and it has resolved the issue completely. Pushed.