* HaltProc does not return

git-svn-id: trunk@49504 -

rtl/embedded/arm/cortexm0_start.inc

@@ -9,7 +9,7 @@ var
 
 procedure Pascalmain; external name 'PASCALMAIN';
 
-procedure HaltProc; assembler; nostackframe; public name'_haltproc';
+procedure HaltProc; assembler; nostackframe; public name'_haltproc'; noreturn;
 asm
 .Lloop:
    b .Lloop

rtl/embedded/arm/cortexm3_start.inc

@@ -9,7 +9,7 @@ var
 
 procedure Pascalmain; external name 'PASCALMAIN';
 
-procedure HaltProc; assembler; nostackframe; public name'_haltproc';
+procedure HaltProc; assembler; nostackframe; public name'_haltproc'; noreturn;
 asm
 .Lloop:
    b .Lloop