From 6f743b280de79c55706b6614b157993f51b7ba76 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Fri, 27 Mar 2009 17:58:31 -0500 Subject: [PATCH] hopefully last fix for alien.factor --- basis/compiler/tests/alien.factor | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/basis/compiler/tests/alien.factor b/basis/compiler/tests/alien.factor index 8d876891f2..6802b43de6 100644 --- a/basis/compiler/tests/alien.factor +++ b/basis/compiler/tests/alien.factor @@ -21,6 +21,8 @@ IN: compiler.tests "f-stdcall" libfactor-ffi-tests-path "stdcall" add-library >> +LIBRARY: f-cdecl + FUNCTION: void ffi_test_0 ; [ ] [ ffi_test_0 ] unit-test @@ -170,7 +172,7 @@ FUNCTION: void ffi_test_20 double x1, double x2, double x3, : ffi_test_31_point_5 ( a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a -- result ) "float" - "cdecl" "ffi_test_31_point_5" + "f-cdecl" "ffi_test_31_point_5" { "float" "float" "float" "float" "float" "float" "float" "float" "float" "float" "float" "float" "float" "float" "float" "float" "float" "float" "float" "float" "float" "float" "float" "float" "float" "float" "float" "float" "float" "float" "float" "float" "float" "float" "float" "float" "float" "float" "float" "float" "float" "float" } alien-invoke ;