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

* xmlread.pp, removed FRecognizePE field. Its functionality is replaced by checking other fields.

Browse Source 
git-svn-id: trunk@15984 -
This commit is contained in:
sergei 2010-09-14 12:53:55 +00:00
parent cd196c5622
commit 3bef71aaf9
1 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/fcl-xml/src/xmlread.pp
View File

@ -318,7 +318,6 @@ type
FCtrl: TDOMParser;
FXML11: Boolean;
FState: TXMLReadState;
FRecognizePE: Boolean;
FHavePERefs: Boolean;
FInsideDecl: Boolean;
FValue: TWideCharBuf;
@ -1160,7 +1159,7 @@ begin
end
else if FSource.FBuf^ = '%' then
begin
if not FRecognizePE then
if (FState <> rsDTD) or ((FSource.DTDSubsetType = dsInternal) and FInsideDecl) then
Break;
// This is the only case where look-ahead is needed
if FSource.FBuf > FSource.FBufEnd-2 then
@ -2558,9 +2557,7 @@ begin
IncludeLevel := 0;
IgnoreLevel := 0;
repeat
FRecognizePE := True; // PERef between declarations should always be recognized
SkipWhitespace;
FRecognizePE := False;
if (FSource.FBuf^ = ']') and (IncludeLevel > 0) then
begin
@ -2586,7 +2583,6 @@ begin
if FSource.DTDSubsetType = dsInternal then
FatalError('Conditional sections are not allowed in internal subset', 1);
FRecognizePE := True;
SkipWhitespace;
CondType := ctUnknown; // satisfy compiler
@ -2627,7 +2623,6 @@ begin
end
else
begin
FRecognizePE := FSource.DTDSubsetType <> dsInternal;
FInsideDecl := True;
if FSource.Matches('ELEMENT') then
ParseElementDecl
@ -2641,7 +2636,6 @@ begin
FatalError('Illegal markup declaration');
SkipWhitespace;
FRecognizePE := False;
if CurrentEntity <> FSource.FEntity then
BadPENesting;
@ -2650,7 +2644,6 @@ begin
end;
end;
until False;
FRecognizePE := False;
if IncludeLevel > 0 then
DoErrorPos(esFatal, 'INCLUDE section is not closed', IncludeLoc);
if (FSource.DTDSubsetType = dsInternal) and (FSource.FBuf^ = ']') then