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

* copy unique return value to address register on m68k

Browse Source 
git-svn-id: trunk@5554 -
This commit is contained in:
florian 2006-12-07 20:10:00 +00:00
parent 72c7d5b6c0
commit 84726ed76c
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/ncgmem.pas
View File

@ -637,7 +637,14 @@ implementation
case left.location.loc of case left.location.loc of
LOC_REGISTER, LOC_REGISTER,
LOC_CREGISTER : LOC_CREGISTER :
location.reference.base:=left.location.register; begin
{$ifdef m68k}
location.reference.base:=cg.getaddressregister(current_asmdata.CurrAsmList);
cg.a_load_reg_reg(current_asmdata.CurrAsmList,OS_ADDR,OS_ADDR,left.location.register,location.reference.base);
{$else m68k}
location.reference.base:=left.location.register;
{$endif m68k}
end;
LOC_CREFERENCE, LOC_CREFERENCE,
LOC_REFERENCE : LOC_REFERENCE :
begin begin