Feature/f0021 (#39)

* f0021 / v0.9.8

* Build hotfix

* Hotfix 2

changelog.txt

@@ -1,6 +1,8 @@
 BREXX CMS Change LOG
 ====================
 
+CMS-0.9.8 - 4 October 2020
+F0021 - Fixed Debug Context in interpre.c
 F0020 - EXECCOMM Support
 
 CMS-0.9.7 - 31 August 2020
@@ -26,6 +28,7 @@ F0016 - Mod HRC402DS support
         3/ HI/TS/TE changes
       - YATA Reads directly from READER (build script)
       - Builds on vm/370 container with builder tag (i.e. not latest)
+
 CMS-0.9.5 - 21 July 2020
 F0015 - IO Updates to leverage GCCLIB >= 0.7.13 / f0029
         (Stability and performance)

cmsbuild.sh

@@ -49,13 +49,13 @@ herccontrol "devinit 00d io/brexxsrc.vmarc" -w "^HHCPN098I"
 herccontrol "/cp disc" -w "^VM/370 Online"
 herccontrol "/logon cmsuser cmsuser" -w "RECONNECTED AT"
 herccontrol "/begin"
-herccontrol "/tape dump * * f" -w "^Ready;"
+herccontrol "/tape dump * * f (noprint" -w "^Ready;"
 herccontrol "/detach 181" -w "^Ready;"
-herccontrol "/vmarc pack * * f (pun" -w "^Ready;"
+herccontrol "/vmarc pack * * f (pun notrace" -w "^Ready;"
 
 # Build
 herccontrol "/ACC 193 E (ERASE" -w "^Ready;"
-herccontrol "/mkbrexx" -w "^Ready;" -t 250
+herccontrol "/mkbrexx" -w "^Ready;" -t 350
 herccontrol "/rename * * e = = e2" -w "^Ready;"
 
 # Sanity test

config.h

@@ -1,8 +1,8 @@
 /* Modified for VM/370 CMS and GCC by Robert O'Hara, July 2010. */
 
 /* The one version to rule them all! */
-/* #define CMS_VERSION "CMS-0.9.8" */
-#define CMS_VERSION "CMS-F0020"
+#define CMS_VERSION "0.9.8"
+/* #define CMS_VERSION "F0020" */
 /* #define __DEBUG__ */
 
 #include "rxmvs.h"

interpre.c

@@ -145,6 +145,7 @@ static void
 DebugStackList(void)
 {
  int i;
+ Context *context = (Context*)CMSGetPG();
  if ((context->interpre_RxStckTop)<0)
   printf("Stack is empty\n");
  else