Lines Matching refs:NEW
48 open(MEPHO, "> include/elf/mep.h.new") || die("mep.h.new create: $!");
53 print (MEPHO "$pre$rel, $val$rest\n") || die("mep.h.new write: $!");
68 print(MEPHO) || die("mep.h.new write: $!");
72 close(MEPHO) || die("mep.h.new close: $!");
142 printf(NEW " MEPREL (R_MEP_%-10s%d,%3d,%2d,%2d,%2d,%2s, 0x%s),\n",
158 print NEW " case R_MEP_$relocs[$i]: /* $pattern[$i] */\n";
160 print NEW " u += 0x8000;\n"
163 print NEW " u -= mep_tpoff_base(rel->r_offset);\n";
166 print NEW " u -= mep_sdaoff_base(rel->r_offset);\n";
171 print NEW " if (u > $max) r = bfd_reloc_overflow;\n";
175 print NEW " if (u + $min > $max) r = bfd_reloc_overflow;\n";
186 print NEW " byte[$bb$e] = ";
187 print NEW "(byte[$bb$e] & 0x$rmask) | " if $rmask ne "00";
189 print NEW "((u << $left) & 0x$mask)";
191 print NEW "((u >> $right) & 0x$mask)";
193 print NEW "(u & 0x$mask)";
195 print NEW ";\n";
198 print NEW " break;\n";
208 open(NEW, "> $file.new") || die("$file.new create: $!");
220 print NEW while <OLD>;
226 print NEW;
232 print NEW $prefix;
238 printf (NEW "$pattern", $relocs[$i]) || die("$file.new write: $!");
242 print NEW $suffix;
246 print NEW;
250 close(NEW) || die("$file.new close: $!");
262 open(NEW, "$f.new");
264 $n = <NEW>;
267 close(NEW);
270 rename "$f.new", "$f";
275 close(NEW);
277 unlink "$f.new";