roc-lang/roc
1
1
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2024-10-04 14:17:28 +03:00
Code Issues Packages Projects Releases Wiki Activity

fix sort bug

Browse Source
This commit is contained in:
Brendan Hansknecht 2024-07-25 22:45:54 -07:00
parent 52f6c30173
commit b73b70b6b2
No known key found for this signature in database
GPG Key ID: 0EA784685083E75B
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
crates/compiler/builtins/bitcode/src/sort.zig
View File

@ -133,7 +133,7 @@ fn rotate_merge(
) void {
var end_ptr = array + len * element_width;
if (len <= block_len * 2 and len - block_len <= swap_len) {
if (len <= block_len * 2 and len -% block_len <= swap_len) {
partial_backwards_merge(array, len, swap, swap_len, block_len, cmp, cmp_data, element_width, copy);
return;
}
@ -1129,7 +1129,9 @@ fn cross_merge(
var dest_head = dest;
var dest_tail = dest + (left_len + right_len - 1) * element_width;
outer: while (true) {
// TODO: For fluxsort, this can be while(true), for quadsort, it needs extra protection.
// That or I have a bug...not fully sure.
outer: while (@intFromPtr(left_tail) - @intFromPtr(left_head) > 8 * element_width and @intFromPtr(right_tail) - @intFromPtr(right_head) > 8 * element_width) {
if (@intFromPtr(left_tail) - @intFromPtr(left_head) > 8 * element_width) {
// 8 elements all less than or equal to and can be moved together.
while (compare(cmp, cmp_data, left_head + 7 * element_width, right_head) != GT) {