From bbcc66ad1507cf4a9f4a54d00e54ae2a1164b00a Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sat, 2 May 2015 19:18:10 +0000
Subject: [PATCH] * PASCALMAIN does not return, so we can jmp to it

git-svn-id: trunk@30770 -
---
 rtl/embedded/avr/start.inc | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/rtl/embedded/avr/start.inc b/rtl/embedded/avr/start.inc
index 09011bfdd4..808e3e7e5a 100644
--- a/rtl/embedded/avr/start.inc
+++ b/rtl/embedded/avr/start.inc
@@ -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