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

* fixed compilation of unit keyboard in i8086 medium memory model

Browse Source 
git-svn-id: trunk@25501 -
This commit is contained in:
nickysn 2013-09-16 16:33:54 +00:00
parent a5284881f5
commit 5b9341df76
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/keyboard.inc
View File

@ -319,7 +319,7 @@ end;
procedure SetKbdCtrlBreakHandler; procedure SetKbdCtrlBreakHandler;
begin begin
PrevCtrlBreakHandler := SysSetCtrlBreakHandler (@KbdCtrlBreakHandler); PrevCtrlBreakHandler := SysSetCtrlBreakHandler (@KbdCtrlBreakHandler);
if PrevCtrlBreakHandler = TCtrlBreakHandler (pointer (-1)) then if PrevCtrlBreakHandler = TCtrlBreakHandler (codepointer (-1)) then
PrevCtrlBreakHandler := nil; PrevCtrlBreakHandler := nil;
end; end;