Timer related functions now check to see if global fpgTimers exists or not.

1 files changed, 7 insertions, 1 deletions

diff --git a/src/corelib/fpg_main.pas b/src/corelib/fpg_main.pas
index e1acf0eb..395aad5c 100644
--- a/src/corelib/fpg_main.pas
+++ b/src/corelib/fpg_main.pas
@@ -542,6 +542,8 @@ var
   i: integer;
   ctime: TDateTime;
 begin
+  if fpgTimers = nil then
+    Exit;
   ctime := now;
   i := fpgTimers.Count;
   Result := i > 0;
@@ -559,6 +561,8 @@ procedure fpgResetAllTimers;
 var
   i: integer;
 begin
+  if fpgTimers = nil then
+    Exit;
   for i := 0 to fpgTimers.Count-1 do
     TfpgTimer(fpgTimers[i]).Reset;
 end;
@@ -570,6 +574,8 @@ var
   dt: TDateTime;
   tb: Boolean;
 begin
+  if fpgTimers = nil then
+    Exit;
   // returns -1 if no timers are pending
   dt := ctime + amaxtime * ONE_MILISEC;
   tb := False;
@@ -867,7 +873,7 @@ begin
 //  Dump_Stack(StdOut, get_frame);
 
   Writeln(stdout,'An unhandled exception occurred at $',HexStr(Ptrint(ExceptAddr),sizeof(PtrInt)*2),' :');
-  if ExceptObject is exception then
+  if ExceptObject is Exception then
    begin
      lMessage := Exception(ExceptObject).ClassName+' : '+Exception(ExceptObject).Message;
      Writeln(stdout,lMessage);