From ddaa266c12835acc2a2c6e0b4cbe7152426d49ae Mon Sep 17 00:00:00 2001
From: David Banks <dave@hoglet.com>
Date: Tue, 15 Oct 2019 16:28:55 +0100
Subject: [PATCH] z80: fix a T80 build error on Spartan 3

Change-Id: I6fca1eea44e1cc8e244d3d892ee25e0b7fea9eac
---
 src/T80/T80.vhd | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/T80/T80.vhd b/src/T80/T80.vhd
index 391394d..83a301b 100644
--- a/src/T80/T80.vhd
+++ b/src/T80/T80.vhd
@@ -734,7 +734,7 @@ begin
 						F(Flag_N) <= DI_Reg(7);
 						F(Flag_C) <= ioq(8);
 						F(Flag_H) <= ioq(8);
-						ioq := (ioq and x"7") xor ('0'&BusA);
+						ioq := (ioq and ('0'&x"07")) xor ('0'&BusA);
 						F(Flag_P) <= not (ioq(0) xor ioq(1) xor ioq(2) xor ioq(3) xor ioq(4) xor ioq(5) xor ioq(6) xor ioq(7));
 					end if;