paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 23:19:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ tavraddrnode.pass_generate_code, avoiding unneeded moves

Browse Source 
git-svn-id: trunk@34973 -
This commit is contained in:
florian 2016-11-26 19:31:33 +00:00
parent bfb6d4d1b7
commit da7e1b3769
3 changed files with 89 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -121,6 +121,7 @@ compiler/avr/itcpugas.pas svneol=native#text/plain
compiler/avr/navradd.pas svneol=native#text/plain
compiler/avr/navrcnv.pas svneol=native#text/plain
compiler/avr/navrmat.pas svneol=native#text/plain
compiler/avr/navrmem.pas svneol=native#text/pascal
compiler/avr/navrutil.pas svneol=native#text/pascal
compiler/avr/raavr.pas svneol=native#text/plain
compiler/avr/raavrgas.pas svneol=native#text/plain

1
compiler/avr/cpunode.pas
View File

@ -37,6 +37,7 @@ unit cpunode;
,navradd
,navrmat
,navrcnv
,navrmem
,navrutil,
{ symtable }
symcpu,

87
compiler/avr/navrmem.pas Normal file
View File

@ -0,0 +1,87 @@
{
Copyright (c) 2016 by Florian Klaempfl
Code generation for memory related nodes on the AVR
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
****************************************************************************
}
unit navrmem;
{$i fpcdefs.inc}
interface
uses
nmem,ncgmem;
type
tavraddrnode = class(tcgaddrnode)
procedure pass_generate_code;override;
end;
implementation
uses
verbose,
cpubase,
aasmdata,
cgbase,cgutils,
hlcgobj,
node,
pass_2;
procedure tavraddrnode.pass_generate_code;
var
href : treference;
begin
secondpass(left);
href:=left.location.reference;
if ((href.addressmode=AM_UNCHANGED) and (href.offset=0) and not(assigned(href.symbol))) and
((href.base<>NR_NO) xor (href.index<>NR_NO)) then
begin
location_reset(location,LOC_CREGISTER,int_cgsize(resultdef.size));
if href.base<>NR_NO then
location.register:=href.base
else if href.index<>NR_NO then
location.register:=href.index
else
internalerror(2016112003);
end
else
begin
location_reset(location,LOC_REGISTER,int_cgsize(resultdef.size));
location.register:=hlcg.getaddressregister(current_asmdata.CurrAsmList,resultdef);
if not(left.location.loc in [LOC_REFERENCE,LOC_CREFERENCE]) then
{ on x86_64-win64, array of chars can be returned in registers, however,
when passing these arrays to other functions, the compiler wants to take
the address of the array so when the addrnode has been created internally,
we have to force the data into memory, see also tw14388.pp
}
if nf_internal in flags then
hlcg.location_force_mem(current_asmdata.CurrAsmList,left.location,left.resultdef)
else
internalerror(2006111510);
hlcg.a_loadaddr_ref_reg(current_asmdata.CurrAsmList,left.resultdef,resultdef,left.location.reference,location.register);
end;
end;
begin
caddrnode:=tavraddrnode;
end.