git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

re PR libfortran/34669 (libgfortran doesn't build with -pipe) 

2008-01-16  Steven Bosscher  <steven@gcc.gnu.org>

        PR libfortran/34669
        * mk-kinds-h.sh: Compile with -S to avoid calling the assembler,
        to avoid piping the -fdump-parse-tree output to the assembler
        when configuring with -pipe.
        * mk-sik-inc.sh: Likewise.
        * mk-srk-inc.sh: Likewise.

From-SVN: r131567
This commit is contained in:
Steven Bosscher 2008-01-16 09:13:39 +00:00 committed by Tobias Burnus
parent 6da0839af3
commit 4349e29287
4 changed files with 16 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
libgfortran/ChangeLog
View File

@ -1,3 +1,12 @@
2008-01-16 Steven Bosscher <steven@gcc.gnu.org>
PR libfortran/34669
* mk-kinds-h.sh: Compile with -S to avoid calling the assembler,
to avoid piping the -fdump-parse-tree output to the assembler
when configuring with -pipe.
* mk-sik-inc.sh: Likewise.
* mk-srk-inc.sh: Likewise.
2008-01-15 Thomas Koenig <tkoenig@gcc.gnu.org> 2008-01-15 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/34671 PR libfortran/34671

10
libgfortran/mk-kinds-h.sh
View File

@ -14,7 +14,7 @@ smallest=""
for k in $possible_integer_kinds; do for k in $possible_integer_kinds; do
echo " integer (kind=$k) :: i" > tmp$$.f90 echo " integer (kind=$k) :: i" > tmp$$.f90
echo " end" >> tmp$$.f90 echo " end" >> tmp$$.f90
if $compile -c tmp$$.f90 > /dev/null 2>&1; then if $compile -S tmp$$.f90 > /dev/null 2>&1; then
s=`expr 8 \* $k` s=`expr 8 \* $k`
largest="$k" largest="$k"
@ -47,7 +47,7 @@ echo ""
for k in $possible_real_kinds; do for k in $possible_real_kinds; do
echo " real (kind=$k) :: x" > tmp$$.f90 echo " real (kind=$k) :: x" > tmp$$.f90
echo " end" >> tmp$$.f90 echo " end" >> tmp$$.f90
if $compile -c tmp$$.f90 > /dev/null 2>&1; then if $compile -S tmp$$.f90 > /dev/null 2>&1; then
case $k in case $k in
4) ctype="float" ; suffix="f" ;; 4) ctype="float" ; suffix="f" ;;
8) ctype="double" ; suffix="" ;; 8) ctype="double" ; suffix="" ;;
@ -58,19 +58,19 @@ for k in $possible_real_kinds; do
# Check for the value of HUGE # Check for the value of HUGE
echo "print *, huge(0._$k) ; end" > tmq$$.f90 echo "print *, huge(0._$k) ; end" > tmq$$.f90
huge=`$compile -c -fdump-parse-tree tmq$$.f90 | grep TRANSFER \ huge=`$compile -S -fdump-parse-tree tmq$$.f90 | grep TRANSFER \
| sed 's/ *TRANSFER *//' | sed 's/_.*//'` | sed 's/ *TRANSFER *//' | sed 's/_.*//'`
rm -f tmq$$.* rm -f tmq$$.*
# Check for the value of DIGITS # Check for the value of DIGITS
echo "print *, digits(0._$k) ; end" > tmq$$.f90 echo "print *, digits(0._$k) ; end" > tmq$$.f90
digits=`$compile -c -fdump-parse-tree tmq$$.f90 | grep TRANSFER \ digits=`$compile -S -fdump-parse-tree tmq$$.f90 | grep TRANSFER \
| sed 's/ *TRANSFER *//'` | sed 's/ *TRANSFER *//'`
rm -f tmq$$.* rm -f tmq$$.*
# Check for the value of RADIX # Check for the value of RADIX
echo "print *, radix(0._$k) ; end" > tmq$$.f90 echo "print *, radix(0._$k) ; end" > tmq$$.f90
radix=`$compile -c -fdump-parse-tree tmq$$.f90 | grep TRANSFER \ radix=`$compile -S -fdump-parse-tree tmq$$.f90 | grep TRANSFER \
| sed 's/ *TRANSFER *//'` | sed 's/ *TRANSFER *//'`
rm -f tmq$$.* rm -f tmq$$.*

2
libgfortran/mk-sik-inc.sh
View File

@ -8,7 +8,7 @@ c=0
for k in $possible_kinds; do for k in $possible_kinds; do
echo " integer (kind=$k) :: x" > tmp$$.f90 echo " integer (kind=$k) :: x" > tmp$$.f90
echo " end" >> tmp$$.f90 echo " end" >> tmp$$.f90
if $compile -c tmp$$.f90 > /dev/null 2>&1; then if $compile -S tmp$$.f90 > /dev/null 2>&1; then
kinds="$kinds $k" kinds="$kinds $k"
c=`expr $c + 1` c=`expr $c + 1`
fi fi

2
libgfortran/mk-srk-inc.sh
View File

@ -8,7 +8,7 @@ c=0
for k in $possible_kinds; do for k in $possible_kinds; do
echo " real (kind=$k) :: x" > tmp$$.f90 echo " real (kind=$k) :: x" > tmp$$.f90
echo " end" >> tmp$$.f90 echo " end" >> tmp$$.f90
if $compile -c tmp$$.f90 > /dev/null 2>&1; then if $compile -S tmp$$.f90 > /dev/null 2>&1; then
kinds="$kinds $k" kinds="$kinds $k"
c=`expr $c + 1` c=`expr $c + 1`
fi fi