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

* merge kbPhys patch from fixes branch

Browse Source
This commit is contained in:
pierre 2002-08-28 06:35:30 +00:00
parent 4bf6a0c362
commit a48f4fc217
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/go32v2/keyboard.pp
View File

@ -36,7 +36,7 @@ begin
realintr($16,regs); realintr($16,regs);
if (regs.al=$e0) and (regs.ah<>0) then if (regs.al=$e0) and (regs.ah<>0) then
regs.al:=0; regs.al:=0;
SysGetKeyEvent:=regs.ax or ((mem[$40:$17] and $f) shl 16); SysGetKeyEvent:=(kbPhys shl 24) or regs.ax or ((mem[$40:$17] and $f) shl 16);
end; end;
@ -50,7 +50,7 @@ begin
exit(0); exit(0);
if (regs.al=$e0) and (regs.ah<>0) then if (regs.al=$e0) and (regs.ah<>0) then
regs.al:=0; regs.al:=0;
SysPollKeyEvent:=regs.ax or ((mem[$40:$17] and $f) shl 16); SysPollKeyEvent:=(kbPhys shl 24) or regs.ax or ((mem[$40:$17] and $f) shl 16);
end; end;
@ -77,7 +77,13 @@ end.
{ {
$Log$ $Log$
Revision 1.2 2001-09-21 21:33:35 michael Revision 1.3 2002-08-28 06:35:30 pierre
* merge kbPhys patch from fixes branch
Revision 1.1.2.3 2002/07/13 12:22:03 pierre
* added kbPhys flag
Revision 1.2 2001/09/21 21:33:35 michael
+ Merged driver support from fixbranch + Merged driver support from fixbranch
Revision 1.1.2.2 2001/09/21 21:20:43 michael Revision 1.1.2.2 2001/09/21 21:20:43 michael