Natools

Check-in [2afdfab33b]
Login
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 on 2013-10-06 20:38:59
Other Links: manifest | tags
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

Modified src/natools-chunked_strings.adb from [c17e46f8f8] to [12439cabc9].

435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
            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
               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;







|
<
<
<
<
<
<







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
            --  _Chunk cannot be Left'Last because L_Remain > 0






            Chunk := Chunk + 1;
            L_Pos := Left (Chunk).all'First;
         end if;
         if R_Pos > Right'Last then
            return Greater;
         end if;
      end loop;