paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 00:39:38 +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

9
compiler/ncgmem.pas
View File

@ -637,7 +637,14 @@ implementation
case left.location.loc of
LOC_REGISTER,
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_REFERENCE :
begin