32-bit arm alignment crash

Author: bilam

jsrc/j.h

@@ -450,6 +450,15 @@ extern unsigned int __cdecl _clearfp (void);
 #endif
 #endif
 
+#if defined(__clang__) && ( (__clang_major__ > 3) || ((__clang_major__ == 3) && (__clang_minor__ > 5)))
+/* needed by clang newer versions, no matter double_trick is inline asm or not */
+#define NOOPTIMIZE __attribute__((optnone))
+#elif __GNUC__ > 4 || (__GNUC__ == 4 && (__GNUC_MINOR__ > 3))
+#define NOOPTIMIZE __attribute__((optimize("O0")))
+#else
+#define NOOPTIMIZE
+#endif
+
 #define NALP            256             /* size of alphabet                */
 #define NETX            2000            /* size of error display buffer    */
 #define NPP             20              /* max value for quad pp           */

jsrc/va1ss.c

@@ -15,7 +15,12 @@
 
 #define SSINGENC(type) ((type)>>INTX)
 #define SSINGCASE(id,subtype) (3*(id)+(subtype))   // encode case/args into one branch value
-A jtssingleton1(J jt, A w,I caseno){A z;void *zv;
+
+#if !(defined(__aarch32__)||defined(__arm__)||defined(_M_ARM))
+#undef NOOPTIMIZE
+#define NOOPTIMIZE
+#endif
+A NOOPTIMIZE jtssingleton1(J jt, A w,I caseno){A z;void *zv;
  F2PREFIP;
  I ar=AR(w);
  // Calculate inplaceability

jsrc/va2ss.c

@@ -36,8 +36,13 @@ static NOINLINE I intforD(J jt, D d){D q;I z;  // noinline because it uses so ma
 }
 
 #define SSINGCASE(id,subtype) (9*(id)+(subtype))   // encode case/args into one branch value
+
+#if !(defined(__aarch32__)||defined(__arm__)||defined(_M_ARM))
+#undef NOOPTIMIZE
+#define NOOPTIMIZE
+#endif
 // do singleton operation. ipcaserank bits 0-15=rank of result, 16-23=self->lc code for the operation (with comparisons flagged), 24-25=inplace bits, 26-29 types code
-A jtssingleton(J jt, A a,A w,I ipcaserank){A z;I aiv;void *zv;
+A NOOPTIMIZE jtssingleton(J jt, A a,A w,I ipcaserank){A z;I aiv;void *zv;
  z=0; I ac=AC(a); I wc=AC(w);
  // see if we can inplace an assignment.  That is always a good idea, though rare
  if(unlikely(((B)(a==jt->asginfo.zombieval)&((B)(ipcaserank>>(24+JTINPLACEAX)))&(B)1)+((B)(w==jt->asginfo.zombieval)&((B)(ipcaserank>>(24+JTINPLACEWX)))&(B)1))){

jsrc/x15.c

@@ -584,15 +584,6 @@ static void double_trick(double*v, I n){I i=0;
                   d[56],d[57],d[58],d[59],d[60],d[61],d[62],d[63]);break;  \
 }
 
-#if defined(__clang__) && ( (__clang_major__ > 3) || ((__clang_major__ == 3) && (__clang_minor__ > 5)))
-/* needed by clang newer versions, no matter double_trick is inline asm or not */
-#define NOOPTIMIZE __attribute__((optnone))
-#elif __GNUC__ > 4 || (__GNUC__ == 4 && (__GNUC_MINOR__ > 3))
-#define NOOPTIMIZE __attribute__((optimize("O0")))
-#else
-#define NOOPTIMIZE
-#endif
-
 static I     NOOPTIMIZE stdcalli(STDCALLI fp,I*d,I cnt,DoF*dd,I dcnt){I r;
  SWITCHCALL;
  R r;