From: Dave Anglin Date: Fri, 25 Nov 2005 02:08:22 +0000 (+0000) Subject: Bug gas/1896 X-Git-Url: http://git.osdn.net/view?a=commitdiff_plain;h=b70b22ce48ad82c172441b3db2f808ed7178a2f4;p=pf3gnuchains%2Fpf3gnuchains3x.git Bug gas/1896 * config/tc-hppa.c (hppa_fix_adjustable): Don't reject for reduction R_HPPA relocations that are 32-bits wide. * gas/all/redef2.d: Allow "$DATA$" as well as ".data" in matches. * gas/all/weakref1.d: Allow "$CODE$" as well as ".text" in matches. * gas/hppa/reloc/reloc.exp: Adjust regexp for new output. --- diff --git a/gas/ChangeLog b/gas/ChangeLog index 04d9727f56..9044220ded 100644 --- a/gas/ChangeLog +++ b/gas/ChangeLog @@ -1,3 +1,9 @@ +2005-11-24 John David Anglin + + Bug gas/1896 + * config/tc-hppa.c (hppa_fix_adjustable): Don't reject for reduction + R_HPPA relocations that are 32-bits wide. + 2005-11-23 Daniel Jacobowitz Thiemo Seufer diff --git a/gas/config/tc-hppa.c b/gas/config/tc-hppa.c index bcf5654ae1..8ae5a57e90 100644 --- a/gas/config/tc-hppa.c +++ b/gas/config/tc-hppa.c @@ -8396,12 +8396,8 @@ pa_lsym (unused) any fixup which creates entries in the DLT (eg they use "T" field selectors). - Reject reductions involving symbols with external scope; such - reductions make life a living hell for object file editors. - - FIXME. Also reject R_HPPA relocations which are 32bits wide in - the code space. The SOM BFD backend doesn't know how to pull the - right bits out of an instruction. */ + ??? Reject reductions involving symbols with external scope; such + reductions make life a living hell for object file editors. */ int hppa_fix_adjustable (fixp) @@ -8414,17 +8410,6 @@ hppa_fix_adjustable (fixp) hppa_fix = (struct hppa_fix_struct *) fixp->tc_fix_data; -#ifdef OBJ_SOM - /* Reject reductions of symbols in 32bit relocs unless they - are fake labels. */ - if (fixp->fx_r_type == R_HPPA - && hppa_fix->fx_r_format == 32 - && strncmp (S_GET_NAME (fixp->fx_addsy), - FAKE_LABEL_NAME, - strlen (FAKE_LABEL_NAME))) - return 0; -#endif - #ifdef OBJ_ELF /* LR/RR selectors are implicitly used for a number of different relocation types. We must ensure that none of these types are adjusted (see below) diff --git a/gas/testsuite/ChangeLog b/gas/testsuite/ChangeLog index a2a665e90b..ea982efecd 100644 --- a/gas/testsuite/ChangeLog +++ b/gas/testsuite/ChangeLog @@ -1,3 +1,10 @@ +2005-11-24 John David Anglin + + Bug gas/1896 + * gas/all/redef2.d: Allow "$DATA$" as well as ".data" in matches. + * gas/all/weakref1.d: Allow "$CODE$" as well as ".text" in matches. + * gas/hppa/reloc/reloc.exp: Adjust regexp for new output. + 2005-11-23 Daniel Jacobowitz Thiemo Seufer diff --git a/gas/testsuite/gas/all/redef2.d b/gas/testsuite/gas/all/redef2.d index 328f7e5753..244d33dd68 100644 --- a/gas/testsuite/gas/all/redef2.d +++ b/gas/testsuite/gas/all/redef2.d @@ -5,9 +5,9 @@ RELOCATION RECORDS FOR .* .* -0+00.*(here|\.data) +0+00.*(here|\.data|\$DATA\$) 0+08.*xtrn -0+10.*(sym|\.data(\+0x0+10)?) +0+10.*(sym|(\.data|\$DATA\$)(\+0x0+10)?) #... Contents of section (\.data|\$DATA\$): 0000 00000000 11111111 00000000 22222222[ ]+................[ ]* diff --git a/gas/testsuite/gas/all/weakref1.d b/gas/testsuite/gas/all/weakref1.d index dadd280033..ee37d97700 100644 --- a/gas/testsuite/gas/all/weakref1.d +++ b/gas/testsuite/gas/all/weakref1.d @@ -83,14 +83,14 @@ OFFSET +TYPE +VALUE * [0-9a-f]+ [^ ]* +uh8 [0-9a-f]+ [^ ]* +uh9 [0-9a-f]+ [^ ]* +uh9 -[0-9a-f]+ [^ ]* +(ld1|\.text)(\+0x[0-9a-f]+)? -[0-9a-f]+ [^ ]* +(ld2|\.text)(\+0x[0-9a-f]+)? -[0-9a-f]+ [^ ]* +(ld3|\.text)(\+0x[0-9a-f]+)? -[0-9a-f]+ [^ ]* +(ld4|\.text)(\+0x[0-9a-f]+)? +[0-9a-f]+ [^ ]* +(ld1|\.text|\$CODE\$)(\+0x[0-9a-f]+)? +[0-9a-f]+ [^ ]* +(ld2|\.text|\$CODE\$)(\+0x[0-9a-f]+)? +[0-9a-f]+ [^ ]* +(ld3|\.text|\$CODE\$)(\+0x[0-9a-f]+)? +[0-9a-f]+ [^ ]* +(ld4|\.text|\$CODE\$)(\+0x[0-9a-f]+)? [0-9a-f]+ [^ ]* +ud5 -[0-9a-f]+ [^ ]* +(gd6|\.text)(\+0x[0-9a-f]+)? -[0-9a-f]+ [^ ]* +(gd7|\.text)(\+0x[0-9a-f]+)? -[0-9a-f]+ [^ ]* +(ld8|\.text)(\+0x[0-9a-f]+)? -[0-9a-f]+ [^ ]* +(ld8|\.text)(\+0x[0-9a-f]+)? -[0-9a-f]+ [^ ]* +(ld9|\.text)(\+0x[0-9a-f]+)? -[0-9a-f]+ [^ ]* +(ld9|\.text)(\+0x[0-9a-f]+)? +[0-9a-f]+ [^ ]* +(gd6|\.text|\$CODE\$)(\+0x[0-9a-f]+)? +[0-9a-f]+ [^ ]* +(gd7|\.text|\$CODE\$)(\+0x[0-9a-f]+)? +[0-9a-f]+ [^ ]* +(ld8|\.text|\$CODE\$)(\+0x[0-9a-f]+)? +[0-9a-f]+ [^ ]* +(ld8|\.text|\$CODE\$)(\+0x[0-9a-f]+)? +[0-9a-f]+ [^ ]* +(ld9|\.text|\$CODE\$)(\+0x[0-9a-f]+)? +[0-9a-f]+ [^ ]* +(ld9|\.text|\$CODE\$)(\+0x[0-9a-f]+)? diff --git a/gas/testsuite/gas/hppa/reloc/reloc.exp b/gas/testsuite/gas/hppa/reloc/reloc.exp index 652e2560f6..c1b9fa9aa1 100644 --- a/gas/testsuite/gas/hppa/reloc/reloc.exp +++ b/gas/testsuite/gas/hppa/reloc/reloc.exp @@ -636,9 +636,9 @@ proc do_apply_test {} { while 1 { expect { - -re "^ +\[0-9\]+ 0000 00000000\[^\n\]*\n" { set x [expr $x+1] } - -re "^ +\[0-9\]+ 0004 00000000\[^\n\]*\n" { set x [expr $x+1] } - -re "^ +\[0-9\]+ 0008 00000000\[^\n\]*\n" { set x [expr $x+1] } + -re "^ +\[0-9\]+ 0000 00000044\[^\n\]*\n" { set x [expr $x+1] } + -re "^ +\[0-9\]+ 0004 00000058\[^\n\]*\n" { set x [expr $x+1] } + -re "^ +\[0-9\]+ 0008 0000006C\[^\n\]*\n" { set x [expr $x+1] } -re "\[^\n\]*\n" { } timeout { perror "timeout\n"; break } eof { break }