paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 03:59:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

m68k: build fix. (changes before commit is a bad idea...)

Browse Source 
git-svn-id: trunk@33817 -
This commit is contained in:
Károly Balogh 2016-05-26 14:47:16 +00:00
parent 2bfa1b995a
commit 766eeffc69
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/m68k/n68kadd.pas
View File

@ -444,8 +444,8 @@ implementation
hlcg.location_force_reg(current_asmdata.CurrAsmList,left.location,left.resultdef,left.resultdef,true); hlcg.location_force_reg(current_asmdata.CurrAsmList,left.location,left.resultdef,left.resultdef,true);
if (current_settings.cputype = cpu_mc68000) and isaddressregister(left.location.register) then if (current_settings.cputype = cpu_mc68000) and isaddressregister(left.location.register) then
begin begin
tmpreg:=cg.getintregister(current_asmdata.CurrAsmList,opsize); tmpreg:=cg.getintregister(current_asmdata.CurrAsmList,cmpsize);
cg.a_load_reg_reg(current_asmdata.CurrAsmList,OS_ADDR,opsize,left.location.register,tmpreg); cg.a_load_reg_reg(current_asmdata.CurrAsmList,OS_ADDR,cmpsize,left.location.register,tmpreg);
end end
else else
tmpreg:=left.location.register; tmpreg:=left.location.register;