.DEBUG: Add utility function to dump memory page

Author: Kensan

kernel/debug/sk-dump.adb

@@ -16,6 +16,8 @@
 --  along with this program.  If not, see <http://www.gnu.org/licenses/>.
 --
 
+with System;
+
 with SK.KC;
 with SK.Debug_Lock;
 with SK.CPU_Info;
@@ -36,6 +38,26 @@ is
 
    -------------------------------------------------------------------------
 
+   procedure Dump_Page (Address : SK.Word64)
+   is
+      Mem_Page : array (0 .. SK.Page_Size - 1) of SK.Byte
+      with
+         Address => System'To_Address (Address);
+   begin
+      for I in Mem_Page'Range loop
+         if I mod 16 = 0 then
+            KC.New_Line;
+            KC.Put_String (Item => SK.Strings.Img (SK.Word16 (I)) & ": ");
+         end if;
+         KC.Put_String
+           (Item => SK.Strings.Img_Nobase (Item => Mem_Page (I)) & " ");
+      end loop;
+      KC.New_Line;
+      KC.New_Line;
+   end Dump_Page;
+
+   -------------------------------------------------------------------------
+
    procedure Print_Segment
      (Name : String;
       Seg  : Segment_Type)

kernel/debug/sk-dump.ads

@@ -75,4 +75,7 @@ is
      (Reason  : Crash_Audit_Types.VTx_Reason_Range;
       Context : Crash_Audit_Types.VTx_Context_Type);
 
+   --  Dump contents of the 4K memory page with given address.
+   procedure Dump_Page (Address : SK.Word64);
+
 end SK.Dump;