From 158c749a7ee13f1d78f0b0cf59e8ea985f293646 Mon Sep 17 00:00:00 2001
From: Mark Pizzolato <mark@infocomm.com>
Date: Tue, 20 Jun 2023 18:57:51 -1000
Subject: [PATCH] SCP: Directly call disk and tape detach routines when
 detach_unit is called

---
 scp.c | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/scp.c b/scp.c
index b74019f1..2b5f0eb2 100644
--- a/scp.c
+++ b/scp.c
@@ -8724,6 +8724,10 @@ if (!(uptr->flags & UNIT_ATT)) {                        /* not attached? */
     }
 if ((dptr = find_dev_from_unit (uptr)) == NULL)
     return SCPE_OK;
+if ((dptr->flags & DEV_DISK) && ((dptr->flags & DEV_TAPE) == 0))
+    return sim_disk_detach (uptr);
+if ((dptr->flags & DEV_TAPE) && ((dptr->flags & DEV_DISK) == 0))
+    return sim_tape_detach (uptr);
 if ((uptr->flags & UNIT_BUF) && (uptr->filebuf)) {
     uint32 cap = (uptr->hwmark + dptr->aincr - 1) / dptr->aincr;
     if (((uptr->flags & UNIT_RO) == 0) &&