From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on
	ip-172-31-74-118.ec2.internal
X-Spam-Level: 
X-Spam-Status: No, score=0.0 required=3.0 tests=BAYES_40,FREEMAIL_FROM
	autolearn=ham autolearn_force=no version=3.4.6
X-Received: by 2002:ac8:46d0:: with SMTP id h16mr705343qto.362.1625753922525;
        Thu, 08 Jul 2021 07:18:42 -0700 (PDT)
X-Received: by 2002:a25:d4f:: with SMTP id 76mr41669502ybn.173.1625753922278;
 Thu, 08 Jul 2021 07:18:42 -0700 (PDT)
Path: eternal-september.org!reader02.eternal-september.org!news.mixmin.net!proxad.net!feeder1-2.proxad.net!209.85.160.216.MISMATCH!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Thu, 8 Jul 2021 07:18:42 -0700 (PDT)
In-Reply-To: <86v95l8ush.fsf@stephe-leake.org>
Injection-Info: google-groups.googlegroups.com; posting-host=2a03:7380:380d:3b:bc67:30e5:3eeb:f750;
 posting-account=K1cP1QoAAAD_GR6kW2Td0NqGqGBLRE8h
NNTP-Posting-Host: 2a03:7380:380d:3b:bc67:30e5:3eeb:f750
References: <5db8eeb4-f3fc-49a7-b588-6a4b25bdbafcn@googlegroups.com>
 <2e09faca-1f9a-43d3-99cb-6ae0e27a741cn@googlegroups.com> <4333d2e6-a4f6-46a8-a5df-78bb4e0d915en@googlegroups.com>
 <86v95l8ush.fsf@stephe-leake.org>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <189f0459-0c44-466d-94ee-8031c500c402n@googlegroups.com>
Subject: Re: deferred constants
From: Maxim Reznik <reznikmm@gmail.com>
Injection-Date: Thu, 08 Jul 2021 14:18:42 +0000
Content-Type: text/plain; charset="UTF-8"
Xref: reader02.eternal-september.org comp.lang.ada:62356
List-Id: <comp.lang.ada>

Just write a constant declaration. It will be initialized at elaboration time.

package body Pks is
  pat : constant Gnat.RegExp.RegExp :=
    Gnat.RegExp.compile( "..." );