Skip to content

Commit

Permalink
Thanks to Jonas Maebe, fixed bug in Linux mseguiintf.pas. Some LongWo…
Browse files Browse the repository at this point in the history
…rd parameters must be changed into PLongWord.
  • Loading branch information
fredvs committed Nov 5, 2022
1 parent cddf01b commit bfb2efe
Showing 1 changed file with 11 additions and 11 deletions.
22 changes: 11 additions & 11 deletions lib/common/kernel/linux/mseguiintf.pas
Expand Up @@ -2083,7 +2083,7 @@ function gui_pidtowinid(const pids: procidarty): winidty;

var
parent,root: winidty;
ca1: longword;
ca1: Plongword;
children: pwinid;
int1: integer;
// id1: winidty;
Expand Down Expand Up @@ -2139,7 +2139,7 @@ function XDestroyImage(Image: PXImage): Longint;
function getwindowstack(const id: winidty): winidarty;
var
parent,root: winidty;
ca1: longword;
ca1: Plongword;
children: pwinid;
count: integer;
begin
Expand Down Expand Up @@ -2739,7 +2739,7 @@ function gui_setmainthread: guierrorty; //set mainthread to currentthread

function gui_getpointerpos: pointty;
var
ca1: longword;
ca1: Plongword;
begin
gdi_lock;
xquerypointer(appdisp,rootid,@ca1,@ca1,@result.x,@result.y,@ca1,@ca1,@ca1);
Expand Down Expand Up @@ -3143,11 +3143,11 @@ function gui_createbitmapfromdata(const size: sizety; datapo: pbyte;

function gui_getpixmapinfo(var info: pixmapinfoty): gdierrorty;
var
{$ifdef CPUAARCH64}
ca1: culonglong;
{$else}
ca1: longword;
{$endif}
// {$ifdef CPUAARCH64}
// ca1: culonglong;
// {$else}
ca1: Plongword;
// {$endif}
begin
gdi_lock;

Expand Down Expand Up @@ -3837,7 +3837,7 @@ function getrootpath(const id: winidty; out rootpath: longwordarty): boolean;
root,parent: winidty;//{$ifdef FPC}dword{$else}xlib.twindow{$endif};
children: pwinid;
count: integer;
ca1: longword;
ca1: Plongword;
id1: winidty;

begin
Expand Down Expand Up @@ -3910,7 +3910,7 @@ function getrootoffset(const id: winidty; var aoffset: pointty): boolean;
rootpath: longwordarty;
ax,ay: integer;
width,height,border: longword;
ca1: longword;
ca1: Plongword;
offset: pointty;
begin
{$ifdef mse_debuggdisync}
Expand Down Expand Up @@ -4689,7 +4689,7 @@ function gui_getparentwindow(const awindow: winidty): winidty;
root,parent: winidty;//{$ifdef FPC}dword{$else}xlib.twindow{$endif};
children: pwinid;
// count: integer;
ca1: longword;
ca1: Plongword;
begin
gdi_lock;
result:= 0;
Expand Down

1 comment on commit bfb2efe

@fredvs
Copy link
Contributor Author

@fredvs fredvs commented on bfb2efe Nov 5, 2022

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Please sign in to comment.