paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-07-17 01:26:01 +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);
{ Subscribed access }
if forceref or
(sofs<>0) then
{$ifdef avr}
(sofs>=tcgsize2size[sym.localloc.size])
{$else avr}
(sofs<>0)
{$endif avr}
then
begin
op.typ:=top_ref;
new(op.ref);
@ -196,6 +201,14 @@ interface
begin
op.typ:=top_reg;
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;
LOC_FPUREGISTER,