vfdl

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

src/vmemorymanager.pas

@@ -73,7 +73,8 @@ begin
     map_page:= false;
     PageDirectory^[page_number].Present:= true;
     addr:= block;
-    PageDirectory^[page_number].Address:= addr;
+    writehexln(block);
+    PageDirectory^[page_number].Address:= addr SHL 9;
     PageDirectory^[page_number].PageSize:= true;
     PageDirectory^[page_number].Writable:= true;
     rldpd:= uint32(PageDirectory) - KERNEL_VIRTUAL_BASE;