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
{$IFDEF LCL}
Interfaces,
{$IFDEF MSWINDOWS}
Math,
{$ENDIF}
{$ENDIF}
Forms,
nsXRE,
@ -16,6 +19,13 @@ uses
var
navigation: nsIWebNavigation;
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;
XRE_Startup('1.9', True, '2.0', False);

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

@ -3,6 +3,9 @@ program GBrowser;
uses
{$IFDEF LCL}
Interfaces,
{$IFDEF MSWINDOWS}
Math,
{$ENDIF}
{$ENDIF}
Forms,
gec10 in 'gec10.pas' {Form1};
@ -12,6 +15,13 @@ uses
{$ENDIF}
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.CreateForm(TForm1, Form1);
Application.Run;