diff options
| author | ivost <ivost@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2009-11-19 11:33:03 +0000 |
|---|---|---|
| committer | ivost <ivost@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2009-11-19 11:33:03 +0000 |
| commit | 53b37a94934be0f49af8be96cb3f5a166e22b08b (patch) | |
| tree | dbb56dc32f4b1720548b12e4e392e37825bf6923 /packages/libxml | |
| parent | b8d4066129f53aab0695e8c0ac6ab1c73eb5c7ea (diff) | |
| download | fpc-53b37a94934be0f49af8be96cb3f5a166e22b08b.tar.gz | |
* fixed bug in xsdTryParseBoolean (segfault on null string)
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@14215 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/libxml')
| -rw-r--r-- | packages/libxml/src/xmlxsd.pas | 3 |
1 files changed, 3 insertions, 0 deletions
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); |