From 3ddba6af6157421daad401cba496cede4f11d9cd Mon Sep 17 00:00:00 2001
From: Quodss <afoninkir170697@gmail.com>
Date: Mon, 5 Aug 2024 19:27:42 +0200
Subject: [PATCH] length fix, remove dead code

---
 pkg/noun/jets/c/aor.c | 69 ++-----------------------------------------
 1 file changed, 2 insertions(+), 67 deletions(-)

diff --git a/pkg/noun/jets/c/aor.c b/pkg/noun/jets/c/aor.c
index 5d6b705879..d19d1858cf 100644
--- a/pkg/noun/jets/c/aor.c
+++ b/pkg/noun/jets/c/aor.c
@@ -4,9 +4,6 @@
 #include "jets/w.h"
 
 #include "noun.h"
-#include "portable.h"
-
-#if defined(c3_endian) && defined(c3_endian_little) && (c3_endian == c3_endian_little)
 
   u3_noun
   u3qc_aor(u3_noun a,
@@ -28,25 +25,22 @@
       else {
         if ( c3n == u3ud(b) ) return c3y;
         {
-          c3_w len_a_y, len_b_y;
+          c3_w len_a_y = u3r_met(3, a);
+          c3_w len_b_y = u3r_met(3, b);;
           c3_y *a_bytes, *b_bytes;
           c3_y a_y, b_y;
           if ( c3y == u3a_is_cat(a) ) {
-            len_a_y = 4;
             a_bytes = (c3_y*)&a;
           }
           else {
             u3a_atom* a_u = u3a_to_ptr(a);
-            len_a_y = (a_u->len_w)*4;
             a_bytes = (c3_y*)(a_u->buf_w);
           }
           if ( c3y == u3a_is_cat(b) ) {
-            len_b_y = 4;
             b_bytes = (c3_y*)&b;
           }
           else {
             u3a_atom* b_u = u3a_to_ptr(b);
-            len_b_y = (b_u->len_w)*4;
             b_bytes = (c3_y*)(b_u->buf_w);
           }
           c3_w len_min = c3_min(len_a_y, len_b_y);
@@ -60,65 +54,6 @@
       }
     }
   } 
-
-#else
-
-  u3_noun
-  u3qc_aor(u3_noun a,
-           u3_noun b)
-  {
-    while ( 1 ) {
-      if ( c3y == u3r_sing(a, b) ) return c3y;
-      if ( c3n == u3ud(a) ) {
-        if ( c3y == u3ud(b) ) return c3n;
-        if ( c3y == u3r_sing(u3h(a), u3h(b)) ) {
-          a = u3t(a);
-          b = u3t(b);
-        }
-        else {
-          a = u3h(a);
-          b = u3h(b);
-        }
-      }
-      else {
-        if ( c3n == u3ud(b) ) return c3y;
-        {
-          c3_w len_a_w, len_b_w;
-          c3_w *a_words, *b_words;
-          c3_y a_y, b_y;
-          if ( c3y == u3a_is_cat(a) ) {
-            len_a_w = 1;
-            a_words = &a;
-          }
-          else {
-            u3a_atom* a_u = u3a_to_ptr(a);
-            len_a_w = a_u->len_w;
-            a_words = a_u->buf_w;
-          }
-          if ( c3y == u3a_is_cat(b) ) {
-            len_b_w = 1;
-            b_words = &b;
-          }
-          else {
-            u3a_atom* b_u = u3a_to_ptr(b);
-            len_b_w = b_u->len_w;
-            b_words = b_u->buf_w;
-          }
-          c3_w len_min = c3_min(len_a_w, len_b_w);
-          for (c3_w i_w = 0; i_w < len_min; i_w++) {
-            for (c3_w j = 0; j < 4; j++) {
-              a_y = (a_words[i_w] >> (8*j)) & 0xFF;
-              b_y = (b_words[i_w] >> (8*j)) & 0xFF;
-              if ( a_y != b_y ) return __(a_y < b_y);
-            }
-          }
-          return __(len_a_w < len_b_w);
-        }
-      }
-    }
-  }
-
-#endif
   
   u3_noun
   u3wc_aor(u3_noun cor)