paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 19:49:12 +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 begin
case s of case s of
OS_F32: OS_F32:
cgsize2subreg:=R_SUBFS; cgsize2subreg:=R_SUBMMS;
OS_F64: OS_F64:
cgsize2subreg:=R_SUBFD; cgsize2subreg:=R_SUBMMD;
else else
internalerror(2009112701); internalerror(2009112701);
end; end;
@ -410,11 +410,12 @@ unit cpubase;
R_MMREGISTER : R_MMREGISTER :
begin begin
case getsubreg(reg) of case getsubreg(reg) of
R_SUBFD, R_SUBMMD:
R_SUBWHOLE:
result:=OS_F64; result:=OS_F64;
R_SUBFS: R_SUBMMS:
result:=OS_F32; result:=OS_F32;
R_SUBMMWHOLE:
result:=OS_M128;
else else
internalerror(2009112903); internalerror(2009112903);
end; end;