TranslationCPU: Always eventually handle IRQs

src/Emulator/Peripherals/Peripherals/CPU/TranslationCPU.cs

@@ -68,6 +68,7 @@ protected TranslationCPU(uint id, string cpuType, IMachine machine, Endianess en
             decodedIrqs = new Dictionary<Interrupt, HashSet<int>>();
             hooks = new Dictionary<ulong, HookDescriptor>();
             currentMappings = new List<SegmentMapping>();
+            deferred = new Queue<Tuple<int, bool>>();
             InitializeRegisters();
             Init();
             InitDisas();
@@ -258,6 +259,7 @@ public override ExecutionMode ExecutionMode
             {
                 base.ExecutionMode = value;
                 UpdateBlockBeginHookPresent();
+                SetDeferredIRQs();
             }
         }
 
@@ -300,6 +302,12 @@ protected override void OnLeavingResetState()
             TlibOnLeavingResetState();
         }
 
+        protected override void OnResume()
+        {
+            base.OnResume();
+            SetDeferredIRQs();
+        }
+
         protected override void RequestPause()
         {
             base.RequestPause();
@@ -361,6 +369,28 @@ public virtual void OnGPIO(int number, bool value)
                         sleeper.Interrupt();
                     }
                 }
+                else
+                {
+                    deferred.Enqueue(new Tuple<int, bool>(number, value));
+                }
+            }
+        }
+
+        private void SetDeferredIRQs()
+        {
+            if(started && (lastTlibResult == TlibExecutionResult.WaitingForInterrupt
+                           || !(DisableInterruptsWhileStepping && IsSingleStepMode)))
+            {
+                Tuple<int, bool> t;
+                while (deferred.TryDequeue(out t))
+                {
+                    TlibSetIrqWrapped(t.Item1, t.Item2);
+                    if(EmulationManager.Instance.CurrentEmulation.Mode !=
+                       Emulation.EmulationMode.SynchronizedIO)
+                    {
+                        sleeper.Interrupt();
+                    }
+                }
             }
         }
 
@@ -445,7 +475,18 @@ public void ClearPageAccessViaIo(ulong address)
             TlibClearPageIoAccessed(address);
         }
 
-        public bool DisableInterruptsWhileStepping { get; set; }
+        private bool disableInterruptsWhileStepping;
+        public bool DisableInterruptsWhileStepping {
+            get
+            {
+                return disableInterruptsWhileStepping;
+            }
+            set
+            {
+                disableInterruptsWhileStepping = value;
+                SetDeferredIRQs();
+            }
+        }
 
         // this is just for easier usage in Monitor
         public void LogFunctionNames(bool value, bool removeDuplicates = false)
@@ -2410,6 +2451,10 @@ public override ExecutionResult ExecuteInstructions(ulong numberOfInstructionsTo
                     this.Trace($"Asked tlib to execute {numberOfInstructionsToExecute}, but did nothing");
                 }
                 DebugHelper.Assert(numberOfExecutedInstructions <= numberOfInstructionsToExecute, "tlib executed more instructions than it was asked to");
+                if (lastTlibResult == TlibExecutionResult.WaitingForInterrupt)
+                {
+                    SetDeferredIRQs();
+                }
             }
 
             switch(lastTlibResult)
@@ -2447,6 +2492,7 @@ public void SetBroadcastDirty(bool enable)
         private Dictionary<ulong, HookDescriptor> hooks;
         private Dictionary<Interrupt, HashSet<int>> decodedIrqs;
         private bool isInterruptLoggingEnabled;
+        private Queue<Tuple<int, bool>> deferred;
 
         private class HookDescriptor
         {