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

* fixed names, returned by std_regname for ymm registers

Browse Source 
git-svn-id: trunk@35997 -
This commit is contained in:
nickysn 2017-04-28 13:46:57 +00:00
parent a9617b623f
commit 8926adbab5
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/x86/cpubase.pas
View File

@ -561,7 +561,8 @@ implementation
var var
p : tregisterindex; p : tregisterindex;
begin begin
if getregtype(r) in [R_MMREGISTER,R_MMXREGISTER] then if (getregtype(r)=R_MMXREGISTER) or
((getregtype(r)=R_MMREGISTER) and not(getsubreg(r) in [R_SUBMMX,R_SUBMMY])) then
r:=newreg(getregtype(r),getsupreg(r),R_SUBNONE); r:=newreg(getregtype(r),getsupreg(r),R_SUBNONE);
p:=findreg_by_number(r); p:=findreg_by_number(r);
if p<>0 then if p<>0 then