paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 17:59:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL-Gtk2: Call SetExceptionMask for all CPUs, not only for x86 (thus unify it with other widgetsets). Fixes crashes on AArch64, issue #41188.

Browse Source
This commit is contained in:
Maxim Ganetsky 2024-11-06 15:35:08 +03:00
parent 6feb18f05a
commit 7cfcb81528
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/gtk2/gtk2widgetset.inc
View File

@ -1143,12 +1143,10 @@ function gdk_screen_get_resolution(screen:PGdkScreen):gdouble; cdecl; external g
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
procedure TGtk2WidgetSet.AppInit(var ScreenInfo: TScreenInfo); procedure TGtk2WidgetSet.AppInit(var ScreenInfo: TScreenInfo);
begin begin
{$if defined(cpui386) or defined(cpux86_64)}
// needed otherwise some gtk theme engines crash with division by zero // needed otherwise some gtk theme engines crash with division by zero
{$IFNDEF DisableGtkDivZeroFix} {$IFNDEF DisableGtkDivZeroFix}
SetExceptionMask(GetExceptionMask + [exOverflow,exZeroDivide,exInvalidOp]); SetExceptionMask(GetExceptionMask + [exOverflow,exZeroDivide,exInvalidOp]);
{$ENDIF} {$ENDIF}
{$ifend}
InitKeyboardTables; InitKeyboardTables;
{ Compute pixels per inch variable } { Compute pixels per inch variable }