Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

adacl 6.1.1 #1328

Merged
merged 1 commit into from
Dec 16, 2024
Merged

Conversation

krischik
Copy link
Contributor

@krischik krischik commented Dec 13, 2024

Created via alr publish with alr 2.0.2+9b80158

Found a workaround for that pesky GNAT bug I opened years ago. Instead of using constant I now use an inline function which always returns the same value and set the post condition to check that value. Annoying but no one worked on that bug and now I can finally release EAStrings.

The bug is probably to obscure. Anyway the workaround is changing:

   type Known_OS is
      (Windows,
       MacOS,
       Linux);

   This_OS : constant Known_OS;

private

   This_OS : constant Known_OS := MacOS;

to

   type Known_OS is
      (Windows,
       MacOS,
       Linux);

   function This_OS return Known_OS with
      Pure_Function, Inline, Post => This_OS'Result = MacOS;

private

   function This_OS return Known_OS is (MacOS);

Don't know why the complicated version works. Obviously there are three versions of that specification.

@krischik krischik marked this pull request as ready for review December 13, 2024 20:59
@mosteo mosteo merged commit 4480059 into alire-project:stable-1.3.0 Dec 16, 2024
18 checks passed
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
None yet
Projects
None yet
Development

Successfully merging this pull request may close these issues.

None yet

2 participants