[Bug ada/12806] [3.4 regression] Program_Error sinput.adb:397

["schwab at suse dot de" <gcc-bugzilla at gcc dot gnu dot org>]

PLEASE REPLY TO gcc-bugzilla@gcc.gnu.org ONLY, *NOT* gcc-bugs@gcc.gnu.org.

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=12806



------- Additional Comments From schwab at suse dot de  2003-11-05 14:08 -------
This particular case is fixed, but this problem is still not fixed (during 
gnatlib_and_tools): 
 
../../xgcc -B../../ -c -g -O2      -W -Wall -gnatpg  s-valrea.adb -o s-valrea.o 
+===========================GNAT BUG DETECTED==============================+ 
| 3.4 20031105 (experimental) (ia64-suse-linux-gnu) GCC error:             | 
| in subreg_hard_regno, at emit-rtl.c:1026                                 | 
| Error detected at s-valrea.adb:156:11                                    | 
| Please submit a bug report; see http://gcc.gnu.org/bugs.html.            | 
| 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).                   | 
+==========================================================================+ 
 
I can workaround that with -O0, but then another problem pops up: 
 
../../xgcc -B../../ -DIN_GCC   `echo -g -W -Wall -Wwrite-strings 
-Wstrict-prototypes -Wmissing-prototypes -pedantic -Wno-long-long -fno-common  
|sed -e 's/-pedantic//g' -e 's/-Wtraditional//g'`   -o ../../gnatmake b_gnatm.o 
ctrl_c.o ali.o ali-util.o s-casuti.o alloc.o atree.o binderr.o butil.o casing.o 
csets.o debug.o elists.o einfo.o erroutc.o errutil.o err_vars.o fmap.o fname.o 
fname-uf.o fname-sf.o gnatmake.o gnatvsn.o hostparm.o krunch.o lib.o make.o 
makeusg.o mlib.o mlib-fil.o mlib-prj.o mlib-tgt.o mlib-utl.o namet.o nlists.o 
opt.o osint.o osint-m.o output.o prj.o prj-attr.o prj-com.o prj-dect.o 
prj-env.o prj-err.o prj-ext.o prj-nmsc.o prj-pars.o prj-part.o prj-proc.o 
prj-strt.o prj-tree.o prj-util.o rident.o scans.o scng.o sdefault.o sfn_scan.o 
s-purexc.o s-htable.o sinfo.o sinput.o sinput-c.o sinput-p.o snames.o stand.o 
stringt.o styleg.o stylesw.o validsw.o switch.o switch-m.o table.o targparm.o 
tempdir.o tree_io.o types.o uintp.o  uname.o urealp.o usage.o widechar.o  \ 
      ../rts/libgnat.a  ../../prefix.o ../../version.o ../../../libiberty/
libiberty.a   
../rts/libgnat.a(s-stratt.o)(.text+0x832): In function 
`system.stream_attributes.i_llf': 
/tmp/cvs/gcc-20031105/Build/gcc/ada/rts/s-stratt.adb:276: undefined reference 
to `__trunctfxf2' 
../rts/libgnat.a(s-stratt.o)(.text+0x1732): In function 
`system.stream_attributes.w_llf': 
/tmp/cvs/gcc-20031105/Build/gcc/ada/rts/s-stratt.adb:555: undefined reference 
to `__extendxftf2' 
collect2: ld returned 1 exit status