From 9e0a1581a9b600e41ef34e848d9a62cbe98b5d8d Mon Sep 17 00:00:00 2001
From: Pavel <68122101+red-prig@users.noreply.github.com>
Date: Fri, 12 Jan 2024 12:59:24 +0300
Subject: [PATCH] +

---
 sys/md/vm_pmap.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/sys/md/vm_pmap.pas b/sys/md/vm_pmap.pas
index 0050d3f1..486bbd93 100644
--- a/sys/md/vm_pmap.pas
+++ b/sys/md/vm_pmap.pas
@@ -604,7 +604,7 @@ begin
          if (paddi<>0) then
          begin
           //padding as private pages
-          r:=md_enter(Pointer(__end-paddi),paddi,wprots[prot and VM_RWX]);
+          r:=md_enter(Pointer(VM_DEFAULT_MAP_BASE+__end-paddi),paddi,wprots[prot and VM_RWX]);
 
           if (r<>0) then
           begin
@@ -644,7 +644,7 @@ begin
        //
        pmap_mark(start,delta,QWORD(base),prot and VM_RWX);
        //
-       pmap_mark(delta,__end,delta,prot and VM_RWX);
+       pmap_mark(delta,__end,VM_DEFAULT_MAP_BASE+delta,prot and VM_RWX);
       end else
       begin
        pmap_mark(start,__end,QWORD(base),prot and VM_RWX);