paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-17 04:21:00 +01:00
Code Issues Packages Projects Releases Wiki Activity

Qt6: Proper cast of result for -Sy.

Browse Source 
(cherry picked from commit 67868afe81)
This commit is contained in:
Željan Rikalo 2024-02-05 17:07:09 +01:00
parent 32f41648f4
commit b0867a7674
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/qt6/qt62.pas
View File

@ -15716,7 +15716,7 @@ end;
// QReal Array Access from c-code // QReal Array Access from c-code
function GetQRealArrayAddr(var PArr : TQRealArray): PPtrInt; cdecl; export; function GetQRealArrayAddr(var PArr : TQRealArray): PPtrInt; cdecl; export;
begin begin
Result := @PArr[0]; Result := PPtrInt(@PArr[0]);
end; end;
function GetQRealArrayLength(var PArr: TQRealArray): Integer; cdecl; export; function GetQRealArrayLength(var PArr: TQRealArray): Integer; cdecl; export;