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

Merged revisions 1483 via svnmerge from

Browse Source 
http://svn.freepascal.org/svn/fpc/trunk

r1483 (florian)
* fixed copy&paste error (bug 4289)

git-svn-id: branches/fixes_2_0@1484 -
This commit is contained in:
florian 2005-10-18 20:57:18 +00:00
parent f336535035
commit d3db566621
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fcl/xml/xmlread.pp
View File

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