paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-30 00:49:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

QT(win32): Fix Range check

Browse Source 
git-svn-id: trunk@25368 -
This commit is contained in:
martin 2010-05-13 15:00:04 +00:00
parent cee0d56623
commit ed7ddf13b4
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/qt/qt45.pas
View File

@ -13866,7 +13866,10 @@ end;
// PtrInt Array Access from c-code
function GetPtrIntArrayAddr(PArr : PPtrIntArray): PPtrInt; cdecl; export;
begin
Result := @PArr^[0];
if PArr^ = nil then
Result := nil
else
Result := @PArr^[0];
end;
function GetPtrIntArrayLength(PArr: PPtrIntArray): Integer; cdecl; export;
@ -13882,7 +13885,10 @@ end;
// QReal Array Access from c-code
function GetQRealArrayAddr(PArr : PQRealArray): PPtrInt; cdecl; export;
begin
Result := @PArr^[0];
if PArr^ = nil then
Result := nil
else
Result := @PArr^[0];
end;
function GetQRealArrayLength(PArr: PQRealArray): Integer; cdecl; export;