pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Workaround: Disabled floating point exceptions in sample apps to prevent xulrunner crash with FPC/Windows.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1396 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
macpgmr
2010-12-03 21:49:16 +00:00
parent fb03aba657
commit 91c7c61633
2 changed files with 20 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
components/geckoport/SampleApps/ChromeWin.dpr
View File

@@ -3,6 +3,9 @@ program ChromeWin;
uses uses
{$IFDEF LCL} {$IFDEF LCL}
Interfaces, Interfaces,
{$IFDEF MSWINDOWS}
Math,
{$ENDIF}
{$ENDIF} {$ENDIF}
Forms, Forms,
nsXRE, nsXRE,
@@ -16,6 +19,13 @@ uses
var var
navigation: nsIWebNavigation; navigation: nsIWebNavigation;
begin begin
{$IFDEF FPC}
{$IFDEF MSWINDOWS}
//For now - disable all floating point exceptions or XULRUNNER will crash.
SetExceptionMask([exInvalidOp,exDenormalized,exZeroDivide,exOverflow,exUnderflow,exPrecision]);
{$ENDIF}
{$ENDIF}
Application.Initialize; Application.Initialize;
XRE_Startup('1.9', True, '2.0', False); XRE_Startup('1.9', True, '2.0', False);

10
components/geckoport/SampleApps/GBrowser.dpr
View File

@@ -3,6 +3,9 @@ program GBrowser;
uses uses
{$IFDEF LCL} {$IFDEF LCL}
Interfaces, Interfaces,
{$IFDEF MSWINDOWS}
Math,
{$ENDIF}
{$ENDIF} {$ENDIF}
Forms, Forms,
gec10 in 'gec10.pas' {Form1}; gec10 in 'gec10.pas' {Form1};
@@ -12,6 +15,13 @@ uses
{$ENDIF} {$ENDIF}
begin begin
{$IFDEF FPC}
{$IFDEF MSWINDOWS}
//For now - disable all floating point exceptions or XULRUNNER will crash.
SetExceptionMask([exInvalidOp,exDenormalized,exZeroDivide,exOverflow,exUnderflow,exPrecision]);
{$ENDIF}
{$ENDIF}
Application.Initialize; Application.Initialize;
Application.CreateForm(TForm1, Form1); Application.CreateForm(TForm1, Form1);
Application.Run; Application.Run;