zx128: still hunting swap bugs

diff --git a/Kernel/platform-zx128/bank128.c b/Kernel/platform-zx128/bank128.c
index d856672..0a2823e 100644 (file)
--- a/Kernel/platform-zx128/bank128.c
+++ b/Kernel/platform-zx128/bank128.c
@@ -70,6 +70,8 @@ int swapout(ptptr p)
 
        /* We mever swap the live process so the second page is always
           page 6 */
+        if (low_bank == p)
+               panic("swapout");
 
        /* Are we out of swap ? */
        map = swapmap_alloc();