paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 06:39:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

* correct assembling of test rm8,reg8

Browse Source 
git-svn-id: trunk@5972 -
This commit is contained in:
florian 2007-01-14 18:08:37 +00:00
parent 5e1681c38a
commit 5e2042cff8
5 changed files with 23 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -6182,6 +6182,7 @@ tests/tbs/tb0519.pp svneol=native#text/plain
tests/tbs/tb0520.pp svneol=native#text/plain
tests/tbs/tb0521.pp svneol=native#text/plain
tests/tbs/tb0522.pp svneol=native#text/plain
tests/tbs/tb0523.pp svneol=native#text/plain
tests/tbs/ub0060.pp svneol=native#text/plain
tests/tbs/ub0069.pp svneol=native#text/plain
tests/tbs/ub0119.pp svneol=native#text/plain

2
compiler/i386/i386tab.inc
View File

@ -6345,7 +6345,7 @@
(
opcode : A_TEST;
ops : 2;
optypes : (ot_reg8,ot_memory,ot_none);
optypes : (ot_regmem or ot_bits8,ot_reg8,ot_none);
code : #193#211#1#132#72;
flags : if_8086 or if_sm
),

2
compiler/x86/x86ins.dat
View File

@ -2020,7 +2020,7 @@ void \2\x0F\x07 P6,PRIV,AMD
regmem,reg16|32|64 \300\320\1\x85\101 8086,SM
reg16|32|64,mem \301\320\1\x85\110 8086,SM
reg8,reg8 \300\323\1\x84\101 8086
reg8,mem \301\323\1\x84\110 8086,SM
rm8,reg8 \301\323\1\x84\110 8086,SM
reg_eax,imm \325\1\xA9\41 386,SM
reg_ax,imm \324\1\xA9\31 8086,SM
reg_al,imm \1\xA8\21 8086,SM

2
compiler/x86_64/x8664tab.inc
View File

@ -6289,7 +6289,7 @@
(
opcode : A_TEST;
ops : 2;
optypes : (ot_reg8,ot_memory,ot_none);
optypes : (ot_regmem or ot_bits8,ot_reg8,ot_none);
code : #193#211#1#132#72;
flags : if_8086 or if_sm
),

19
tests/tbs/tb0523.pp Normal file
View File

@ -0,0 +1,19 @@
{ %target=i386 }
{$asmmode intel}
var
a : array[0..1] of byte;
myresult : boolean;
begin
a[0]:=$ff;
a[1]:=$1;
asm
mov esi,offset a
mov dl,1
test byte ptr [esi+1], dl
setnz myresult
end;
if not(myresult) then
halt(1);
writeln('ok');
end.