paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 13:50:36 +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); IntToStr(GetLastError),0,0);
{$endif Windows} {$endif Windows}
{$ifdef go32v2} {$ifdef go32v2}
if djgpp_set_ctrl_c(false) then ConsoleMode:=0;
ConsoleMode:=1
else
ConsoleMode:=0;
{$endif go32v2} {$endif go32v2}
{$ifdef netware} {$ifdef netware}
ConsoleMode:=0; ConsoleMode:=0;
@ -94,9 +91,6 @@ Begin
DebugMessage('','Call to SetConsoleMode failed, GetLastError='+ DebugMessage('','Call to SetConsoleMode failed, GetLastError='+
IntToStr(GetLastError),0,0); IntToStr(GetLastError),0,0);
{$endif Windows} {$endif Windows}
{$ifdef go32v2}
djgpp_set_ctrl_c((ConsoleMode and 1)<>0);
{$endif go32v2}
End; End;
end. end.