diff options
Diffstat (limited to 'mcs/ilasm/tests/test-pinvoke-a.il')
-rw-r--r-- | mcs/ilasm/tests/test-pinvoke-a.il | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/mcs/ilasm/tests/test-pinvoke-a.il b/mcs/ilasm/tests/test-pinvoke-a.il new file mode 100644 index 00000000000..30e7b282b46 --- /dev/null +++ b/mcs/ilasm/tests/test-pinvoke-a.il @@ -0,0 +1,40 @@ +// +// Test pinvoking unmanaged code +// +// Author(s): +// Jackson Harper (jackson@ximian.com) +// +// (C) 2003 Ximian Inc, (http://www.ximian.com) +// + +.assembly extern mscorlib { } +.assembly 'test-pinvoke-a' { } + + +.class public T { + + .method public static pinvokeimpl ("test-pinvoke" as "ret_one" cdecl) + int32 RetOne () cil managed { } + + .method public static int32 test () + { + .entrypoint + + call int32 T::RetOne () + brfalse FAIL + + PASS: + ldstr "PASS" + call void [mscorlib]System.Console::WriteLine (string) + ldc.i4.0 + ret + + FAIL: + ldstr "FAIL" + call void [mscorlib]System.Console::WriteLine (string) + ldc.i4.1 + ret + } + +} + |