update test code for armhf

Author: k-okada

test/test-foreign.l

@@ -70,6 +70,7 @@
 206 207
 test-testd = 1.23456
 ~%")
+  (when (not (and (memq :word-size=32 *features*) (memq :arm *features*)))
   (format t "exec in eus~%")
   (format t "test-testd = ~A~%"
         (setq ret (test-testd 100 101 102
@@ -81,6 +82,7 @@ test-testd = 1.23456
   (assert (eps= 1.23456 ret))
 
   ;;
+  (check-func 'test-testd)
   (setq f (piped-fork (format nil "eusg ~A/test/test-foreign.module_l '(progn (test-testd 100 101 102 103 104 105 1000.000000 1010.000000 1020.000000 1030.000000 1040.000000 1050.000000 1060.000000 1070.000000 2080.000000 2090.000000 206 207)(exit 0))'" *eusdir*)))
   (assert-read-line-string= f "100 101 102")
   (assert-read-line-string= f "103 104 105")
@@ -90,6 +92,26 @@ test-testd = 1.23456
   (assert-read-line-string= f "206 207")
   )
 
+  (format t "exec in eus~%")
+  (format t "test-testf = ~A~%"
+        (setq ret (test-testf 100 101 102
+            103 104 105
+            1000.0 1010.0 1020.0 1030.0
+            1040.0 1050.0 1060.0 1070.0
+            2080.0 2090.0
+            206 207)))
+  (assert (eps= 1.23456 ret))
+  ;;
+  (check-func 'test-testf)
+  (setq f (piped-fork (format nil "eusg ~A/test/test-foreign.module_l '(progn (test-testf 100 101 102 103 104 105 1000.000000 1010.000000 1020.000000 1030.000000 1040.000000 1050.000000 1060.000000 1070.000000 2080.000000 2090.000000 206 207)(exit 0))'" *eusdir*)))
+  (assert-read-line-string= f "100 101 102")
+  (assert-read-line-string= f "103 104 105")
+  (assert-read-line-string= f "1000.000000 1010.000000 1020.000000 1030.000000")
+  (assert-read-line-string= f "1040.000000 1050.000000 1060.000000 1070.000000")
+  (assert-read-line-string= f "2080.000000 2090.000000")
+  (assert-read-line-string= f "206 207")
+  )
+
 (deftest test-int-test
   (format t "~%~%int-test~%")
   (format t "expected result~%")
@@ -205,6 +227,7 @@ test-testd = 1.23456
   (double3-test 1 0.1 0.2 0.3 0.4)
 
   ;;
+  (when (not (and (memq :word-size=32 *features*) (memq :arm *features*)))
   (check-func 'double-test)
   (setq f (piped-fork (format nil "eusg ~A/test/test-foreign.module_l '(progn (double-test 1 0.1 0.2 0.3 0.4)(exit 0))'" *eusdir*)))
   (assert-read-line-eps= f 0.1)
@@ -218,6 +241,7 @@ test-testd = 1.23456
   (assert-read-line-eps= f 0.3)
   (assert-read-line-eps= f 0.4)
   )
+  )
 
 (deftest test-eusfloat-test
   (format t "~%~%eusfloat-test~%")
@@ -432,10 +456,12 @@ test-testd = 1.23456
   (format t "~%ret-double(exec in eus)~%")
   (format t "  ret-double ~8,8e~%" (ret-double 0.55555 133.0))
   ;;
+  (when (not (and (memq :word-size=32 *features*) (memq :arm *features*)))
   (check-func 'ret-double)
   (assert-read-funcall= '(ret-double 0.55555 133.0) (+ 0.55555 133.0))
   (assert (eps= (ret-double 0.55555 133.0) (+ 0.55555 133.0)))
   )
+  )
 
 (deftest test-return-eusfloat
   (format t "~%return eusfloat test~%")

test/test-foreign.module_l

@@ -39,6 +39,12 @@
                                                           :double :double :double :double
                                                           :double :double
                                                           :integer :integer) :float)
+  (defforeign test-testf *testmod* "test_testf" (:integer :integer :integer
+                                                          :integer :integer :integer
+                                                          :float :float :float :float
+                                                          :float :float :float :float
+                                                          :float :float
+                                                          :integer :integer) :float)
   (defforeign call-ifunc *testmod* "call_ifunc" () :integer)
   (defforeign call-ffunc *testmod* "call_ffunc" () :float)
 

test/test_foreign.c

@@ -289,7 +289,24 @@ double test_testd2(long i0, long i1, long i2,
   //return 0x1234;
   return 1.23456;
 }
+eusfloat_t test_testf(long i0, long i1, long i2,
+		      long i3, long i4, long i5,
+		      eusfloat_t d0, eusfloat_t d1, eusfloat_t d2, eusfloat_t d3,
+		      eusfloat_t d4, eusfloat_t d5, eusfloat_t d6, eusfloat_t d7,
+		      eusfloat_t d8, eusfloat_t d9,
+		      long i6, long i7) {
+  printf("%ld %ld %ld\n", i0, i1, i2);
+  printf("%ld %ld %ld\n", i3, i4, i5);
+  //printf("%ld %ld %ld %ld\n",
+  //(long)d0, (long)d1, (long)d2, (long)d3);
+  printf("%lf %lf %lf %lf\n", d0, d1, d2, d3);
+  printf("%lf %lf %lf %lf\n", d4, d5, d6, d7);
+  printf("%lf %lf\n", d8, d9);
+  printf("%ld %ld\n", i6, i7);
 
+  //return 0x1234;
+  return 1.23456;
+}
 static long (*g)();
 static double (*gf) (long i0, long i1, long i2,
                      long i3, long i4, long i5,