+ Patches from peter to fix 1.1 compile

fcl/xml/sax.pp

@@ -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

fcl/xml/sax_html.pp

@@ -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