mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-10 23:37:23 +01:00
* reset subregister before writing mm register names
git-svn-id: trunk@8846 -
This commit is contained in:
parent
b4b38dfcd2
commit
658d9fcc92
@ -451,6 +451,8 @@ implementation
|
||||
var
|
||||
p : tregisterindex;
|
||||
begin
|
||||
if getregtype(r) in [R_MMREGISTER,R_MMXREGISTER] then
|
||||
r:=newreg(getregtype(r),getsupreg(r),R_SUBNONE);
|
||||
p:=findreg_by_number_table(r,regnumber_index);
|
||||
if p<>0 then
|
||||
result:=std_regname_table[p]
|
||||
|
||||
Loading…
Reference in New Issue
Block a user