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

* Extended the "Unmatching element end tag" exception, now the expected

Browse Source 
tag name is included in the message string.
This commit is contained in:
sg 2000-10-14 09:40:44 +00:00
parent b1fb6d6d4f
commit 2e70d11bcf
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
fcl/xml/xmlread.pp
View File

@ -814,7 +814,7 @@ begin
// Get ETag [42] // Get ETag [42]
ExpectString('</'); ExpectString('</');
if ExpectName <> name then if ExpectName <> name then
RaiseExc('Unmatching element end tag'); RaiseExc('Unmatching element end tag (expected "</' + name + '>"');
SkipWhitespace; SkipWhitespace;
ExpectString('>'); ExpectString('>');
end; end;
@ -1117,7 +1117,11 @@ end.
{ {
$Log$ $Log$
Revision 1.3 2000-07-29 14:52:25 sg 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.
Revision 1.3 2000/07/29 14:52:25 sg
* Modified the copyright notice to remove ambiguities * Modified the copyright notice to remove ambiguities
Revision 1.2 2000/07/13 11:33:07 michael Revision 1.2 2000/07/13 11:33:07 michael