From 04a31f8be27c7136b81319e0f2c3b4fc170bd3b7 Mon Sep 17 00:00:00 2001
From: Pierre Muller <pierre@freepascal.org>
Date: Fri, 21 Mar 2025 09:26:57 +0000
Subject: [PATCH] Avoid range error in tbitset.clear method

---
 compiler/cclasses.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/compiler/cclasses.pas b/compiler/cclasses.pas
index 9db94c3fc9..126661c6ea 100644
--- a/compiler/cclasses.pas
+++ b/compiler/cclasses.pas
@@ -3258,7 +3258,8 @@ end;
 
     procedure tbitset.clear;
       begin
-        fillchar(fdata[0],length(fdata),0);
+        if assigned(fdata) then
+          fillchar(fdata[0],length(fdata),0);
       end;