Natools

Check-in [fc6a5f0338]
Login

Check-in [fc6a5f0338]

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

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: fc6a5f0338328fc53a44db7126c200f649951c64
User & Date: nat 2014-08-03 20:04:14.385
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
Unified Diff Ignore Whitespace Patch
Changes to tools/sxcat.adb.
︙︙
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), After, Valid);

            if Valid then
               Result (Before, After) := True;
            end if;

            I := I + 1;
         end if;








|








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;
︙︙