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

Handle simple cases where a record member is passed in a register on AVR, and referenced from inline assembly.

Browse Source 
git-svn-id: trunk@37864 -
This commit is contained in:
Jeppe Johansen 2017-12-29 14:01:39 +00:00
parent d997db7fa7
commit e699be78ab
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/ncgbas.pas
View File

@ -181,7 +181,12 @@ interface
MessagePos(filepos,asmr_e_invalid_reference_syntax); MessagePos(filepos,asmr_e_invalid_reference_syntax);
{ Subscribed access } { Subscribed access }
if forceref or if forceref or
(sofs<>0) then {$ifdef avr}
(sofs>=tcgsize2size[sym.localloc.size])
{$else avr}
(sofs<>0)
{$endif avr}
then
begin begin
op.typ:=top_ref; op.typ:=top_ref;
new(op.ref); new(op.ref);
@ -196,6 +201,14 @@ interface
begin begin
op.typ:=top_reg; op.typ:=top_reg;
op.reg:=sym.localloc.register; op.reg:=sym.localloc.register;
{$ifdef avr}
case sofs of
1: op.reg:=cg.GetNextReg(op.reg);
2: op.reg:=cg.GetNextReg(cg.GetNextReg(op.reg));
3: op.reg:=cg.GetNextReg(cg.GetNextReg(cg.GetNextReg(op.reg)));
end;
{$endif avr}
end; end;
end; end;
LOC_FPUREGISTER, LOC_FPUREGISTER,