From b4d5f7b9fdb351d0df4d91a403588e324d6939b3 Mon Sep 17 00:00:00 2001
From: Joshy <Joshy@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sun, 28 Nov 2010 18:21:53 +0000
Subject: [PATCH] When unloading XRE engine this function can fail with an
 exception.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1387 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/geckoport/nsGeckoStrings.pas | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/components/geckoport/nsGeckoStrings.pas b/components/geckoport/nsGeckoStrings.pas
index 1b7df539d..6a405b4fb 100644
--- a/components/geckoport/nsGeckoStrings.pas
+++ b/components/geckoport/nsGeckoStrings.pas
@@ -267,7 +267,11 @@ constructor TIStringImpl.Create(src: WideString);
 begin
   inherited Create;
   if NS_FAILED(NS_StringContainerInit(FContainer)) then
-    Error(reOutOfMemory);
+  begin
+    //Maybe the engine is being unloaded, so just skip error.
+    //Error(reOutOfMemory);
+    FillByte(FContainer,sizeof(FContainer),0);
+  end;
   FOwn := True;
   FString := @FContainer;
   Assign(src);