f

git-svn-id: https://spexeah.com:8443/svn/Asuro@137 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c

src/vmemorymanager.pas

@@ -85,7 +85,7 @@ begin
         exit;
     end else begin
         PageDirectory^[page_number].Present:= true;
-        PageDirectory^[page_number].Address:= block;
+        PageDirectory^[page_number].Address:= block SHL 4;
         PageDirectory^[page_number].PageSize:= true;
         PageDirectory^[page_number].Writable:= true;
         rldpd:= uint32(PageDirectory) - KERNEL_VIRTUAL_BASE;