From acbf73ec6eff276a7511d153413adacf4ef82e19 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Wed, 16 Oct 2013 13:50:18 +0000
Subject: [PATCH] * stack frame eliminated also in fpc_longJmp for i8086

git-svn-id: trunk@25804 -
---
 rtl/i8086/setjump.inc | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/rtl/i8086/setjump.inc b/rtl/i8086/setjump.inc
index b9aa004e64..1cc9107be7 100644
--- a/rtl/i8086/setjump.inc
+++ b/rtl/i8086/setjump.inc
@@ -34,11 +34,10 @@ end;
 
 Procedure fpc_longJmp (Var S : Jmp_buf; value : smallint); assembler;nostackframe;[Public, alias : 'FPC_LONGJMP']; compilerproc;
 asm
-  push bp
-  mov bp, sp
+  mov si, sp
 
-  mov bx, ss:[bp + 6 + extra_param_offset]  // S
-  mov ax, ss:[bp + 4 + extra_param_offset]  // value
+  mov bx, ss:[si + 4 + extra_param_offset]  // S
+  mov ax, ss:[si + 2 + extra_param_offset]  // value
   test ax, ax
   jnz @@L1
   inc ax