diff --git a/sys/md/vm_pmap.pas b/sys/md/vm_pmap.pas index 824f1013..19807917 100644 --- a/sys/md/vm_pmap.pas +++ b/sys/md/vm_pmap.pas @@ -913,6 +913,9 @@ begin //map to GPU if (prot and VM_PROT_GPU_ALL)<>0 then begin + //extra obj link + vm_nt_file_obj_reference(info.obj); + // r:=vm_nt_map_insert(@pmap^.gp_map, info.obj, info.olocal, //block local offset @@ -990,6 +993,9 @@ begin //map to GPU if (prot and VM_PROT_GPU_ALL)<>0 then begin + //extra obj link + vm_nt_file_obj_reference(info.obj); + // r:=vm_nt_map_insert(@pmap^.gp_map, info.obj, info.olocal, //block local offset @@ -1049,6 +1055,9 @@ begin //map to GPU if (prot and VM_PROT_GPU_ALL)<>0 then begin + //extra obj link + vm_nt_file_obj_reference(info.obj); + // r:=vm_nt_map_insert(@pmap^.gp_map, info.obj, info.olocal, //block local offset @@ -1154,6 +1163,9 @@ begin //map to GPU if (prot and VM_PROT_GPU_ALL)<>0 then begin + //extra obj link + vm_nt_file_obj_reference(info.obj); + // r:=vm_nt_map_insert(@pmap^.gp_map, info.obj, info.olocal, //block local offset @@ -1217,6 +1229,9 @@ begin //map to GPU if (prot and VM_PROT_GPU_ALL)<>0 then begin + //extra obj link + vm_nt_file_obj_reference(info.obj); + // r:=vm_nt_map_insert(@pmap^.gp_map, info.obj, info.offset, //offset in file @@ -1314,6 +1329,9 @@ begin //map to GPU if (p____obj<>nil) then begin + //extra obj link + vm_nt_file_obj_reference(p____obj); + // r:=vm_nt_map_insert(@pmap^.gp_map, p____obj, p_offset, //block local offset diff --git a/sys/vfs/vfs_vnops.pas b/sys/vfs/vfs_vnops.pas index 2b8aab28..2aca8347 100644 --- a/sys/vfs/vfs_vnops.pas +++ b/sys/vfs/vfs_vnops.pas @@ -1164,7 +1164,7 @@ out_last: if (error<>0) then begin - Assert(false,'vn_io_fault'); + Assert(false,'vn_io_fault:'+IntToStr(error)); end; if (rl_cookie<>nil) then