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.3 required=5.0 tests=BAYES_00,INVALID_MSGID autolearn=no autolearn_force=no version=3.4.4 X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: 103376,bc385bfdaf9461e6,start X-Google-Attributes: gid103376,public From: Rob Pettit Subject: GNAT 3.03 and Address Clauses Date: 1996/04/29 Message-ID: <31850E0F.136C@software.org>#1/1 X-Deja-AN: 152068112 sender: usenet@software.org (Usenet News/Mail Support) content-type: text/plain; charset=us-ascii organization: Software Productivity Consortium mime-version: 1.0 newsgroups: comp.lang.ada x-mailer: Mozilla 2.01 (Win16; I) Date: 1996-04-29T00:00:00+00:00 List-Id: I have been trying to compile the following code as an example of using the Address clause in Ada 95: with System.Storage_Elements; package Address_Test is type Device_Data_Type is record Field_1 : Integer; Field_2 : Integer; end record; Device_Data : Device_Data_Type; Device_Address : constant System.Address := System.Storage_Elements.To_Address(16#FFFF_0000#); for Device_Data'Address use Device_Address; end Address_Test; GNAT 3.03 subsequently gives the following error message: address_test.ads:13:32: invalid address clause for "Device_Data" address_test.ads:13:32: must be constant defined before "Device_Data" (RM 13.1(22)) Can anyone provide advice for compiling this code using GNAT? Thanks in advance! -- Rob Pettit -------------------------------------------------------------------- Robert G. Pettit IV Member, Technical Staff Software Productivity Consortium 2214 Rock Hill Road Phone: 703-742-7318 Herndon, VA 22070 E-Mail: pettit@software.org --------------------------------------------------------------------