Remove unused and unnecessary functions

Author: juntuu

jsrc/jdlllic.c

@@ -17,19 +17,6 @@
 #define SERIALNUMSIZE 32
 #define lobyte(w) ((UC)(w))
 
-int
-swapint(int n) {
-    C *p, c;
-    p    = (C*)&n;
-    c    = p[3];
-    p[3] = p[0];
-    p[0] = c;
-    c    = p[2];
-    p[2] = p[1];
-    p[1] = c;
-    return n;
-}
-
 A
 jtlock1(J jt, A w) {
     A z;
@@ -76,11 +63,6 @@ jtlock1(J jt, A w) {
     return z;
 }
 
-A
-jtlock2(J jt, A a, A w) {
-    ASSERT(0, EVDOMAIN);
-}
-
 A
 jtunlock2(J jt, A a, A w) {
     int i, j, len, tlen;

jsrc/je.h

@@ -439,7 +439,6 @@ extern A jtleft2(J jt, A a, A w);
 extern A jtless(J jt, A a, A w);
 extern A jtlink(J jt, A a, A w, A self);
 extern A jtloccre2(J jt, A a, A w);
-extern A jtlock2(J jt, A a, A w);
 extern A jtlocnl2(J jt, A a, A w);
 extern A jtlocpath2(J jt, A a, A w);
 extern A jtlogar2(J jt, A a, A w);

jsrc/xenos/x.c

@@ -141,7 +141,7 @@ jtforeign(J jt, A a, A w) {
         case XC(3, 3): return CDERIV(CIBEAM, jthexrep1, jthexrep2, VASGSAFE, RMAX, RMAX, RMAX);
         case XC(3, 4): return CDERIV(CIBEAM, 0, jtic2, VASGSAFE, RMAX, RMAX, RMAX);
         case XC(3, 5): return CDERIV(CIBEAM, 0, jtfc2, VASGSAFE, RMAX, RMAX, RMAX);
-        case XC(3, 6): return CDERIV(CIBEAM, jtlock1, jtlock2, VASGSAFE, RMAX, RMAX, RMAX);
+        case XC(3, 6): return CDERIV(CIBEAM, jtlock1, 0, VASGSAFE, RMAX, RMAX, RMAX);
         case XC(3, 10): return CDERIV(CIBEAM, jttobase64, 0, VASGSAFE, RMAX, RMAX, RMAX);
         case XC(3, 11): return CDERIV(CIBEAM, jtfrombase64, 0, VASGSAFE, RMAX, RMAX, RMAX);