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

* PASCALMAIN does not return, so we can jmp to it

Browse Source 
git-svn-id: trunk@30770 -
This commit is contained in:
florian 2015-05-02 19:18:10 +00:00
parent ca9ef3d209
commit bbcc66ad15
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -6,7 +6,7 @@
out 0x3d,r30 out 0x3d,r30
ldi r30,hi8(_stack_top) ldi r30,hi8(_stack_top)
out 0x3e,r30 out 0x3e,r30
// Initialize .data section // Initialize .data section
ldi XL,lo8(_data) ldi XL,lo8(_data)
ldi XH,hi8(_data) ldi XH,hi8(_data)
@ -16,23 +16,22 @@
.LCopyDataLoop: .LCopyDataLoop:
lpm r0, Z+ lpm r0, Z+
st X+, r0 st X+, r0
cpi XL, lo8(_edata) cpi XL, lo8(_edata)
cpc XH, YH cpc XH, YH
brne .LCopyDataLoop brne .LCopyDataLoop
// Zero .bss section // Zero .bss section
ldi XL,lo8(_bss_start) ldi XL,lo8(_bss_start)
ldi XH,hi8(_bss_start) ldi XH,hi8(_bss_start)
ldi YH,hi8(_bss_end) ldi YH,hi8(_bss_end)
.LZeroBssLoop: .LZeroBssLoop:
st X+, r1 st X+, r1
cpi XL, lo8(_bss_end) cpi XL, lo8(_bss_end)
cpc XH, YH cpc XH, YH
brne .LZeroBssLoop brne .LZeroBssLoop
call PASCALMAIN jmp PASCALMAIN
call _FPC_haltproc
.text .text