From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00
	autolearn=unavailable autolearn_force=no version=3.4.4
Path: 
 eternal-september.org!reader01.eternal-september.org!feeder.eternal-september.org!aioe.org!.POSTED.OQnxarIvI2l/sVCGTSzDzA.user.gioia.aioe.org!not-for-mail
From: Simon Wright <simon@pushface.org>
Newsgroups: comp.lang.ada
Subject: Re: Problem using GLOBE_3D/glut under Debian 10 (buster)
Date: Wed, 21 Aug 2019 08:00:49 +0100
Organization: Aioe.org NNTP Server
Message-ID: <lyimqratpa.fsf@pushface.org>
References: <31ca7629-0a89-4a48-9685-514c7756bdd0@googlegroups.com>
	<df1f65dc-b924-45bd-b265-81ab4c394454@googlegroups.com>
NNTP-Posting-Host: OQnxarIvI2l/sVCGTSzDzA.user.gioia.aioe.org
Mime-Version: 1.0
Content-Type: text/plain
X-Complaints-To: abuse@aioe.org
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/26.1 (darwin)
X-Notice: Filtered by postfilter v. 0.9.2
Cancel-Lock: sha1:OJcyi2eC1xzQOcsA/bBQP0sduIE=
Xref: reader01.eternal-september.org comp.lang.ada:57082
Date: 2019-08-21T08:00:49+01:00
List-Id: <comp.lang.ada>

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.