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

* m68k/n68kcnv.pas, tm68ktypeconvnode.second_int_to_bool:

Browse Source 
use the size of the destination instead of the source for the destination register; fixes tenum6

git-svn-id: trunk@26835 -
This commit is contained in:
svenbarth 2014-02-22 14:35:30 +00:00
parent 1f22c2de22
commit 435dec656f
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/m68k/n68kcnv.pas
View File

@ -192,7 +192,8 @@ implementation
exit;
end;
location_reset(location,LOC_REGISTER,def_cgsize(left.resultdef));
newsize:=def_cgsize(resultdef);
location_reset(location,LOC_REGISTER,newsize);
opsize := def_cgsize(left.resultdef);
case left.location.loc of
LOC_CREFERENCE,LOC_REFERENCE :
@ -234,7 +235,7 @@ implementation
// reference_release(current_asmdata.CurrAsmList,left.location.reference);
end;
resflags:=F_NE;
hreg1:=cg.getintregister(current_asmdata.CurrAsmList,opsize);
hreg1:=cg.getintregister(current_asmdata.CurrAsmList,newsize);
end;
LOC_REGISTER,LOC_CREGISTER :
begin
@ -251,18 +252,18 @@ implementation
current_asmdata.CurrAsmList.concat(taicpu.op_reg(A_TST,TCGSize2OpSize[opsize],hreg2));
// cg.ungetcpuregister(current_asmdata.CurrAsmList,hreg2);
end;
hreg1:=cg.getintregister(current_asmdata.CurrAsmList,opsize);
hreg1:=cg.getintregister(current_asmdata.CurrAsmList,newsize);
resflags:=F_NE;
end;
LOC_FLAGS :
begin
hreg1:=cg.getintregister(current_asmdata.CurrAsmList,opsize);
hreg1:=cg.getintregister(current_asmdata.CurrAsmList,newsize);
resflags:=left.location.resflags;
end;
LOC_JUMP :
begin
{ for now blindly copied from nx86cnv }
location_reset(location,LOC_REGISTER,def_cgsize(resultdef));
location_reset(location,LOC_REGISTER,newsize);
location.register:=cg.getintregister(current_asmdata.CurrAsmList,location.size);
current_asmdata.getjumplabel(hlabel);
cg.a_label(current_asmdata.CurrAsmList,current_procinfo.CurrTrueLabel);