From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gcc-prs-return-32793-listarch-gcc-prs=gcc.gnu.org@gcc.gnu.org>
Received: (qmail 24736 invoked by alias); 8 Apr 2003 23:46:00 -0000
Mailing-List: contact gcc-prs-help@gcc.gnu.org; run by ezmlm
Precedence: bulk
List-Archive: <http://gcc.gnu.org/ml/gcc-prs/>
List-Post: <mailto:gcc-prs@gcc.gnu.org>
List-Help: <mailto:gcc-prs-help@gcc.gnu.org>
Sender: gcc-prs-owner@gcc.gnu.org
Received: (qmail 24717 invoked by uid 71); 8 Apr 2003 23:46:00 -0000
Resent-Date: 8 Apr 2003 23:46:00 -0000
Resent-Message-ID: <20030408234600.24716.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, bauhaus@futureaps.de
Received: (qmail 24024 invoked by uid 48); 8 Apr 2003 23:40:19 -0000
Message-Id: <20030408234019.24022.qmail@sources.redhat.com>
Date: Tue, 08 Apr 2003 23:46:00 -0000
From: bauhaus@futureaps.de
Reply-To: bauhaus@futureaps.de
To: gcc-gnats@gcc.gnu.org
X-Send-Pr-Version: gnatsweb-2.9.3 (1.1.1.1.2.31)
Subject: ada/10359: GNAT BUG box, 3.15p, Windows
X-SW-Source: 2003-04/txt/msg00363.txt.bz2
List-Id: <gcc-prs.sourceware.org>


>Number:         10359
>Category:       ada
>Synopsis:       GNAT BUG box, 3.15p, Windows
>Confidential:   no
>Severity:       serious
>Priority:       medium
>Responsible:    unassigned
>State:          open
>Class:          sw-bug
>Submitter-Id:   net
>Arrival-Date:   Tue Apr 08 23:46:00 UTC 2003
>Closed-Date:
>Last-Modified:
>Originator:     bauhaus@futureapps.de
>Release:        gcc version 2.8.1
>Organization:
>Environment:
PROCESSOR_ARCHITECTURE=x86
PROCESSOR_IDENTIFIER=x86 Family 6 Model 7 Stepping 3, GenuineIntel
OS=Windows_NT (5.00.2195, SP2)
Reading specs from e:\GNAT\lib\gcc-lib\pentium-mingw32msv\2.8.1\specs
Path=e:\GNAT\bin;...
>Description:
O:\temp\2>gnatmake e
gcc -c e.adb
+===========================GNAT BUG DETECTED==============================+
| 3.15p  (20020523) (i586-pc-mingw32msv) Gigi abort, Code=104              |
| Error detected at e.adb:7:20                                             |
| Please submit bug report by email to report@gnat.com.                    |
| Use a subject line meaningful to you and us to track the bug.            |
| (include your customer number #nnn in the subject line).                 |
| Include the entire contents of this bug box in the report.               |
| Include the exact gcc or gnatmake command that you entered.              |
| Also include sources listed below in gnatchop format                     |
| (concatenated together with no headers between files).                   |
| (use plain ASCII or MIME attachment, or FTP to your customer directory). |
| See README.GNATPRO for full info on procedure for submitting bugs.       |
+==========================================================================+

Please include these source files with error report

e.adb
cmd.ads

compilation abandoned
gnatmake: "e.adb" compilation error
>How-To-Repeat:
gnatmake e
>Fix:

>Release-Note:
>Audit-Trail:
>Unformatted:
----gnatsweb-attachment----
Content-Type: text/plain; name="problem.src"
Content-Disposition: inline; filename="problem.src"

with cmd;

procedure e is

   use cmd;
begin
   execv(cmd_name, args);
end e;
with Interfaces.C.Strings;  use Interfaces.C.Strings;

package Cmd is

   cmd_name: constant chars_ptr;
   pragma Import(C, cmd_name);

   args: constant chars_ptr_array;
   pragma Import(C, args);

   procedure execv
     (filename: in chars_ptr; argv: in chars_ptr_array);
   pragma Import(C, execv);

end Cmd;