paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-02 00:10:31 +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
begin
{ 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
//list.concat(tai_comment.create(strpnew('a_load_ref_cgpara: g_concatcopy')));
cgpara.check_simple_location;
len:=align(cgpara.intsize,cgpara.alignment);
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);
begin
case cgpara.location^.loc of
LOC_REFERENCE,LOC_CREFERENCE:
begin
case size of
OS_F64,
OS_F32:
a_load_ref_cgpara(list,size,ref,cgpara);
else
internalerror(2013021201);
if current_settings.fputype = fpu_soft then
case cgpara.location^.loc of
LOC_REFERENCE,LOC_CREFERENCE:
begin
case size of
OS_F64:
cg64.a_load64_ref_cgpara(list,ref,cgpara);
OS_F32:
a_load_ref_cgpara(list,size,ref,cgpara);
else
internalerror(2013021201);
end;
end;
end;
else
inherited a_loadfpu_ref_cgpara(list,size,ref,cgpara);
end;
else
inherited a_loadfpu_ref_cgpara(list,size,ref,cgpara);
end
else
inherited a_loadfpu_ref_cgpara(list,size,ref,cgpara);
end;