steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

compiler.tests.alien: fix tests on Win64

release
Slava Pestov 2010-04-13 01:24:04 -05:00
parent ea3af2aef6
commit 88f627a402
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
basis/compiler/tests/alien.factor
View File

@ -684,28 +684,30 @@ mingw? [
: fastcall-struct-return-iii-indirect ( x y z ptr -- result ) : fastcall-struct-return-iii-indirect ( x y z ptr -- result )
test-struct-11 { int int int } fastcall alien-indirect ; test-struct-11 { int int int } fastcall alien-indirect ;
: win32? ( -- ? ) os windows? cpu x86.32? and ;
[ 8 ] [ [ 8 ] [
3 4 3 4
os windows? [ &: @ffi_test_50@8 ] [ &: ffi_test_50 ] if win32? [ &: @ffi_test_50@8 ] [ &: ffi_test_50 ] if
fastcall-ii-indirect fastcall-ii-indirect
] unit-test ] unit-test
[ 13 ] [ [ 13 ] [
3 4 5 3 4 5
os windows? [ &: @ffi_test_51@12 ] [ &: ffi_test_51 ] if win32? [ &: @ffi_test_51@12 ] [ &: ffi_test_51 ] if
fastcall-iii-indirect fastcall-iii-indirect
] unit-test ] unit-test
mingw? [ mingw? [
[ 13 ] [ [ 13 ] [
3 4.0 5 3 4.0 5
os windows? [ &: @ffi_test_52@12 ] [ &: ffi_test_52 ] if win32? [ &: @ffi_test_52@12 ] [ &: ffi_test_52 ] if
fastcall-ifi-indirect fastcall-ifi-indirect
] unit-test ] unit-test
[ 19 ] [ [ 19 ] [
3 4.0 5 6 3 4.0 5 6
os windows? [ &: @ffi_test_53@16 ] [ &: ffi_test_53 ] if win32? [ &: @ffi_test_53@16 ] [ &: ffi_test_53 ] if
fastcall-ifii-indirect fastcall-ifii-indirect
] unit-test ] unit-test
] unless ] unless
@ -713,14 +715,14 @@ mingw? [
[ S{ test-struct-11 f 7 -1 } ] [ S{ test-struct-11 f 7 -1 } ]
[ [
3 4 3 4
os windows? [ &: @ffi_test_57@8 ] [ &: ffi_test_57 ] if win32? [ &: @ffi_test_57@8 ] [ &: ffi_test_57 ] if
fastcall-struct-return-ii-indirect fastcall-struct-return-ii-indirect
] unit-test ] unit-test
[ S{ test-struct-11 f 7 -3 } ] [ S{ test-struct-11 f 7 -3 } ]
[ [
3 4 7 3 4 7
os windows? [ &: @ffi_test_58@12 ] [ &: ffi_test_58 ] if win32? [ &: @ffi_test_58@12 ] [ &: ffi_test_58 ] if
fastcall-struct-return-iii-indirect fastcall-struct-return-iii-indirect
] unit-test ] unit-test