From 54c42ba072af8821af2ff0c0406b8aa7ffbcbb39 Mon Sep 17 00:00:00 2001
From: Richard Cornwell <rich@sky-visions.com>
Date: Sat, 3 Jul 2021 15:48:07 -0400
Subject: [PATCH] IBM360: Fixed compile issue with Windows.

---
 IBM360/ibm360_cpu.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/IBM360/ibm360_cpu.c b/IBM360/ibm360_cpu.c
index 6f80d7b..2e24f4d 100644
--- a/IBM360/ibm360_cpu.c
+++ b/IBM360/ibm360_cpu.c
@@ -440,7 +440,7 @@ storepsw(uint32 addr, uint16 ircode)
                    break;
              }
              if (ircode & IRC_PER) {
-                M[150 >> 2] = ((uint32_t)per_code << 16) | (per_addr >> 16);
+                M[150 >> 2] = ((uint32)per_code << 16) | (per_addr >> 16);
                 M[154 >> 2] = ((per_addr & 0xffff) << 16) | (M[154 >> 2] & 0xFFFF);
              }
          } else {  /* IBM 360/67 under EC mode */