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

* fixed destination size when loading fpu temp paralocs

Browse Source 
git-svn-id: trunk@30224 -
This commit is contained in:
Jonas Maebe 2015-03-14 18:36:49 +00:00
parent 6d02aedf70
commit c50c822e13
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ncgcal.pas
View File

@ -735,7 +735,7 @@ implementation
internalerror(200408222); internalerror(200408222);
if getsupreg(callerparaloc^.register)<first_fpu_imreg then if getsupreg(callerparaloc^.register)<first_fpu_imreg then
cg.getcpuregister(current_asmdata.CurrAsmList,callerparaloc^.register); cg.getcpuregister(current_asmdata.CurrAsmList,callerparaloc^.register);
cg.a_loadfpu_reg_reg(current_asmdata.CurrAsmList,tmpparaloc^.size,ppn.tempcgpara.size,tmpparaloc^.register,callerparaloc^.register); cg.a_loadfpu_reg_reg(current_asmdata.CurrAsmList,tmpparaloc^.size,tmpparaloc^.size,tmpparaloc^.register,callerparaloc^.register);
end; end;
LOC_MMREGISTER: LOC_MMREGISTER:
begin begin