From d2a7d09931d84922234eaabfdd09ca9b62404bc3 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Tue, 1 Jan 2013 14:59:30 +0000
Subject: [PATCH] * use pascal loop, so it can be better optimized

git-svn-id: trunk@23273 -
---
 rtl/embedded/arm/lpc21x4.pp | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/rtl/embedded/arm/lpc21x4.pp b/rtl/embedded/arm/lpc21x4.pp
index a3ab2c4fd6..3ce948ff71 100644
--- a/rtl/embedded/arm/lpc21x4.pp
+++ b/rtl/embedded/arm/lpc21x4.pp
@@ -419,10 +419,12 @@ unit lpc21x4;
 
     procedure PASCALMAIN; external name 'PASCALMAIN';
 
-    procedure _FPC_haltproc; assembler; nostackframe; public name '_haltproc';
-      asm
-      .Lhalt:
-        b .Lhalt
+    procedure _FPC_haltproc; public name '_haltproc';
+      label
+        Lhalt;
+      begin
+      Lhalt:
+        goto Lhalt;
       end;
 
     var