* fixed wrong procvar syntax (patches from Peter)

fcl/xml/htmwrite.pp

@@ -63,9 +63,9 @@ type
 
 const
   WriteProcs: array[ELEMENT_NODE..NOTATION_NODE] of TWriteNodeProc =
-    (WriteElement, WriteAttribute, WriteText, WriteCDATA, WriteEntityRef,
-     WriteEntity, WritePI, WriteComment, WriteDocument, WriteDocumentType,
-     WriteDocumentFragment, WriteNotation);
+    (@WriteElement, @WriteAttribute, @WriteText, @WriteCDATA, @WriteEntityRef,
+     @WriteEntity, @WritePI, @WriteComment, @WriteDocument, @WriteDocumentType,
+     @WriteDocumentFragment, @WriteNotation);
 
 procedure WriteNode(node: TDOMNode);
 begin
@@ -375,7 +375,10 @@ end.
 
 {
   $Log$
-  Revision 1.2  2000-10-15 15:31:26  sg
+  Revision 1.3  2001-06-07 14:38:44  jonas
+    * fixed wrong procvar syntax (patches from Peter)
+
+  Revision 1.2  2000/10/15 15:31:26  sg
   * Improved whitespace handling (entity references as first child of an
     element is now handled as indicator to stop the insertion of automatic
     linefeeds. Until now this was only the case with text nodes.)

fcl/xml/xmlwrite.pp

@@ -62,9 +62,9 @@ type
 
 const
   WriteProcs: array[ELEMENT_NODE..NOTATION_NODE] of TWriteNodeProc =
-    (WriteElement, WriteAttribute, WriteText, WriteCDATA, WriteEntityRef,
-     WriteEntity, WritePI, WriteComment, WriteDocument, WriteDocumentType,
-     WriteDocumentFragment, WriteNotation);
+    (@WriteElement, @WriteAttribute, @WriteText, @WriteCDATA, @WriteEntityRef,
+     @WriteEntity, @WritePI, @WriteComment, @WriteDocument, @WriteDocumentType,
+     @WriteDocumentFragment, @WriteNotation);
 
 procedure WriteNode(node: TDOMNode);
 begin
@@ -412,7 +412,10 @@ end.
 
 {
   $Log$
-  Revision 1.5  2000-10-03 20:16:31  sg
+  Revision 1.6  2001-06-07 14:38:44  jonas
+    * fixed wrong procvar syntax (patches from Peter)
+
+  Revision 1.5  2000/10/03 20:16:31  sg
   * Now writes Processing Instructions and a stylesheet link, if set
 
   Revision 1.4  2000/07/29 14:52:25  sg

packages/paszlib/zdeflate.pas

@@ -435,17 +435,17 @@ type
 const
   configuration_table : array[0..10-1] of config = (
 {      good lazy nice chain }
-{0} (good_length:0;  max_lazy:0;   nice_length:0;   max_chain:0;    func:deflate_stored),  { store only }
-{1} (good_length:4;  max_lazy:4;   nice_length:8;   max_chain:4;    func:deflate_fast), { maximum speed, no lazy matches }
-{2} (good_length:4;  max_lazy:5;   nice_length:16;  max_chain:8;    func:deflate_fast),
-{3} (good_length:4;  max_lazy:6;   nice_length:32;  max_chain:32;   func:deflate_fast),
-
-{4} (good_length:4;  max_lazy:4;   nice_length:16;  max_chain:16;   func:deflate_slow),  { lazy matches }
-{5} (good_length:8;  max_lazy:16;  nice_length:32;  max_chain:32;   func:deflate_slow),
-{6} (good_length:8;  max_lazy:16;  nice_length:128; max_chain:128;  func:deflate_slow),
-{7} (good_length:8;  max_lazy:32;  nice_length:128; max_chain:256;  func:deflate_slow),
-{8} (good_length:32; max_lazy:128; nice_length:258; max_chain:1024; func:deflate_slow),
-{9} (good_length:32; max_lazy:258; nice_length:258; max_chain:4096; func:deflate_slow)); { maximum compression }
+{0} (good_length:0;  max_lazy:0;   nice_length:0;   max_chain:0;    func:@deflate_stored),  { store only }
+{1} (good_length:4;  max_lazy:4;   nice_length:8;   max_chain:4;    func:@deflate_fast), { maximum speed, no lazy matches }
+{2} (good_length:4;  max_lazy:5;   nice_length:16;  max_chain:8;    func:@deflate_fast),
+{3} (good_length:4;  max_lazy:6;   nice_length:32;  max_chain:32;   func:@deflate_fast),
+
+{4} (good_length:4;  max_lazy:4;   nice_length:16;  max_chain:16;   func:@deflate_slow),  { lazy matches }
+{5} (good_length:8;  max_lazy:16;  nice_length:32;  max_chain:32;   func:@deflate_slow),
+{6} (good_length:8;  max_lazy:16;  nice_length:128; max_chain:128;  func:@deflate_slow),
+{7} (good_length:8;  max_lazy:32;  nice_length:128; max_chain:256;  func:@deflate_slow),
+{8} (good_length:32; max_lazy:128; nice_length:258; max_chain:1024; func:@deflate_slow),
+{9} (good_length:32; max_lazy:258; nice_length:258; max_chain:4096; func:@deflate_slow)); { maximum compression }
 
 { Note: the deflate() code requires max_lazy >= MIN_MATCH and max_chain >= 4
   For deflate_fast() (levels <= 3) good is ignored and lazy has a different