paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 22:30:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Fixed processing instruction parsing. <?xml is not allowed but <?xml-XXX is

Browse Source
This commit is contained in:
michael 2003-11-04 20:00:46 +00:00
parent c6b7ebc85b
commit c2a46f23de
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
fcl/xml/xmlread.pp
View File

@ -339,8 +339,8 @@ var
checkbuf: array[0..3] of char;
begin
if CheckFor('<?') then begin
StrLCopy(checkbuf, buf, 3);
if UpperCase(StrPas(checkbuf)) = 'XML' then
StrLCopy(checkbuf, buf, 4);
if UpperCase(StrPas(checkbuf)) = 'XML ' then
RaiseExc('"<?xml" processing instruction not allowed here');
ExpectName;
if SkipWhitespace then
@ -1226,7 +1226,10 @@ end.
{
$Log$
Revision 1.8 2003-01-15 21:59:55 sg
Revision 1.9 2003-11-04 20:00:46 michael
+ Fixed processing instruction parsing. <?xml is not allowed but <?xml-XXX is
Revision 1.8 2003/01/15 21:59:55 sg
* the units DOM, XMLRead and XMLWrite now compile with Delphi without
modifications as well