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

* Fixed typo in previous fix. (forgot closing bracket. Oops.)

Browse Source
This commit is contained in:
sg 2000-10-14 09:41:45 +00:00
parent 2e70d11bcf
commit 54f71c3835
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
fcl/xml/xmlread.pp
View File

@ -814,7 +814,7 @@ begin
// Get ETag [42]
ExpectString('</');
if ExpectName <> name then
RaiseExc('Unmatching element end tag (expected "</' + name + '>"');
RaiseExc('Unmatching element end tag (expected "</' + name + '>")');
SkipWhitespace;
ExpectString('>');
end;
@ -1117,7 +1117,10 @@ end.
{
$Log$
Revision 1.4 2000-10-14 09:40:44 sg
Revision 1.5 2000-10-14 09:41:45 sg
* Fixed typo in previous fix. (forgot closing bracket. Oops.)
Revision 1.4 2000/10/14 09:40:44 sg
* Extended the "Unmatching element end tag" exception, now the expected
tag name is included in the message string.