comp.lang.ada
 help / color / mirror / Atom feed
* Problem using GLOBE_3D/glut under Debian 10 (buster)
@ 2019-07-13  6:03 reinert
  2019-08-21  5:53 ` reinert
  2019-08-21  5:54 ` reinert
  0 siblings, 2 replies; 6+ messages in thread
From: reinert @ 2019-07-13  6:03 UTC (permalink / raw)


Hello,

I use GLOBE_3D as a binder for OpenGL and (free-)glut for a project based on single-cell tracking: https://korsnesbiocomputing.no/ . It has functioned very well under for example linux/Debian so far 

Now, when I try out using the new Debian 10 (buster) I get the following error message when trying to open a menu (using glut):

Unhandled Exception raised
raised STORAGE_ERROR : s-intman.adb:136 explicit raise

Has anybody the possibility to reproduce the error?
Any idea for what is going on?

I guess the problem is not related to gnat-8 (which comes with Debian 10).
When I compile/link the actual program under Debian 9 and copy over 
the resulting binary version of it to a machine running Debian 10, 
then there is no problem.

reinert


^ permalink raw reply	[flat|nested] 6+ messages in thread

* Re: Problem using GLOBE_3D/glut under Debian 10 (buster)
  2019-07-13  6:03 Problem using GLOBE_3D/glut under Debian 10 (buster) reinert
@ 2019-08-21  5:53 ` reinert
  2019-08-21  5:54 ` reinert
  1 sibling, 0 replies; 6+ messages in thread
From: reinert @ 2019-08-21  5:53 UTC (permalink / raw)


It seems like I have circled down the the problem. I did avoid this statement: 

glut.MenuStatusFunc (menu1_callback1'Unrestricted_Access);

and the problem seems to disappear. 

Under gnat-6 there was apparently no problem, but under gnat-7/-8 I just got
"raised STORAGE_ERROR : s-intman.adb:136 explicit raise".

reinert

^ permalink raw reply	[flat|nested] 6+ messages in thread

* Re: Problem using GLOBE_3D/glut under Debian 10 (buster)
  2019-07-13  6:03 Problem using GLOBE_3D/glut under Debian 10 (buster) reinert
  2019-08-21  5:53 ` reinert
@ 2019-08-21  5:54 ` reinert
  2019-08-21  7:00   ` Simon Wright
  2019-08-21  9:52   ` Dmitry A. Kazakov
  1 sibling, 2 replies; 6+ messages in thread
From: reinert @ 2019-08-21  5:54 UTC (permalink / raw)


It seems like I have circled down the problem. I did avoid this statement:

glut.MenuStatusFunc (menu1_callback1'Unrestricted_Access);

and the problem seems to disappear.

Under gnat-6 there was apparently no problem, but under gnat-7/-8 I just got
"raised STORAGE_ERROR : s-intman.adb:136 explicit raise".

reinert 


^ permalink raw reply	[flat|nested] 6+ messages in thread

* Re: Problem using GLOBE_3D/glut under Debian 10 (buster)
  2019-08-21  5:54 ` reinert
@ 2019-08-21  7:00   ` Simon Wright
  2019-08-21 13:22     ` Shark8
  2019-08-21  9:52   ` Dmitry A. Kazakov
  1 sibling, 1 reply; 6+ messages in thread
From: Simon Wright @ 2019-08-21  7:00 UTC (permalink / raw)


reinert <reinkor@gmail.com> writes:

> It seems like I have circled down the problem. I did avoid this statement:
>
> glut.MenuStatusFunc (menu1_callback1'Unrestricted_Access);
>
> and the problem seems to disappear.
>
> Under gnat-6 there was apparently no problem, but under gnat-7/-8 I just got
> "raised STORAGE_ERROR : s-intman.adb:136 explicit raise".

I wonder whether you've found the same problem I did here?
https://forward-in-code.blogspot.com/2018/03/tcltk-vs-trampolines.html

My cure was to declare the callback procedure (in your case,
menu_callback1) at library level. You might avoid the need for
'Unrestricted_Access, too.

^ permalink raw reply	[flat|nested] 6+ messages in thread

* Re: Problem using GLOBE_3D/glut under Debian 10 (buster)
  2019-08-21  5:54 ` reinert
  2019-08-21  7:00   ` Simon Wright
@ 2019-08-21  9:52   ` Dmitry A. Kazakov
  1 sibling, 0 replies; 6+ messages in thread
From: Dmitry A. Kazakov @ 2019-08-21  9:52 UTC (permalink / raw)


On 2019-08-21 07:54, reinert wrote:
> It seems like I have circled down the problem. I did avoid this statement:
> 
> glut.MenuStatusFunc (menu1_callback1'Unrestricted_Access);
> 
> and the problem seems to disappear.
> 
> Under gnat-6 there was apparently no problem, but under gnat-7/-8 I just got
> "raised STORAGE_ERROR : s-intman.adb:136 explicit raise".

Maybe related to the GNAT 7, 8 (and possibly) 9 bug in generating 
dispatching tables. The bug causes infinite recursion in some 
dispatching calls (as well as in calls to Ada.Tags.Expanded_Name etc) 
which results in Storage_Error.

-- 
Regards,
Dmitry A. Kazakov
http://www.dmitry-kazakov.de


^ permalink raw reply	[flat|nested] 6+ messages in thread

* Re: Problem using GLOBE_3D/glut under Debian 10 (buster)
  2019-08-21  7:00   ` Simon Wright
@ 2019-08-21 13:22     ` Shark8
  0 siblings, 0 replies; 6+ messages in thread
From: Shark8 @ 2019-08-21 13:22 UTC (permalink / raw)


On Wednesday, August 21, 2019 at 1:00:51 AM UTC-6, Simon Wright wrote:
> You might avoid the need for 'Unrestricted_Access, too.

To help with avoiding unrestricted access, use the following pragma:
Pragma Restrictions( No_Implementation_Attributes );

^ permalink raw reply	[flat|nested] 6+ messages in thread

end of thread, other threads:[~2019-08-21 13:22 UTC | newest]

Thread overview: 6+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2019-07-13  6:03 Problem using GLOBE_3D/glut under Debian 10 (buster) reinert
2019-08-21  5:53 ` reinert
2019-08-21  5:54 ` reinert
2019-08-21  7:00   ` Simon Wright
2019-08-21 13:22     ` Shark8
2019-08-21  9:52   ` Dmitry A. Kazakov

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox