paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 23:19:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Patches from peter to fix 1.1 compile

Browse Source
This commit is contained in:
michael 2002-12-12 13:43:38 +00:00
parent 4155f6ba35
commit 1f74cacb79
2 changed files with 16 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
fcl/xml/sax.pp
View File

@ -627,7 +627,11 @@ end;
procedure TSAXAttributes.BadIndex(Index: Integer);
begin
{$ifdef VER1_0}
raise ESAXAttributeIndexError.Create(Index) at get_caller_addr(get_frame);
{$else VER1_0}
raise ESAXAttributeIndexError.Create(Index) at pointer(get_caller_addr(get_frame));
{$endif VER1_0}
end;
@ -930,7 +934,10 @@ end.
{
$Log$
Revision 1.1 2002-12-11 21:06:07 sg
Revision 1.2 2002-12-12 13:43:38 michael
+ Patches from peter to fix 1.1 compile
Revision 1.1 2002/12/11 21:06:07 sg
* Small cleanups
* Replaced htmldoc unit with dom_html unit
* Added SAX parser framework and SAX HTML parser

13
fcl/xml/sax_html.pp
View File

@ -337,15 +337,15 @@ var
begin
case ScannerContext of
scWhitespace:
DoIgnorableWhitespace(PChar(TokenText), 1, Length(TokenText));
DoIgnorableWhitespace(PSAXChar(TokenText), 1, Length(TokenText));
scText:
DoCharacters(PChar(TokenText), 0, Length(TokenText));
DoCharacters(PSAXChar(TokenText), 0, Length(TokenText));
scEntityReference:
begin
if ResolveHTMLEntityReference(TokenText, Ent) then
begin
EntString := Ent;
DoCharacters(PChar(EntString), 0, 1);
DoCharacters(PSAXChar(EntString), 0, 1);
end else
begin
{ Is this a predefined Unicode character entity? We must check this,
@ -361,7 +361,7 @@ begin
if Found then
DoSkippedEntity(TokenText)
else
DoCharacters(PChar('&' + TokenText), 0, Length(TokenText) + 1);
DoCharacters(PSAXChar('&' + TokenText), 0, Length(TokenText) + 1);
end;
end;
scTag:
@ -547,7 +547,10 @@ end.
{
$Log$
Revision 1.1 2002-12-11 21:06:07 sg
Revision 1.2 2002-12-12 13:43:38 michael
+ Patches from peter to fix 1.1 compile
Revision 1.1 2002/12/11 21:06:07 sg
* Small cleanups
* Replaced htmldoc unit with dom_html unit
* Added SAX parser framework and SAX HTML parser