paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 13:59:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed copy&paste error (bug 4289)

Browse Source 
git-svn-id: trunk@1483 -
This commit is contained in:
florian 2005-10-18 20:56:25 +00:00
parent 8d9e9b24a6
commit 5a29bbda0f
1 changed files with 1 additions and 1 deletions

2
fcl/xml/xmlread.pp
View File

@ -686,7 +686,7 @@ begin
Inc(buf);
if not (CheckFor('yes''') or CheckFor('no''')) then
RaiseExc('Expected ''yes'' or ''no''');
end else if buf[0] = '''' then
end else if buf[0] = '"' then
begin
Inc(buf);
if not (CheckFor('yes"') or CheckFor('no"')) then