paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-24 03:59:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed loading of single floating point values from memory to register for ARM hardfloat.

Browse Source 
git-svn-id: trunk@10826 -
This commit is contained in:
yury 2008-04-27 20:47:52 +00:00
parent 03c02a17e9
commit 60ecb64346
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/arm/cgcpu.pas
View File

@ -1140,7 +1140,7 @@ unit cgcpu;
var var
oppostfix:toppostfix; oppostfix:toppostfix;
begin begin
case tosize of case fromsize of
OS_32, OS_32,
OS_F32: OS_F32:
oppostfix:=PF_S; oppostfix:=PF_S;
@ -1153,6 +1153,8 @@ unit cgcpu;
InternalError(200309021); InternalError(200309021);
end; end;
handle_load_store(list,A_LDF,oppostfix,reg,ref); handle_load_store(list,A_LDF,oppostfix,reg,ref);
if fromsize<>tosize then
a_loadfpu_reg_reg(list,fromsize,tosize,reg,reg);
end; end;