paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-21 02:10:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed range chek errors in KeySymtoVKeyArray

Browse Source 
git-svn-id: trunk@4807 -
This commit is contained in:
marc 2003-11-15 15:30:34 +00:00
parent 761741953c
commit 84d8091301
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/interfaces/gtk/gtkproc.inc
View File

@ -1221,7 +1221,7 @@ var
begin begin
Result := nil; Result := nil;
K := AKeySym shr 24; K := Byte(AKeySym shr 24);
P3 := MKeySymToVK[K]; P3 := MKeySymToVK[K];
if P3 = nil if P3 = nil
then begin then begin
@ -1231,7 +1231,7 @@ begin
MKeySymToVK[K] := P3; MKeySymToVK[K] := P3;
end; end;
K := AKeySym shr 16; K := Byte(AKeySym shr 16);
P2 := P3^[K]; P2 := P3^[K];
if P2 = nil if P2 = nil
then begin then begin
@ -1241,7 +1241,7 @@ begin
P3^[K] := P2; P3^[K] := P2;
end; end;
K := AKeySym shr 8; K := Byte(AKeySym shr 8);
Result := P2^[K]; Result := P2^[K];
if Result = nil if Result = nil
then begin then begin
@ -5539,6 +5539,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.226 2003/11/15 15:30:34 marc
* Fixed range chek errors in KeySymtoVKeyArray
Revision 1.225 2003/11/07 22:50:44 mattias Revision 1.225 2003/11/07 22:50:44 mattias
fixed finding sysutilh.inc fixed finding sysutilh.inc