paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 23:39:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* check that a_load_cgparaloc_anyreg() is not used to try to move an fpu

Browse Source 
register into a non-fpu register, as this is not (yet) supported

git-svn-id: trunk@30226 -
This commit is contained in:
Jonas Maebe 2015-03-14 18:36:54 +00:00
parent a02d52f533
commit 622852b8c9
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/cgobj.pas
View File

@ -1214,7 +1214,14 @@ implementation
end;
end;
LOC_FPUREGISTER :
a_loadfpu_reg_reg(list,paraloc.size,regsize,paraloc.register,reg);
begin
case getregtype(reg) of
R_FPUREGISTER:
a_loadfpu_reg_reg(list,paraloc.size,regsize,paraloc.register,reg)
else
internalerror(2015031401);
end;
end;
LOC_REFERENCE :
begin
reference_reset_base(href,paraloc.reference.index,paraloc.reference.offset,align);