From edde858cfa47f5f1c09c319baae323b4071013a5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Thu, 22 Aug 2024 14:45:28 +0200
Subject: [PATCH] * try to avoid incompatibility with lazarus (and possibly
 others)

---
 rtl/objpas/classes/stringl.inc | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/rtl/objpas/classes/stringl.inc b/rtl/objpas/classes/stringl.inc
index e5fe6ebbf4..d461ead717 100644
--- a/rtl/objpas/classes/stringl.inc
+++ b/rtl/objpas/classes/stringl.inc
@@ -1946,7 +1946,11 @@ begin
         DupIgnore : Exit;
         DupError : Error(SDuplicateString,0)
       end;
-   InsertItem (Result,S,AObject);
+   // Avoid crash in lazarus   
+   if Assigned(aObject) then   
+     InsertItem (Result,S,AObject)
+   else
+     InsertItem (Result,S);  
 end;
 
 function TStringList.Add(const S: string): Integer;