Natools

Check-in [2afdfab33b]
Login

Check-in [2afdfab33b]

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

Overview
Comment:chunked_strings: remove (hopefully) dead code in Chunked_String vs String comparison
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 2afdfab33bafb76980b741478c9a0ffcf0cc3869
User & Date: nat 2013-10-06 20:38:59.939
Context
2013-10-07
19:12
string_slice_set_tests: add conversion and interval tests check-in: 1bd9bb5772 user: nat tags: trunk
2013-10-06
20:38
chunked_strings: remove (hopefully) dead code in Chunked_String vs String comparison check-in: 2afdfab33b user: nat tags: trunk
2013-10-05
16:14
string_slice_set_tests: first draft of test suite for Slice_Set check-in: d080254455 user: nat tags: trunk
Changes
Side-by-Side Diff Ignore Whitespace Patch
Changes to src/natools-chunked_strings.adb.
︙
435
436
437
438
439
440
441
442

443
444
445
446
447
448
449
450
451
452
453
454
455

435
436
437
438
439
440
441

442






443
444
445
446
447
448
449








-
+
-
-
-
-
-
-








            end if;
         end if;

         L_Pos := L_Pos + Step;
         R_Pos := R_Pos + Step;

         if L_Pos > Left (Chunk).all'Last then
            if Chunk = Left'Last then
            --  _Chunk cannot be Left'Last because L_Remain > 0
               if R_Pos <= Right'Last then
                  return Lesser;
               else
                  return Equal;
               end if;
            end if;
            Chunk := Chunk + 1;
            L_Pos := Left (Chunk).all'First;
         end if;
         if R_Pos > Right'Last then
            return Greater;
         end if;
      end loop;
︙