v0.9.9

adesutherland · Nov 26, 2020 · 2242dc7 · 2242dc7
1 parent ea576d2
commit 2242dc7
Show file tree

Hide file tree

Showing 4 changed files with 8 additions and 6 deletions.
diff --git a/changelog.txt b/changelog.txt
@@ -1,6 +1,8 @@
 BREXX CMS Change LOG
 ====================
 
+CMS-0.9.9 - 26 Nov 2020
+      - Initial fixes for X2D() - not complete
 F0031 - Fix - Memory Leak with abnormal exits
 F0030 - DATATYPE() fixes
       - Removed bifs_ exec

diff --git a/config.h b/config.h
@@ -1,7 +1,7 @@
 /* Modified for VM/370 CMS and GCC by Robert O'Hara, July 2010. */
 
 /* The one version to rule them all! */
-#define CMS_VERSION "F0031"
+#define CMS_VERSION "0.9.9"
 /*
 #define CMS_VERSION "0.9.8"
 #define CMS_VERSION "F0020"

diff --git a/tests/x2d_.exec b/tests/x2d_.exec
@@ -5,15 +5,15 @@ if x2d('0E') \== 14 then say 'failed in test 1 '
 if x2d('81') \== 129 then say 'failed in test 2 '
 if x2d('F81') \== 3969 then say 'failed in test 3 '
 if x2d('FF81') \== 65409 then say 'failed in test 4 '
-/* if x2d('c6 f0'x) \== 240 then say 'failed in test EBCDIC version */
+if x2d('c6 f0'x) \== 240 then say 'failed in test 5 ''
 if x2d('F0') \== 240 then say 'failed in test 6 '
 if x2d('81',2) \== -127 then say 'failed in test 7 '
 if x2d('81',4) \== 129 then say 'failed in test 8 '
 if x2d('F081',4) \== -3967 then say 'failed in test 9 '
 if x2d('F081',3) \== 129 then say 'failed in test 10 '
 if x2d('F081',2) \== -127 then say 'failed in test 11 '
 if x2d('F081',1) \== 1 then say 'failed in test 12 '
-/* if x2d('0031',0) \== 0 then say 'failed in test 13 '*/
+if x2d('0031',0) \== 0 then say 'failed in test 13 ''
 /* These from Mark Hessling. */
 if x2d( 'ff80', 2) \== "-128" then say 'failed in test 14 '
 if x2d( 'ff80', 1) \== "0" then say 'failed in test 15 '
@@ -65,7 +65,7 @@ if X2D(ABS(RIGHT(LEFT(REVERSE(321),2),REVERSE(LEFT(123,ABS(-1)))))) \== '2' then
 if X2D(COPIES(0,249)||1) \== '1' then say 'failed in test 60 '
 if X2D(RIGHT(LEFT(REVERSE(321),2),REVERSE(LEFT(123,ABS(-1))))) \== '2' then say 'failed in test 61 '
 /* These from SCBx2d1 */
-/* if X2D('') \== '0' then say 'failed in test 62 ' brexx fails*/
+if X2D('') \== '0' then say 'failed in test 62 '
 if x2d(''X) \== '0' then say 'failed in test 63 '
 if X2D('a') \== '10' then say 'failed in test 64 '
 if X2D('0f') \== '15' then say 'failed in test 65 '

diff --git a/x2d.c b/x2d.c
@@ -28,14 +28,14 @@ Lx2d( const PLstr to, const PLstr from, long n )
 
  if (n<=0) {
   Lx2c(&tmp,from);
-  Lc2d(to,&tmp,0);
+  Lc2d(to,&tmp,-1);
  } else {
   if (n>8) n=8;
   Lspace(&tmp,from,0,' ');
   Lright(to,&tmp,n,'0');
   sign = HEXVAL(LSTR(*to)[0]) & 0x8;
   Lx2c(&tmp,to);
-  Lc2d(to,&tmp,0);
+  Lc2d(to,&tmp,-1);
   if (sign) {
    if (n==sizeof(long)*2)
     LINT(*to) = -(~LINT(*to) + 1);