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

* reduce code size after r31031

Browse Source 
git-svn-id: trunk@31041 -
This commit is contained in:
florian 2015-06-13 17:00:32 +00:00
parent c0dd2047f9
commit ab43e07320
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/embedded/avr/start.inc
View File

@ -14,33 +14,29 @@
ldi ZL,lo8(_etext)
ldi ZH,hi8(_etext)
cpi XL, lo8(_edata)
cpc XH, YH
breq .LCopyDataLoopEnd
rjmp .LCopyDataLoopEntry
.LCopyDataLoop:
lpm r0, Z+
st X+, r0
.LCopyDataLoopEntry:
cpi XL, lo8(_edata)
cpc XH, YH
brne .LCopyDataLoop
.LCopyDataLoopEnd:
// Zero .bss section
ldi XL,lo8(_bss_start)
ldi XH,hi8(_bss_start)
ldi YH,hi8(_bss_end)
cpi XL, lo8(_bss_end)
cpc XH, YH
breq .LZeroBssLoopEnd
rjmp .LZeroBssLoopEntry
.LZeroBssLoop:
st X+, r1
.LZeroBssLoopEntry:
cpi XL, lo8(_bss_end)
cpc XH, YH
brne .LZeroBssLoop
.LZeroBssLoopEnd:
{$ifdef RELBRANCHES}
rjmp PASCALMAIN