1#!/usr/bin/perl 2# -*- perl -*- 3# 4# Toshiba MeP Media Engine Relocation Generator 5# Copyright (C) 2001-2024 Free Software Foundation, Inc. 6# This file is part of BFD. 7# Originally written by DJ Delorie <dj@redhat.com> 8# 9# This program is free software; you can redistribute it and/or modify 10# it under the terms of the GNU General Public License as published by 11# the Free Software Foundation; either version 3 of the License, or 12# (at your option) any later version. 13# 14# This program is distributed in the hope that it will be useful, 15# but WITHOUT ANY WARRANTY; without even the implied warranty of 16# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 17# GNU General Public License for more details. 18# 19# You should have received a copy of the GNU General Public License 20# along with this program; if not, write to the Free Software 21# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, 22# MA 02110-1301, USA. 23 24 25# Usage: Run this anywhere inside your source tree. It will read 26# include/elf/mep.h and scan the comments therein. It will renumber 27# the relocs to be sequential (this is needed so that bfd/elf32-mep.h 28# works) if needed. It will then update the reloc list in bfd/reloc.c 29# and the howto, mapping, and apply routines in bfd/elf32-mep.c. You 30# can then regenerate bfd-in2.h and check everything in. 31 32# FIXME: After the relocation list is finalized, change this to 33# *verify* the reloc list, rather than resequence it. 34 35while (! -f "include/elf/mep.h" && ! -f "bfd/reloc.c") { 36 chdir ".."; 37 $pwd = `pwd`; 38 if ($pwd !~ m@/.*/@) { 39 print STDERR "Cannot find include/elf/mep.h or bfd/reloc.h\n"; 40 exit 1; 41 } 42} 43$pwd = `pwd`; 44print "srctop is $pwd"; 45 46printf "Reading include/elf/mep.h ...\n"; 47open(MEPH, "include/elf/mep.h"); 48open(MEPHO, "> include/elf/mep.h.new") || die("mep.h.new create: $!"); 49$val = 0; 50while (<MEPH>) { 51 if (($pre,$rel,$rest) = /(.*RELOC_NUMBER \()([^,]+), *\d+(.*)/) { 52 $rest =~ s/[\r\n]+$//; 53 print (MEPHO "$pre$rel, $val$rest\n") || die("mep.h.new write: $!"); 54 $val ++; 55 $rel =~ s/R_MEP_//; 56 push(@relocs, $rel); 57 58 $rest =~ s@.*/\* @@; 59 ($pattern, $sign, $attrs) = $rest =~ m@(.*) ([US]) (.*)\*/@; 60 $pattern =~ s/ //g; 61 push(@pattern, $pattern); 62 push(@sign, $sign); 63 push(@attrs, $attrs); 64 65 printf "%4d $rel p=`$pattern' s=`$sign' a=`$attrs'\n", $#pattern; 66 67 } else { 68 print(MEPHO) || die("mep.h.new write: $!"); 69 } 70} 71close(MEPH); 72close(MEPHO) || die("mep.h.new close: $!"); 73 74&swapfile("include/elf/mep.h"); 75 76redo_file ("bfd/reloc.c", 77 "", 78 "ENUMDOC\n Toshiba Media Processor Relocations.\n\nCOMMENT\n", 79 "ENUM\n BFD_RELOC_MEP_%s\n", 80 ""); 81 82$autogen = " /* This section generated from bfd/mep-relocs.pl from include/elf/mep.h. */\n"; 83 84redo_file ("bfd/elf32-mep.c", 85 "MEPRELOC:HOWTO", 86 $autogen, 87 "MEPRELOC:END", 88 "", 89 "&emit_howto();", 90 "MEPRELOC:MAP", 91 $autogen, 92 "MEPRELOC:END", 93 "", 94 " MAP(%s);\n", 95 "MEPRELOC:APPLY", 96 $autogen, 97 "MEPRELOC:END", 98 "", 99 "&emit_apply();", 100 ); 101 102sub mask2shifts { 103 my ($mask) = @_; 104 my ($bits, $left, $right, $ci, $c, $cv); 105 $bits = 0; 106 $left = 0; 107 $right = 32; 108 for ($ci=0; $ci<length($mask); $ci++) { 109 $c = substr($mask, $ci, 1); 110 $left++; 111 next if $c eq '-'; 112 $left = 0; 113 $cv = ord($c) - ord('0'); 114 $cv -= ord('a') - ord('9') - 1 if $cv > 9; 115 $right = $cv unless $right < $cv; 116 $bits = $cv+1 unless $bits > $cv+1; 117 } 118 $mask =~ tr/-/1/c; 119 $mask =~ tr/-/0/; 120 ($rmask = $mask) =~ tr/01/10/; 121 $mask = unpack("H*", pack("B*", $mask)); 122 $rmask = unpack("H*", pack("B*", $rmask)); 123 return ($bits, $left, $right, $mask, $rmask); 124} 125 126sub emit_howto { 127 for ($i=2; $i<=$#relocs; $i++) { 128 $mask = $pattern[$i]; 129 130 if (length($mask) == 8) { $bytesize = 0; } 131 elsif (length($mask) == 16) { $bytesize = 1; } 132 elsif (length($mask) == 32) { $bytesize = 2; } 133 134 ($bits, $left, $right, $mask) = mask2shifts ($mask); 135 $bits[$i] = $bits; 136 $pcrel = 0; 137 $pcrel = 1 if $attrs[$i] =~ /pc-rel/i; 138 $overflow = $sign[$i]; 139 $overflow = 'N' if $attrs[$i] =~ /no-overflow/; 140 141 $c = "$relocs[$i],"; 142 printf(NEW " MEPREL (R_MEP_%-10s%d,%3d,%2d,%2d,%2d,%2s, 0x%s),\n", 143 $c, $bytesize, $bits, $left, $right, $pcrel, $overflow, $mask); 144 } 145} 146 147sub emit_apply { 148 for ($i=2; $i<=$#relocs; $i++) { 149 $v = "u"; 150 $v = "s" if $sign[$i] =~ /S/; 151 if (length($pattern[$i]) == 8) { 152 $e = ''; # no endian swap for bytes 153 } elsif ($pattern[$i] =~ /-/ || length($pattern[$i]) == 16) { 154 $e = '^e2'; # endian swap - 2byte words only 155 } else { 156 $e = '^e4' # endian swap for data 157 } 158 print NEW " case R_MEP_$relocs[$i]: /* $pattern[$i] */\n"; 159 if ($relocs[$i] =~ /HI16S/) { 160 print NEW " u += 0x8000;\n" 161 } 162 if ($attrs[$i] =~ /tp-rel/i) { 163 print NEW " u -= mep_tpoff_base(rel->r_offset);\n"; 164 } 165 if ($attrs[$i] =~ /gp-rel/i) { 166 print NEW " u -= mep_sdaoff_base(rel->r_offset);\n"; 167 } 168 if ($attrs[$i] !~ /no-overflow/ && $bits[$i] < 32) { 169 if ($v eq "u") { 170 $max = (1 << $bits[$i]) - 1; 171 print NEW " if (u > $max) r = bfd_reloc_overflow;\n"; 172 } else { 173 $min = (1 << ($bits[$i]-1)); 174 $max = (1 << ($bits[$i])) - 1; 175 print NEW " if (u + $min > $max) r = bfd_reloc_overflow;\n"; 176 } 177 } 178 for ($b=0; $b<length($pattern[$i]); $b += 8) { 179 $mask = substr($pattern[$i], $b, 8); 180 ($bits, $left, $right, $mask, $rmask) = mask2shifts ($mask); 181 if ($left > $right) { $left -= $right; $right = 0; } 182 else { $right -= $left; $left = 0; } 183 184 if ($mask ne "00") { 185 $bb = $b / 8; 186 print NEW " byte[$bb$e] = "; 187 print NEW "(byte[$bb$e] & 0x$rmask) | " if $rmask ne "00"; 188 if ($left) { 189 print NEW "((u << $left) & 0x$mask)"; 190 } elsif ($right) { 191 print NEW "((u >> $right) & 0x$mask)"; 192 } else { 193 print NEW "(u & 0x$mask)"; 194 } 195 print NEW ";\n"; 196 } 197 } 198 print NEW " break;\n"; 199 } 200} 201 202 203#----------------------------------------------------------------------------- 204 205sub redo_file { 206 my ($file, @control) = @_; 207 open(OLD, $file); 208 open(NEW, "> $file.new") || die("$file.new create: $!"); 209 210 print "Scanning file $file ...\n"; 211 212 while (1) { 213 $start = shift @control; 214 $prefix = shift @control; 215 $end = shift @control; 216 $suffix = shift @control; 217 $pattern = shift @control; 218 219 if (!$start) { 220 print NEW while <OLD>; 221 last; 222 } 223 224 print " looking for $start\n"; 225 while (<OLD>) { 226 print NEW; 227 last if /\Q$start\E/; 228 } 229 print "can't find $start\n" unless $_; 230 last unless $_; 231 232 print NEW $prefix; 233 if ($pattern =~ /^\&/) { 234 eval $pattern; 235 die("$pattern: $@") if $@; 236 } else { 237 for $i (2..$#relocs) { 238 printf (NEW "$pattern", $relocs[$i]) || die("$file.new write: $!"); 239 $pattern =~ s/^ENUM\n/ENUMX\n/; 240 } 241 } 242 print NEW $suffix; 243 while (<OLD>) { 244 last if /\Q$end\E/; 245 } 246 print NEW; 247 } 248 249 close(OLD); 250 close(NEW) || die("$file.new close: $!"); 251 &swapfile($file); 252} 253 254#----------------------------------------------------------------------------- 255 256sub swapfile { 257 my ($f) = @_; 258 if ( ! -f "$f.save") { 259 system "cp $f $f.save"; 260 } 261 open(ORIG, $f); 262 open(NEW, "$f.new"); 263 while (<ORIG>) { 264 $n = <NEW>; 265 if ($n ne $_) { 266 close(ORIG); 267 close(NEW); 268 print " Updating $f\n"; 269 rename "$f", "$f.old"; 270 rename "$f.new", "$f"; 271 return; 272 } 273 } 274 close(ORIG); 275 close(NEW); 276 print " No change to $f\n"; 277 unlink "$f.new"; 278} 279