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

* fixed wrong procvar syntax (patches from Peter)

Browse Source
This commit is contained in:
Jonas Maebe 2001-06-07 14:38:44 +00:00
parent a9fd4d4f6b
commit ed1a6196a4
3 changed files with 24 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
fcl/xml/htmwrite.pp
View File

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

11
fcl/xml/xmlwrite.pp
View File

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

20
packages/paszlib/zdeflate.pas
View File

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