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

* CrtCtrlBreakHandler may not be invoked for Ctrl-C on certain platforms (Win32/Win64) - made conditional (preparation for future use as platform independent include file)

Browse Source 
git-svn-id: trunk@35053 -
This commit is contained in:
Tomas Hajny 2016-12-03 23:41:03 +00:00
parent 63c3fc59d4
commit 7956cb5d48
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/rtl-console/src/inc/crt.inc
View File

@ -402,11 +402,17 @@ begin
if CtrlBreak then if CtrlBreak then
CrtCtrlBreakHandler := not (CheckBreak) CrtCtrlBreakHandler := not (CheckBreak)
else (* Ctrl-C pressed *) else (* Ctrl-C pressed *)
{$IFDEF FPC_CRT_CTRLC_TREATED_AS_KEY}
(* If Ctrl-C is really treated as a key, the following branch should never *)
(* be executed, but let's stay on the safe side and ensure predictability. *)
CrtCtrlBreakHandler := false;
{$ELSE FPC_CRT_CTRLC_TREATED_AS_KEY}
begin begin
if not (SpecialKey) and (ScanCode = 0) then if not (SpecialKey) and (ScanCode = 0) then
ScanCode := 3; ScanCode := 3;
CrtCtrlBreakHandler := true; CrtCtrlBreakHandler := true;
end; end;
{$ENDIF FPC_CRT_CTRLC_TREATED_AS_KEY}
end; end;