From 53b37a94934be0f49af8be96cb3f5a166e22b08b Mon Sep 17 00:00:00 2001
From: ivost <ivost@3ad0048d-3df7-0310-abae-a5850022a9f2>
Date: Thu, 19 Nov 2009 11:33:03 +0000
Subject: * fixed bug in xsdTryParseBoolean (segfault on null string)

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@14215 3ad0048d-3df7-0310-abae-a5850022a9f2
---
 packages/libxml/src/xmlxsd.pas | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'packages/libxml')

diff --git a/packages/libxml/src/xmlxsd.pas b/packages/libxml/src/xmlxsd.pas
index a7f5d653d0..71d3a1e2a2 100644
--- a/packages/libxml/src/xmlxsd.pas
+++ b/packages/libxml/src/xmlxsd.pas
@@ -882,6 +882,9 @@ var
   P: PChar;
   Num: QWord;
 begin
+  if not Assigned(Chars) then
+    Exit(False);
+
   if Len < 0 then
   begin
     P := PChar(Chars);
-- 
cgit v1.2.1