Differences From Artifact [d27a8aa443]:
- File src/natools-s_expressions-printers-pretty.adb — part of check-in [78cfd91715] at 2014-07-31 19:16:38 on branch trunk — s_expressions-printers-pretty: fix width of tab-only indentations (user: nat, size: 36795) [annotate] [blame] [check-ins using]
To Artifact [33ea8fdc6a]:
- File src/natools-s_expressions-printers-pretty.adb — part of check-in [87d479c3f0] at 2014-08-04 20:26:13 on branch trunk — s_expressions-printers-pretty: fix size estimation of verbatim encoding (user: nat, size: 36841) [annotate] [blame] [check-ins using]
| ︙ | |||
910 911 912 913 914 915 916 917 918 919 920 921 922 923 | 910 911 912 913 914 915 916 917 918 919 920 921 922 923 924 | + |
I : Count := 10;
begin
Size := 2;
while Data'Length >= I loop
Size := Size + 1;
I := I * 10;
end loop;
Size := Size + Data'Length;
end;
end case;
if Output.Param.Quoted = When_Shorter
and then Multi_Line_Quoted_Size (Output, Data) <= Size
then
if Output.Need_Blank then
|
| ︙ |