paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 01:02:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

laz_xmlread: whitespace chars behind ags is now stored in text nodes

Browse Source 
git-svn-id: trunk@13880 -
This commit is contained in:
mattias 2008-01-25 19:13:38 +00:00
parent 178474226e
commit 8810e42aec
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/laz_xmlread.pas
View File

@ -460,11 +460,11 @@ begin
SetWideStringManager(WideStringManager, OldWideStringManager); SetWideStringManager(WideStringManager, OldWideStringManager);
try try
{$ENDIF} {$ENDIF}
SkipWhitespace; // do not call SkipWhitespace. The text is needed by ParseCharData.
while ParseCharData(AOwner) or ParseCDSect(AOwner) or ParsePI or while ParseCharData(AOwner) or ParseCDSect(AOwner) or ParsePI or
ParseComment(AOwner) or ParseElement(AOwner) or ParseComment(AOwner) or ParseElement(AOwner) or
ParseReference(AOwner) do ParseReference(AOwner) do
SkipWhitespace; ;
{$IFDEF UsesFPCWidestrings} {$IFDEF UsesFPCWidestrings}
finally finally
SetWideStringManager(OldWideStringManager); SetWideStringManager(OldWideStringManager);