paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 08:30:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

Amicommon: Change back WindowPtr in DiskSize/DiskFree

Browse Source 
git-svn-id: trunk@29299 -
This commit is contained in:
marcus 2014-12-14 22:38:05 +00:00
parent 788c6a6f83
commit 7c42cb8b0c
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/amicommon/dos.pp
View File

@ -631,6 +631,8 @@ begin
DiskSize := Int64(Inf.id_NumBlocks) * Inf.id_BytesPerBlock;
UnLock(DirLock);
end;
if OldWinPtr <> Pointer(-1) then
MyProc^.pr_WindowPtr := OldWinPtr;
end;
function DiskSize(Drive: Byte): Int64;
@ -663,6 +665,8 @@ begin
DiskFree := Int64(Inf.id_NumBlocks - Inf.id_NumBlocksUsed) * Inf.id_BytesPerBlock;
UnLock(DirLock);
end;
if OldWinPtr <> Pointer(-1) then
MyProc^.pr_WindowPtr := OldWinPtr;
end;
function DiskFree(Drive: Byte): Int64;

4
rtl/amicommon/sysutils.pp
View File

@ -640,6 +640,8 @@ begin
DiskSize := Int64(Inf.id_NumBlocks) * Inf.id_BytesPerBlock;
UnLock(DirLock);
end;
if OldWinPtr <> Pointer(-1) then
MyProc^.pr_WindowPtr := OldWinPtr;
end;
function DiskSize(Drive: Byte): Int64;
@ -672,6 +674,8 @@ begin
DiskFree := Int64(Inf.id_NumBlocks - Inf.id_NumBlocksUsed) * Inf.id_BytesPerBlock;
UnLock(DirLock);
end;
if OldWinPtr <> Pointer(-1) then
MyProc^.pr_WindowPtr := OldWinPtr;
end;
function DiskFree(Drive: Byte): Int64;