urbit/vere
1
1
Fork 0
mirror of https://github.com/urbit/vere.git synced 2024-10-03 22:57:14 +03:00
Code Issues Packages Projects Releases Wiki Activity

rollback to copy

Browse Source
This commit is contained in:
Quodss 2024-07-31 10:02:09 +02:00
parent 2638bc35cb
commit f7fc53c1a0
1 changed files with 13 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
pkg/noun/jets/c/aor.c
View File

@ -16,30 +16,17 @@
else {
if ( c3y == u3ud(a) ) {
if ( c3y == u3ud(b) ) {
u3a_atom* a_u = u3a_to_ptr(a);
u3a_atom* b_u = u3a_to_ptr(b);
c3_w len_w_a = a_u->len_w, len_w_b = b_u->len_w;
c3_w i_w = 0;
c3_w *a_words = a_u->buf_w;
c3_w *b_words = b_u->buf_w;
while ( (i_w < len_w_a) && (i_w < len_w_b) ) {
c3_w a_w = a_words[i_w], b_w = b_words[i_w];
c3_y a_y = a_w & 0xFF, b_y = b_w & 0xFF;
if (a_y != b_y) return __(a_y < b_y);
a_y = a_w & 0xFF00;
b_y = b_w & 0xFF00;
if (a_y != b_y) return __(a_y < b_y);
a_y = a_w & 0xFF0000;
b_y = b_w & 0xFF0000;
if (a_y != b_y) return __(a_y < b_y);
a_y = a_w & 0xFF000000;
b_y = b_w & 0xFF000000;
if (a_y != b_y) return __(a_y < b_y);
i_w++;
c3_w len_a, len_b, i = 0;
c3_y *a_bytes = u3r_bytes_all(&len_a, a);
c3_y *b_bytes = u3r_bytes_all(&len_b, b);
while ( (i < len_a) && (i < len_b) ) {
c3_y a_slice=a_bytes[i], b_slice=b_bytes[i];
u3m_p("a_slice", a_slice);
u3m_p("b_slice", b_slice);
if (a_slice != b_slice) {
return __(a_slice < b_slice);
}
i++;
}
return u3m_bail(c3__fail);
}
@ -79,6 +66,7 @@
b = u3t(b);
}
else {
u3m_p("out", out);
return out;
}
}
@ -87,6 +75,7 @@
u3_noun
u3wc_aor(u3_noun cor)
{
// return u3_none;
u3_noun a, b;
if ( c3n == u3r_mean(cor, u3x_sam_2, &a, u3x_sam_3, &b, 0) ) {