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