paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 13:39:36 +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
ldi r30,hi8(_stack_top)
out 0x3e,r30
// Initialize .data section
ldi XL,lo8(_data)
ldi XH,hi8(_data)
@ -16,23 +16,22 @@
.LCopyDataLoop:
lpm r0, Z+
st X+, r0
cpi XL, lo8(_edata)
cpc XH, YH
brne .LCopyDataLoop
// Zero .bss section
ldi XL,lo8(_bss_start)
ldi XH,hi8(_bss_start)
ldi YH,hi8(_bss_end)
.LZeroBssLoop:
st X+, r1
cpi XL, lo8(_bss_end)
cpc XH, YH
brne .LZeroBssLoop
call PASCALMAIN
call _FPC_haltproc
jmp PASCALMAIN
.text