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

Fix merge error that resulted in wrong position of finalization code

Browse Source 
git-svn-id: trunk@30432 -
This commit is contained in:
pierre 2015-04-05 08:58:54 +00:00
parent c4617ee2ad
commit 59e2728940
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/rtl-console/src/win/crt.pp
View File

@ -954,12 +954,6 @@ Initialization
FillChar(ConsoleInfo, SizeOf(ConsoleInfo), 0);
GetConsoleScreenBufferInfo(GetStdHandle(STD_OUTPUT_HANDLE), ConsoleInfo);
finalization
if beeperDevice <> INVALID_HANDLE_VALUE then begin
nosound;
CloseHandle(beeperDevice);
DefineDosDevice(DDD_REMOVE_DEFINITION,'DosBeep','\Device\Beep');
end;
TextAttr := ConsoleInfo.wAttributes;
{ Not required, the dos crt does also not touch the mouse }
@ -982,4 +976,10 @@ finalization
AssignCrt(Input);
Reset(Input);
TextRec(Input).Handle:= GetStdHandle(STD_INPUT_HANDLE);
finalization
if beeperDevice <> INVALID_HANDLE_VALUE then begin
nosound;
CloseHandle(beeperDevice);
DefineDosDevice(DDD_REMOVE_DEFINITION,'DosBeep','\Device\Beep');
end;
end. { unit Crt }