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

Remove redundant ctrl-c enable and disable.

Browse Source
This commit is contained in:
Margers 2024-09-11 01:56:04 +00:00 committed by Michael Van Canneyt
parent 359d23e595
commit e945c65255
1 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/ide/wconsole.pas
View File

@ -74,10 +74,7 @@ Begin
IntToStr(GetLastError),0,0);
{$endif Windows}
{$ifdef go32v2}
if djgpp_set_ctrl_c(false) then
ConsoleMode:=1
else
ConsoleMode:=0;
ConsoleMode:=0;
{$endif go32v2}
{$ifdef netware}
ConsoleMode:=0;
@ -94,9 +91,6 @@ Begin
DebugMessage('','Call to SetConsoleMode failed, GetLastError='+
IntToStr(GetLastError),0,0);
{$endif Windows}
{$ifdef go32v2}
djgpp_set_ctrl_c((ConsoleMode and 1)<>0);
{$endif go32v2}
End;
end.