From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 7302 invoked by alias); 28 Dec 2002 23:26:01 -0000 Mailing-List: contact gcc-prs-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Archive: List-Post: List-Help: Sender: gcc-prs-owner@gcc.gnu.org Received: (qmail 7283 invoked by uid 71); 28 Dec 2002 23:26:00 -0000 Resent-Date: 28 Dec 2002 23:26:00 -0000 Resent-Message-ID: <20021228232600.7282.qmail@sources.redhat.com> Resent-From: gcc-gnats@gcc.gnu.org (GNATS Filer) Resent-Cc: gcc-prs@gcc.gnu.org, gcc-bugs@gcc.gnu.org Resent-Reply-To: gcc-gnats@gcc.gnu.org, adi@drcomp.erfurt.thur.de Received: (qmail 6463 invoked by uid 61); 28 Dec 2002 23:22:09 -0000 Message-Id: <20021228232209.6462.qmail@sources.redhat.com> Date: Sat, 28 Dec 2002 15:26:00 -0000 From: adi@drcomp.erfurt.thur.de Reply-To: adi@drcomp.erfurt.thur.de To: gcc-gnats@gcc.gnu.org X-Send-Pr-Version: gnatsweb-2.9.3 (1.1.1.1.2.31) Subject: ada/9087: Component_Size for packed array returns wrong values X-SW-Source: 2002-12/txt/msg01357.txt.bz2 List-Id: >Number: 9087 >Category: ada >Synopsis: Component_Size for packed array returns wrong values >Confidential: no >Severity: serious >Priority: medium >Responsible: unassigned >State: open >Class: sw-bug >Submitter-Id: net >Arrival-Date: Sat Dec 28 15:26:00 PST 2002 >Closed-Date: >Last-Modified: >Originator: adi@drcomp.erfurt.thur.de >Release: gcc version 3.4 20021220 (experimental) >Organization: >Environment: i586-pc-linux-gnu >Description: By applying a pragma Pack to an unconstrained array of (e.g. boolean) the output of Component_Size for the array's subtype is wrong. According to this, the calculated 'Size for the whole array is wrong as well. >How-To-Repeat: Compile the attached file. As you can see the array is really packed (the elements 1 and 5 are within the same byte), but the read-access to Component_Size returned the wrong value, 8. It should return 1 here. >Fix: >Release-Note: >Audit-Trail: >Unformatted: ----gnatsweb-attachment---- Content-Type: application/octet-stream; name="karl.adb" Content-Transfer-Encoding: base64 Content-Disposition: attachment; filename="karl.adb" d2l0aCBBZGEuVGV4dF9JTzsgdXNlIEFkYS5UZXh0X0lPOwp3aXRoIFN5c3RlbTsgdXNlIFN5c3Rl bTsKCnByb2NlZHVyZSBrYXJsIGlzCiAgIHR5cGUgdW5jb25zdHJhaW5lZF9hcnJheSBpcyBhcnJh eSAoUG9zaXRpdmUgcmFuZ2UgPD4pIG9mIEJvb2xlYW47CiAgIGZvciB1bmNvbnN0cmFpbmVkX2Fy cmF5J0NvbXBvbmVudF9TaXplIHVzZSAxOwoKICAgcHJhZ21hIFBhY2sgKHVuY29uc3RyYWluZWRf YXJyYXkpOwogICB0eXBlIHVjc19hcnJheV9wdHIgaXMgYWNjZXNzIHVuY29uc3RyYWluZWRfYXJy YXk7CiAgIEEgOiB1Y3NfYXJyYXlfcHRyIDo9IG5ldyB1bmNvbnN0cmFpbmVkX2FycmF5ICgxIC4u IDEwMCk7CgpiZWdpbgogICBQdXRfTGluZSAoSW50ZWdlcidJbWFnZSAodW5jb25zdHJhaW5lZF9h cnJheSdDb21wb25lbnRfU2l6ZSkpOwoKICAgaWYgKEEgKDEpJ0FkZHJlc3MgPSBBICg1KSdBZGRy ZXNzKSB0aGVuCiAgICAgIFB1dF9MaW5lICgiQSAoMSkgYW5kIEEgKDUpIGFyZSB3aXRoaW4gdGhl IHNhbWUgYnl0ZSIpOwogICBlbmQgaWY7CmVuZCBrYXJsOwo=