From 9f7ade76239c0954d59a7c0c1c11013c7f4eb6a6 Mon Sep 17 00:00:00 2001 From: Ross Patterson Date: Wed, 6 Nov 2024 13:26:46 -0500 Subject: [PATCH] Merge fix for Issue #9 from CMS370-BREXX --- ChangeLog | 3 +++ src/interpre.c | 7 +++++++ 2 files changed, 10 insertions(+) diff --git a/ChangeLog b/ChangeLog index 877721ba..ae403980 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,6 @@ +mm/yyyy + * Release x.y.z + Fix issue #9: SIGL not set 04/2011 Vasilis Vlachoudis * Release 2.1.9: Support for ANDROID diff --git a/src/interpre.c b/src/interpre.c index 28b793bd..0880e30a 100644 --- a/src/interpre.c +++ b/src/interpre.c @@ -1284,6 +1284,10 @@ RxInterpret( void ) if (func->label==UNKNOWN_LABEL) Lerror(ERR_UNEXISTENT_LABEL,1,&(leaf->key)); + + /* Set SIGL to the line we're jumping from. */ + RxSetSpecialVar(SIGLVAR, TraceCurline(NULL, FALSE)); + /* jump */ Rxcip=(CIPTYPE*)((byte huge *)Rxcodestart+func->label); goto main_loop; @@ -1303,6 +1307,9 @@ RxInterpret( void ) /* clear stack */ RxStckTop = _proc[_rx_proc].stacktop; + /* Set SIGL to the line we're jumping from. */ + RxSetSpecialVar(SIGLVAR, TraceCurline(NULL, FALSE)); + /* jump */ Rxcip = (CIPTYPE*)((byte huge *)Rxcodestart + (size_t)(func->label)); goto main_loop;