Стартовый пул

gecko/.svn/pristine/cb/cbd2f1173369438f3aa7bfb06132b67179df1af6.svn-base

@@ -0,0 +1,28 @@
+program GBrowser;
+
+uses
+{$IFDEF LCL}
+  Interfaces,
+ {$IFDEF MSWINDOWS}
+  Math,
+ {$ENDIF}
+{$ENDIF}
+  Forms,
+  gec10 in 'gec10.pas' {Form1};
+
+{$IFDEF MSWINDOWS}
+{$R *.res}
+{$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;
+end.