From ed1a6196a4b1376294e5b96187ffc64d008280b5 Mon Sep 17 00:00:00 2001 From: Jonas Maebe Date: Thu, 7 Jun 2001 14:38:44 +0000 Subject: [PATCH] * fixed wrong procvar syntax (patches from Peter) --- fcl/xml/htmwrite.pp | 11 +++++++---- fcl/xml/xmlwrite.pp | 11 +++++++---- packages/paszlib/zdeflate.pas | 20 ++++++++++---------- 3 files changed, 24 insertions(+), 18 deletions(-) diff --git a/fcl/xml/htmwrite.pp b/fcl/xml/htmwrite.pp index 0ba4a10422..2fc7d406e4 100644 --- a/fcl/xml/htmwrite.pp +++ b/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.) diff --git a/fcl/xml/xmlwrite.pp b/fcl/xml/xmlwrite.pp index 5e0bc17166..3dc3062de8 100644 --- a/fcl/xml/xmlwrite.pp +++ b/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 diff --git a/packages/paszlib/zdeflate.pas b/packages/paszlib/zdeflate.pas index cd924a7a2b..47aa265234 100644 --- a/packages/paszlib/zdeflate.pas +++ b/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), +{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 } +{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