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

* patch by Christo Crause: fix startup code for avrtiny subarch, resolves #36650

Browse Source 
git-svn-id: trunk@44100 -
(cherry picked from commit 7d283f530e)
This commit is contained in:
florian 2020-02-02 19:18:39 +00:00
parent 61c6c04f71
commit be4c56a05c
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -16,17 +16,20 @@
ldi XH,hi8(_data)
ldi YH,hi8(_edata)
ldi ZL,lo8(_etext)
{$ifdef CPUAVR_16_REGS}
ldi ZH,hi8(_etext)+(0x40) // program memory mapped to $4000 in data space
{$else CPUAVR_16_REGS}
ldi ZH,hi8(_etext)
{$endif CPUAVR_16_REGS}
rjmp .LCopyDataLoopEntry
.LCopyDataLoop:
{$ifdef CPUAVR_16_REGS}
//!!!! FIXME? lpm r0, Z+
//!!!! FIXME? st X+, r0
ld r16, Z+
{$else CPUAVR_16_REGS}
lpm r16, Z+
st X+, r16
{$endif CPUAVR_16_REGS}
st X+, r16
.LCopyDataLoopEntry:
cpi XL, lo8(_edata)