ada/10359: GNAT BUG box, 3.15p, Windows

[bauhaus@futureaps.de]

>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;
\x1a