Lines Matching refs:address
189 # delimited list of address,size
204 $address = 0; # Address of current instruction
211 # &patch ($address, $offset, $length, $value) patches $code[$address]
219 local ($address, $offset, $length, $value) = @_;
221 print STDERR "Patching $address at offset $offset, length $length to $value\n";
222 printf STDERR "Old code : %08x\n", $code[$address];
227 $code[$address] = ($code[$address] & ~$mask) |
228 (($code[$address] & $mask) + ($value << ($offset * 8)) &
231 printf STDERR "New code : %08x\n", $code[$address] if ($debug);
236 # $address, $offset is the starting byte within that word, and
240 # relative to $address, and that the %symbol_references table is
263 $tmp = ($address + $word) * 4 + $offset;
277 &patch ($address + $word, $offset, $length, $value);
290 $code[$address] |= 0x00_01_00_00;
309 $code[$address] |= 0x00_08_00_00;
319 $code[$address] |= 0x00_02_00_00;
325 $code[$address] |= $p | 0x00_02_00_00;
354 $code[$address] |= 0x00_04_00_00;
394 $list[$address] = $list[$address].$_;
403 $symbol_values{$1} = $address * 4; # Address is an index into
467 # Process MOVE length, address, WITH|WHEN phase instruction
475 $code[$address] = 0x18_00_00_00 | (($with_when =~ /WITH/i) ?
478 $address += 2;
485 $code[$address] = (($with_when =~ /WITH/i) ? 0x00_00_00_00 :
490 $address += 2;
493 $code[$address] = 0xc0_00_00_00;
503 $code[$address], $code[$address+1], $code[$address +2] if
505 $address += 3;
519 $code[$address] = 0x40_00_00_00;
578 $code[$address] |= 0x01_00_00_00;
599 $code[$address] |= 0x38_00_00_00 |
602 $code[$address] |= 0x30_00_00_00 |
605 $code[$address] |= 0x28_00_00_00 |
615 $code[$address] |= $operators{$op};
618 $code[$address] |= $operators{$op};
619 $code[$address + 1] = 0x00_00_00_00;# Reserved
620 $address += 2;
624 expected (initiator) <length>, <address>, WHEN <phase>
625 (target) <length>, <address>, WITH <phase>
637 $code[$address] = 0x40_00_00_00 |
639 $code[$address + 1] = 0x00_00_00_00;
642 $address += 2;
647 $code[$address] = 0x42_00_00_00 |
649 $code[$address + 1] = 0x00_00_00_00;
652 $address += 2;
657 SELECT FROM address, alternate_address or
659 RESELECT FROM address, alternate_address
666 $code[$address] = 0x48_00_00_00;
667 $code[$address + 1] = 0x00_00_00_00;
668 $address += 2;
671 $code[$address] = 0x50_00_00_00;
673 $address += 2;
687 $code[$address] = ($set =~ /SET/i) ? 0x58_00_00_00 :
691 $code[$address] |= 0x00_00_00_08;
693 $code[$address] |= 0x00_00_00_40;
695 $code[$address] |= 0x00_00_02_00;
697 $code[$address] |= 0x00_00_04_00;
706 $code[$address + 1] = 0x00_00_00_00;
707 $address += 2;
712 $code[$address] = 0x80_00_00_00;
714 $code[$address] = 0x88_00_00_00;
716 $code[$address] = 0x98_00_00_00;
725 $code[$address] |= 0x00_80_00_00;
735 expected <address> or REL (address)
742 $code[$address] |= (1 << 19);
750 $address += 2;
755 $code[$address] = ($instruction =~ /RETURN/i) ? 0x90_00_00_00 :
766 $code[$address] |= 0x00_08_00_00;
769 $code[$address + 1] = 0x00_00_00_00;
770 $address += 2;
772 $code[$address] = 0x48_00_00_00;
773 $code[$address + 1] = 0x00_00_00_00;
774 $address += 2;
778 $code[$address] = 0x80_88_00_00;
779 $code[$address + 1] = 0x00_00_00_00;
780 $address += 2;
813 $address = $2;
816 "$0 : $symbol $i has invalid relative reference at address $address,
820 &patch ($address / 4, $address % 4, $length, $symbol_values{$i});
830 $address = $2;
834 "$0 : symbol $label is external, has invalid relative reference at $address,
839 "$0 : symbol $label has invalid reference at $address, size $length\n"
840 if ((($address % 4) !=0) || ($length != 4));
843 $add = $code[$address / 4];
845 $code[$address / 4] = $symbol;
848 $code[$address / 4] = "$symbol + $add";
861 $address = $2;
864 if ((($address % 4) !=0) || ($length != 4)) {
869 $code[$address / 4] += $symbol_values{$label};
870 push (@label_patches, $address / 4);
873 # - The address of the reference should be in the second and last word
877 # So, we need to add four to the address of the reference, to get
878 # the address of the next instruction, when computing the reference.
881 ($address + 4);
884 "$0 : symbol $label is too far ($tmp) from $address to reference as
886 $code[$address / 4] = $tmp & 0x00_ff_ff_ff;
944 $address = $2;
946 printf OUTPUT "\t0x%08x,\n", $address / 4;
968 printf OUTPUT "static struct {\n\tu32\toffset;\n\tvoid\t\t*address;\n".