paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 17:49:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed cgsize2subreg and cgsize2subreg for mm subreg sizes

Browse Source 
git-svn-id: trunk@29911 -
This commit is contained in:
Jonas Maebe 2015-02-23 22:52:30 +00:00
parent c2b1ff41d5
commit aa0e2e9170
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/aarch64/cpubase.pas
View File

@ -384,9 +384,9 @@ unit cpubase;
begin
case s of
OS_F32:
cgsize2subreg:=R_SUBFS;
cgsize2subreg:=R_SUBMMS;
OS_F64:
cgsize2subreg:=R_SUBFD;
cgsize2subreg:=R_SUBMMD;
else
internalerror(2009112701);
end;
@ -410,11 +410,12 @@ unit cpubase;
R_MMREGISTER :
begin
case getsubreg(reg) of
R_SUBFD,
R_SUBWHOLE:
R_SUBMMD:
result:=OS_F64;
R_SUBFS:
R_SUBMMS:
result:=OS_F32;
R_SUBMMWHOLE:
result:=OS_M128;
else
internalerror(2009112903);
end;