From f4bff8b73c3929f1b5a5d9a124218c3b1e33a587 Mon Sep 17 00:00:00 2001
From: Torwent <Torwent@users.noreply.github.com>
Date: Wed, 24 Jul 2024 15:16:44 +0200
Subject: [PATCH] fix: fatal errors

fatal errors with wasplib no longer loop until out of memory if they happen during SRL.Setup
---
 utils/base.simba | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/utils/base.simba b/utils/base.simba
index dbce7a6a..43bdc99c 100644
--- a/utils/base.simba
+++ b/utils/base.simba
@@ -39,6 +39,9 @@ end;
 
 procedure TSRLBaseRecord.Fatal(Text: String); constref; override;
 begin
+  if not SRL.IsSetup then
+    inherited;
+
   Text := SRL.TimeStamp + ':[' + Name + ']:[Fatal]: ' + Text;
   WriteLn(Text);
   Self.AddToLog(Text);