paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 19:20:38 +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
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