Implement KeHaltSystem() routine

xtoskrnl/includes/ke.h

@@ -17,6 +17,10 @@ XTAPI
 VOID
 KeClearEvent(IN PKEVENT Event);
 
+XTAPI
+VOID
+KeHaltSystem();
+
 XTAPI
 VOID
 KeInitializeEvent(OUT PKEVENT Event,

xtoskrnl/ke/krnlinit.c

@@ -32,12 +32,7 @@ KeStartXtSystem(IN PKERNEL_INITIALIZATION_BLOCK Parameters)
        KeInitializationBlock->ProtocolVersion != BOOT_PROTOCOL_VERSION)
     {
         /* Kernel and boot loader version mismatch */
-        for(;;)
-        {
-            /* Halt system */
-            ArClearInterruptFlag();
-            ArHalt();
-        }
+        KeHaltSystem();
     }
 
     /* Check if debugging enabled and if boot loader provided routine for debug printing */

xtoskrnl/ke/panic.c

@@ -9,6 +9,27 @@
 #include <xtos.h>
 
 
+/**
+ * Halts the system.
+ *
+ * @return This routine does not return any value.
+ *
+ * @since XT 1.0
+ */
+XTAPI
+VOID
+KeHaltSystem()
+{
+    /* Enter infinite loop */
+    for(;;)
+    {
+        /* Halt system */
+        ArClearInterruptFlag();
+        ArHalt();
+    }
+
+}
+
 /**
  * Crashes the system upon detecting a fatal error in which either it is unable to recover or continue to run system.
  *