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

m68k: oops, unbroke the build with softfpu

Browse Source 
git-svn-id: trunk@29372 -
This commit is contained in:
Károly Balogh 2015-01-02 16:00:53 +00:00
parent d000b1bc7c
commit 7a91d5f495
1 changed files with 19 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
compiler/m68k/cgcpu.pas
View File

@ -378,8 +378,9 @@ unit cgcpu;
if use_push(cgpara) then if use_push(cgpara) then
begin begin
{ Record copy? } { Record copy? }
if (cgpara.size in [OS_NO,OS_F64]) or (size=OS_NO) then if (cgpara.size in [OS_NO,OS_F64]) or (size in [OS_NO,OS_F64]) then
begin begin
//list.concat(tai_comment.create(strpnew('a_load_ref_cgpara: g_concatcopy')));
cgpara.check_simple_location; cgpara.check_simple_location;
len:=align(cgpara.intsize,cgpara.alignment); len:=align(cgpara.intsize,cgpara.alignment);
g_stackpointer_alloc(list,len); g_stackpointer_alloc(list,len);
@ -1001,20 +1002,24 @@ unit cgcpu;
procedure tcg68k.a_loadfpu_ref_cgpara(list : TAsmList; size : tcgsize;const ref : treference;const cgpara : TCGPara); procedure tcg68k.a_loadfpu_ref_cgpara(list : TAsmList; size : tcgsize;const ref : treference;const cgpara : TCGPara);
begin begin
case cgpara.location^.loc of if current_settings.fputype = fpu_soft then
LOC_REFERENCE,LOC_CREFERENCE: case cgpara.location^.loc of
begin LOC_REFERENCE,LOC_CREFERENCE:
case size of begin
OS_F64, case size of
OS_F32: OS_F64:
a_load_ref_cgpara(list,size,ref,cgpara); cg64.a_load64_ref_cgpara(list,ref,cgpara);
else OS_F32:
internalerror(2013021201); a_load_ref_cgpara(list,size,ref,cgpara);
else
internalerror(2013021201);
end;
end; end;
end; else
else inherited a_loadfpu_ref_cgpara(list,size,ref,cgpara);
inherited a_loadfpu_ref_cgpara(list,size,ref,cgpara); end
end; else
inherited a_loadfpu_ref_cgpara(list,size,ref,cgpara);
end; end;