Overview
| Comment: | sxcat: fix parsing of the second entity in parsing separator arguments |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
fc6a5f0338328fc53a44db7126c200f6 |
| User & Date: | nat on 2014-08-03 20:04:14 |
| Other Links: | manifest | tags |
Context
|
2014-08-04
| ||
| 20:26 | s_expressions-printers-pretty: fix size estimation of verbatim encoding check-in: 87d479c3f0 user: nat tags: trunk | |
|
2014-08-03
| ||
| 20:04 | sxcat: fix parsing of the second entity in parsing separator arguments check-in: fc6a5f0338 user: nat tags: trunk | |
|
2014-08-02
| ||
| 21:19 | sxcat: abort with error status on newline encoding parse error check-in: 2e6bc3b47c user: nat tags: trunk | |
Changes
Modified tools/sxcat.adb from [2c25dd919c] to [9e7b6d9b79].
| ︙ | ︙ | |||
512 513 514 515 516 517 518 |
Result : SE.Printers.Pretty.Entity_Separator
:= (others => (others => False));
begin
while I + 1 in Image'Range loop
Parse (Image (I), Before, Valid);
if Valid then
| | | 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 |
Result : SE.Printers.Pretty.Entity_Separator
:= (others => (others => False));
begin
while I + 1 in Image'Range loop
Parse (Image (I), Before, Valid);
if Valid then
Parse (Image (I + 1), After, Valid);
if Valid then
Result (Before, After) := True;
end if;
I := I + 1;
end if;
|
| ︙ | ︙ |