compiler.tests.alien: Don't test ffi calls 61-63 on Windows.

diff --git a/basis/compiler/tests/alien.factor b/basis/compiler/tests/alien.factor
index 688d422191f15147858c3bad7e92d46f7144c4b3..2213dd1c34a02cbc296f1a1b577455b5d9401547 100755 (executable)
--- a/basis/compiler/tests/alien.factor
+++ b/basis/compiler/tests/alien.factor
@@ -587,34 +587,34 @@ FUNCTION: test_struct_14 ffi_test_44 ( ) ; inline
 ! C99 tests
 os windows? [
 
-FUNCTION: complex-float ffi_test_45 ( int x ) ;
+    FUNCTION: complex-float ffi_test_45 ( int x ) ;
 
-[ C{ 3.0 0.0 } ] [ 3 ffi_test_45 ] unit-test
+    [ C{ 3.0 0.0 } ] [ 3 ffi_test_45 ] unit-test
 
-FUNCTION: complex-double ffi_test_46 ( int x ) ;
+    FUNCTION: complex-double ffi_test_46 ( int x ) ;
 
-[ C{ 3.0 0.0 } ] [ 3 ffi_test_46 ] unit-test
+    [ C{ 3.0 0.0 } ] [ 3 ffi_test_46 ] unit-test
 
-FUNCTION: complex-float ffi_test_47 ( complex-float x, complex-double y ) ;
+    FUNCTION: complex-float ffi_test_47 ( complex-float x, complex-double y ) ;
 
-[ C{ 4.0 4.0 } ] [
-    C{ 1.0 2.0 }
-    C{ 1.5 1.0 } ffi_test_47
-] unit-test
+    [ C{ 4.0 4.0 } ] [
+        C{ 1.0 2.0 }
+        C{ 1.5 1.0 } ffi_test_47
+    ] unit-test
 
-! Reported by jedahu
-STRUCT: bool-field-test
-    { name c-string }
-    { on bool }
-    { parents short } ;
+    ! Reported by jedahu
+    STRUCT: bool-field-test
+        { name c-string }
+        { on bool }
+        { parents short } ;
 
-FUNCTION: short ffi_test_48 ( bool-field-test x ) ;
+    FUNCTION: short ffi_test_48 ( bool-field-test x ) ;
 
-[ 123 ] [
-    bool-field-test <struct>
-        123 >>parents
-    ffi_test_48
-] unit-test
+    [ 123 ] [
+        bool-field-test <struct>
+            123 >>parents
+        ffi_test_48
+    ] unit-test
 
 ] unless
 
@@ -884,32 +884,36 @@ TUPLE: some-tuple x ;
 
 [ ] [ anton's-regression ] unit-test
 
-STRUCT: bool-and-ptr
-    { b bool }
-    { ptr void* } ;
+os windows? [
+
+    STRUCT: bool-and-ptr
+        { b bool }
+        { ptr void* } ;
 
-FUNCTION: bool-and-ptr ffi_test_61 ( ) ;
+    FUNCTION: bool-and-ptr ffi_test_61 ( ) ;
 
-{
-    S{ bool-and-ptr { b t } { ptr f } }
-} [ ffi_test_61 ] unit-test
+    {
+        S{ bool-and-ptr { b t } { ptr f } }
+    } [ ffi_test_61 ] unit-test
 
-STRUCT: uint-pair
-    { a uint }
-    { b uint } ;
+    STRUCT: uint-pair
+        { a uint }
+        { b uint } ;
 
-FUNCTION: uint-pair ffi_test_62 ( ) ;
+    FUNCTION: uint-pair ffi_test_62 ( ) ;
 
-{
-    S{ uint-pair { a 0xabcdefab } { b 0x12345678 } }
-} [ ffi_test_62 ] unit-test
+    {
+        S{ uint-pair { a 0xabcdefab } { b 0x12345678 } }
+    } [ ffi_test_62 ] unit-test
 
-STRUCT: ulonglong-pair
-    { a ulonglong }
-    { b ulonglong } ;
+    STRUCT: ulonglong-pair
+        { a ulonglong }
+        { b ulonglong } ;
 
-FUNCTION: ulonglong-pair ffi_test_63 ( ) ;
+    FUNCTION: ulonglong-pair ffi_test_63 ( ) ;
+
+    {
+        S{ ulonglong-pair { a 0xabcdefabcdefabcd } { b 0x1234567891234567 } }
+    } [ ffi_test_63 ] unit-test
 
-{
-    S{ ulonglong-pair { a 0xabcdefabcdefabcd } { b 0x1234567891234567 } }
-} [ ffi_test_63 ] unit-test
+] unless
\ No newline at end of file