Commit 54364dba authored by Gérard Meunier's avatar Gérard Meunier

+1 retiré à UtilBTree.StringFac.New

parent e55b9b18
(*
Util: Utility tools.
Copyright (C) 2001…2006 Gérard Meunier
Copyright (C) 2001…2006 GérardMeunier
This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version.
......@@ -947,7 +947,7 @@ Prefixes are useful if keys are long or if their lengths vary much. In this case
IF sz = 0 THEN
s.c := NIL;
ELSE
NEW(s.c, sz DIV CHS + 1);
NEW(s.c, sz DIV CHS);
END;
RETURN s;
END New;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment