paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 04:09:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed std_regname() for xmm registers with custom sizes

Browse Source 
* fixed findreg_by_number() for xmm registers with R_SUBNONE
    (from the assembler reader)

git-svn-id: trunk@23151 -
This commit is contained in:
Jonas Maebe 2012-12-15 22:47:12 +00:00
parent 6e9a8c9187
commit 68dd05e259
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/x86/cpubase.pas
View File

@ -458,10 +458,9 @@ implementation
begin
{ for the name the sub reg doesn't matter }
hr:=r;
case getsubreg(hr) of
R_SUBMMS,R_SUBMMD,R_SUBMMWHOLE:
setsubreg(hr,R_SUBMMX);
end;
if (getregtype(hr)=R_MMREGISTER) and
(getsubreg(hr)<>R_SUBMMY) then
setsubreg(hr,R_SUBMMX);
result:=findreg_by_number_table(hr,regnumber_index);
end;
@ -478,7 +477,7 @@ implementation
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);
p:=findreg_by_number(r);
if p<>0 then
result:=std_regname_table[p]
else