add test to mix :double :float32 as arguments

Author: k-okada

test/test-foreign.l

@@ -110,6 +110,25 @@ test-testd = 1.23456
   (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")
+
+  (format t "exec in eus~%")
+  (format t "test-testfd = ~A~%"
+        (setq ret (test-testfd 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 (= 123456 ret))
+  ;;
+  (check-func 'test-testfd)
+  (setq f (piped-fork (format nil "eusg ~A/test/test-foreign.module_l '(progn (test-testfd 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

test/test-foreign.module_l

@@ -45,6 +45,12 @@
                                                           :float :float :float :float
                                                           :float :float
                                                           :integer :integer) :float)
+  (defforeign test-testfd *testmod* "test_testfd" (:integer :integer :integer
+                                                            :integer :integer :integer
+                                                            :double :float32 :double :float32
+                                                            :float32 :double :double :float32
+                                                            :float32 :double
+                                                            :integer :integer) :integer)
   (defforeign call-ifunc *testmod* "call_ifunc" () :integer)
   (defforeign call-ffunc *testmod* "call_ffunc" () :float)
 

test/test_foreign.c

@@ -307,6 +307,24 @@ eusfloat_t test_testf(long i0, long i1, long i2,
   //return 0x1234;
   return 1.23456;
 }
+int test_testfd(long i0, long i1, long i2,
+		long i3, long i4, long i5,
+		double d0, float d1, double d2, float d3,
+		float d4, double d5, double d6, float d7,
+		float d8, double 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 %f %lf %f\n", d0, d1, d2, d3);
+  printf("%f %lf %lf %f\n", d4, d5, d6, d7);
+  printf("%f %lf\n", d8, d9);
+  printf("%ld %ld\n", i6, i7);
+
+  //return 0x1234;
+  return 123456;
+}
 static long (*g)();
 static double (*gf) (long i0, long i1, long i2,
                      long i3, long i4, long i5,