nasm/test/riprel.pl
H. Peter Anvin d0b0d28f42 Unbreak relative references to immediate addresses
Remove bogus "treat labels different from immediates" code, which
would result in generating of a relative mod/rm but without adjusting
the address accordingly.

Update addressing mode test.
2007-09-28 17:17:20 -07:00

26 lines
486 B
Perl

#!/usr/bin/perl
print "\tbits 64\n";
foreach $mode ('abs', 'rel') {
print "\n\tdefault $mode\n\n";
foreach $so ('', 'fs:', 'es:') {
foreach $rq ('', 'abs ', 'rel ') {
foreach $sq ('', 'dword ', 'qword ') {
foreach $v ('foo', '0xaaaaaaaaaaaaaaaa', '0xbbbbbbbb',
'0xffffffffcccccccc') {
foreach $r ('al', 'bl', 'ax', 'bx', 'eax', 'ebx', 'rax', 'rbx') {
print "\tmov $r,[$rq$sq$so$v]\n";
}
}
print "\n";
}
}
}
}
print "\nfoo:\n";