f0044

adesutherland · Sep 20, 2020 · db68ed3 · db68ed3
1 parent f534bd8
commit db68ed3
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 3 deletions.
diff --git a/changelog.txt b/changelog.txt
@@ -1,6 +1,7 @@
 GCCLIB Change LOG
 =================
 
+F0044 - Fix for __ZONE when HRC700DK not installed
 F0043 - Fix for Calltype 5 allocation (double word not fullword)
       - cmssys.assemble
         __STACKN entry point to call the SENTRIES command provided by HRC406DS

diff --git a/cmssys.assemble b/cmssys.assemble
@@ -1165,10 +1165,14 @@ WRTRM2PL EQU   *-WRTRM2P
          USING CMSSYS,R12
          LA    R1,DIAG0BUF
          LA    R0,40
-         DC    X'83100000'    Issue Diagnose instruction for
+         DC    X'83100000'     Issue Diagnose instruction for
 *                               code X'0000' to fetch CP info
+         LTR   R0,R0           Is R0 Positive?
+         BC    2,ZONE1         Yeah R0 > 0 so no time zone info
          L     R15,DIAG0BUF+32 Return the time zone offset
-         PDPEPIL
+         B     ZONE2
+ZONE1    SR    R15,R15
+ZONE2    PDPEPIL
          EJECT
 * ---------------------------------------------------------------------
 * Literal pool

diff --git a/cmssys.h b/cmssys.h
@@ -8,7 +8,7 @@
 #ifndef CMSSYS_INCLUDED
 #define CMSSYS_INCLUDED
 
-#define GCCLIB_VERSION "F0043"
+#define GCCLIB_VERSION "F0044"
 
 #include <stddef.h>
 #include <stdarg.h>