diff options
Diffstat (limited to 'tests/src/JIT/Directed/pinning')
5 files changed, 428 insertions, 0 deletions
diff --git a/tests/src/JIT/Directed/pinning/object-pin/CMakeLists.txt b/tests/src/JIT/Directed/pinning/object-pin/CMakeLists.txt new file mode 100644 index 0000000000..ff4a430eb1 --- /dev/null +++ b/tests/src/JIT/Directed/pinning/object-pin/CMakeLists.txt @@ -0,0 +1,13 @@ +cmake_minimum_required(VERSION 2.6) +project(object_pin_mirror) + +set(CMAKE_SHARED_LIBRARY_PREFIX "") + +add_library(mirror SHARED mirror.cpp) +SET_TARGET_PROPERTIES(mirror PROPERTIES COMPILE_FLAGS "-c") + +# add the install targets (this "installs" the native file on Windows systems) +install(TARGETS mirror DESTINATION bin) + +# This "installs" the native file on System V systems +set_target_properties(mirror PROPERTIES LIBRARY_OUTPUT_DIRECTORY ${PROJECT_BINARY_DIR}/mirror) diff --git a/tests/src/JIT/Directed/pinning/object-pin/Object-Pin.il b/tests/src/JIT/Directed/pinning/object-pin/Object-Pin.il new file mode 100644 index 0000000000..321029e304 --- /dev/null +++ b/tests/src/JIT/Directed/pinning/object-pin/Object-Pin.il @@ -0,0 +1,346 @@ + +.assembly extern System.Console +{ + .publickeytoken = (B0 3F 5F 7F 11 D5 0A 3A ) + .ver 4:0:0:0 +} +.assembly extern legacy library mscorlib {} +.assembly objectpin +{ +} + + + +.class auto ansi Space +{ + .field public int32[] foo + .method public specialname rtspecialname instance void .ctor() il managed + { + .maxstack 8 + ldarg.0 + call instance void [mscorlib]System.Object::.ctor() + ret + } +} + +.class auto ansi Consume +{ + .field private class Space[] junk + .field public int32 yucko + .method public specialname rtspecialname instance void .ctor(int32 size) il managed + { + .maxstack 3 + .locals (int32 V_0) + + ldarg.0 + call instance void [mscorlib]System.Object::.ctor() + ldarg.0 + ldarg.1 + newarr Space + stfld class Space[] Consume::junk + ldc.i4.0 + stloc.0 + br.s LOOP1 +LOOP2: + ldarg.0 + ldfld class Space[] Consume::junk + ldloc.0 + newobj instance void Space::.ctor() + stelem.ref + ldarg.0 + ldfld class Space[] Consume::junk + ldloc.0 + ldelem.ref + ldc.i4 0x100 + newarr [mscorlib]System.Int32 + stfld int32[] Space::foo + ldarg.0 + ldfld class Space[] Consume::junk + ldloc.0 + ldelem.ref + ldfld int32[] Space::foo + ldc.i4.0 + ldarg.1 + stelem.i4 + ldarg.0 + ldfld class Space[] Consume::junk + ldloc.0 + ldelem.ref + ldfld int32[] Space::foo + ldc.i4 0xff + ldarg.1 + stelem.i4 + ldloc.0 + ldc.i4.1 + add + stloc.0 +LOOP1: + ldloc.0 + ldarg.1 + blt.s LOOP2 + ret + } +} + + +.class auto ansi Pin1_Test +{ + .method public static pinvokeimpl("mirror" cdecl) int32 Ret_Ptr(void *) il managed preservesig{ } + .method public static pinvokeimpl("mirror" cdecl) void Set_Val(void*,int32 c) il managed preservesig { } + .method public static int32 Main(class [mscorlib]System.String[] args) il managed + { + .entrypoint + .maxstack 400 + ldstr "Calling Not_Pinned() to assure that GC actually moves things" + call void [System.Console]System.Console::WriteLine(class [mscorlib]System.String) + call int32 Pin1_Test::Not_Pinned() + brtrue FAILURE1 +SOFT1: + ldstr "Calling Pinned() to assure that GC doesnt move things that are pinned" + call void [System.Console]System.Console::WriteLine(class [mscorlib]System.String) + call int32 Pin1_Test::Pinned() + brtrue FAILURE2 + ldstr "Trying a field assignment to a pinned object from native(with GC)" + call void [System.Console]System.Console::WriteLine(class [mscorlib]System.String) + call int32 Pin1_Test::Pinned_Test_Assign() + brtrue FAILURE3 + ldstr "Yippie, everything worked as advertised" + call void [System.Console]System.Console::WriteLine(class [mscorlib]System.String) + ldc.i4 0x64 + ret + +FAILURE1: + ldstr "Something is wrong, things didnt move! Maybe you should set GCSTRESS to 1" + call void [System.Console]System.Console::WriteLine(class [mscorlib]System.String) + br SOFT1 +FAILURE2: + ldstr "Something is wrong, things moved! Pinned must not be working" + call void [System.Console]System.Console::WriteLine(class [mscorlib]System.String) + ldc.i4 1 + ret +FAILURE3: + ldstr "Something is wrong, the assigment didnt work!" + call void [System.Console]System.Console::WriteLine(class [mscorlib]System.String) + ldc.i4 1 + ret + } + + .method public static int32 Not_Pinned() il managed + { + .maxstack 10 + .locals (class Consume, class Consume , class Consume, int32, int32 ) + + call void [mscorlib]System.GC::Collect() + ldc.i4 256 + newobj instance void Consume::.ctor(int32) + stloc.0 + + ldc.i4 2 + newobj instance void Consume::.ctor(int32) + stloc.1 + + ldloc 1 + call int32 Pin1_Test::Ret_Ptr(void*) + stloc 3 + + ldc.i4 2 + newobj instance void Consume::.ctor(int32) + stloc.2 + + ldloc 2 + call int32 Pin1_Test::Ret_Ptr(void*) + stloc 4 + + call void [mscorlib]System.GC::Collect() + + ldnull + stloc.0 + + call void [mscorlib]System.GC::Collect() + ldloc 1 + call int32 Pin1_Test::Ret_Ptr(void*) + ldloc 3 + conv.i + beq AA_1 + +SOFT2: + ldloc 2 + call int32 Pin1_Test::Ret_Ptr(void*) + ldloc 4 + conv.i + beq AA_2 + +SOFT3: + ldc.i4 0 + br AA_3 + +AA_1: + ldstr "Something is wrong, 1st one didnt move (Not_Pinned)" + call void [System.Console]System.Console::WriteLine(class [mscorlib]System.String) + br SOFT2 + +AA_2: + ldstr "Something is wrong, 2nd one didnt move(Not_Pinned)" + call void [System.Console]System.Console::WriteLine(class [mscorlib]System.String) + br SOFT3 +AA_3: + ret + } + + .method public static int32 Pinned() il managed + { + .maxstack 10 + .locals (class Consume, class Consume, class Consume pinned, int32, int32 ) + + call void [mscorlib]System.GC::Collect() + ldc.i4 256 + newobj instance void Consume::.ctor(int32) + stloc.0 + + ldc.i4 2 + newobj instance void Consume::.ctor(int32) + stloc.1 + + ldloc 1 + call int32 Pin1_Test::Ret_Ptr(void*) + stloc 3 + + ldc.i4 2 + newobj instance void Consume::.ctor(int32) + stloc.2 + + ldloc 2 + call int32 Pin1_Test::Ret_Ptr(void*) + stloc 4 + + call void [mscorlib]System.GC::Collect() + + ldnull + stloc.0 + + call void [mscorlib]System.GC::Collect() + ldloc 1 + call int32 Pin1_Test::Ret_Ptr(void*) + ldloc 3 + conv.i + beq AA_1 + +SOFT4: + ldloc 2 + call int32 Pin1_Test::Ret_Ptr(void*) + ldloc 4 + conv.i + beq AA_2 + + ldstr "Something is wrong, 2nd one moved!(Pinned)" + call void [System.Console]System.Console::WriteLine(class [mscorlib]System.String) + ldc.i4 1 + br AA_3 + +AA_1: + ldstr "Something is wrong, 1st one didnt move(Pinned)" + call void [System.Console]System.Console::WriteLine(class [mscorlib]System.String) + br SOFT4 + +AA_2: + ldc.i4 0 + +AA_3: + ret + } + .method public static int32 Pinned_Test_Assign() il managed + { + .maxstack 10 + .locals (class Consume, class Consume, class Consume pinned, int32, int32, int32 ) + + call void [mscorlib]System.GC::Collect() + ldc.i4 256 + newobj instance void Consume::.ctor(int32) + stloc.0 + + ldc.i4 2 + newobj instance void Consume::.ctor(int32) + stloc.1 + + ldloc 1 + call int32 Pin1_Test::Ret_Ptr(void*) + stloc 3 + + ldc.i4 2 + newobj instance void Consume::.ctor(int32) + stloc.2 + + ldloc 2 + call int32 Pin1_Test::Ret_Ptr(void*) + stloc 4 + + call void [mscorlib]System.GC::Collect() + + ldnull + stloc.0 + + ldc.i4 55 + stloc 5 + ldloc 2 + ldloc 5 + stfld int32 Consume::yucko + + ldloc 2 + ldflda int32 Consume::yucko + ldc.i4 66 + call void Pin1_Test::Set_Val(void*,int32) + ldloc 2 + ldfld int32 Consume::yucko + ldc.i4 66 + beq Yippie1 + ldc.i4 1 + ret +Yippie1: + call void [mscorlib]System.GC::Collect() + ldloc 2 + ldloc 5 + stfld int32 Consume::yucko + + ldloc 2 + ldflda int32 Consume::yucko + ldc.i4 88 + call void Pin1_Test::Set_Val(void*,int32) + ldloc 2 + ldfld int32 Consume::yucko + ldc.i4 88 + beq Yippie2 + ldc.i4 1 + ret +Yippie2: + call void [mscorlib]System.GC::Collect() + ldloc 1 + call int32 Pin1_Test::Ret_Ptr(void*) + ldloc 3 + conv.i + beq AA_1 + +SOFT5: + ldloc 2 + call int32 Pin1_Test::Ret_Ptr(void*) + ldloc 4 + conv.i + beq AA_2 + + ldstr "Something is wrong, 2nd one moved!(Pinned)" + call void [System.Console]System.Console::WriteLine(class [mscorlib]System.String) + ldc.i4 1 + br AA_3 + +AA_1: + ldstr "Something is wrong, 1st one didnt move(Pinned)" + call void [System.Console]System.Console::WriteLine(class [mscorlib]System.String) + br SOFT5 + +AA_2: + ldc.i4 0 + +AA_3: + ret + } +} + diff --git a/tests/src/JIT/Directed/pinning/object-pin/mirror.cpp b/tests/src/JIT/Directed/pinning/object-pin/mirror.cpp new file mode 100644 index 0000000000..f5c4c4b7d1 --- /dev/null +++ b/tests/src/JIT/Directed/pinning/object-pin/mirror.cpp @@ -0,0 +1,27 @@ +#if defined(_MSC_VER) +#define EXPORT_API extern "C" __declspec(dllexport) +#else +#define EXPORT_API extern "C" __attribute__((visibility("default"))) +#endif + +#include <cstddef> + +EXPORT_API unsigned __int32 Ret_Int(unsigned __int32 argVal){ + unsigned __int32 retVal = (unsigned __int32)argVal; + return retVal; +} +EXPORT_API unsigned __int32 Ret_Ptr(void *argVal){ + unsigned __int32 retVal = (unsigned __int32)(size_t)argVal; + return retVal; +} + +EXPORT_API void Set_Val(__int32 *argVal, __int32 val){ + *argVal = val;; + +} + +EXPORT_API void Mul_Val(__int32 *arg1,__int32 *arg2,__int32 *arg3){ + *arg3 = (*arg1)*(*arg2); + +} + diff --git a/tests/src/JIT/Directed/pinning/object-pin/mirror.def b/tests/src/JIT/Directed/pinning/object-pin/mirror.def new file mode 100644 index 0000000000..534722e2e3 --- /dev/null +++ b/tests/src/JIT/Directed/pinning/object-pin/mirror.def @@ -0,0 +1,4 @@ +EXPORTS +Ret_Int +Ret_Ptr +Set_Val diff --git a/tests/src/JIT/Directed/pinning/object-pin/object-pin.ilproj b/tests/src/JIT/Directed/pinning/object-pin/object-pin.ilproj new file mode 100644 index 0000000000..70422447ea --- /dev/null +++ b/tests/src/JIT/Directed/pinning/object-pin/object-pin.ilproj @@ -0,0 +1,38 @@ +<?xml version="1.0" encoding="utf-8"?> +<Project ToolsVersion="12.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> + <Import Project="$([MSBuild]::GetDirectoryNameOfFileAbove($(MSBuildThisFileDirectory), dir.props))\dir.props" /> + <PropertyGroup> + <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration> + <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform> + <AssemblyName>$(MSBuildProjectName)</AssemblyName> + <SchemaVersion>2.0</SchemaVersion> + <ProjectGuid>{95DFC527-4DC1-495E-97D7-E94EE1F7140D}</ProjectGuid> + <OutputType>Exe</OutputType> + <AppDesignerFolder>Properties</AppDesignerFolder> + <FileAlignment>512</FileAlignment> + <ProjectTypeGuids>{786C830F-07A1-408B-BD7F-6EE04809D6DB};{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}</ProjectTypeGuids> + <ReferencePath>$(ProgramFiles)\Common Files\microsoft shared\VSTT .0\UITestExtensionPackages</ReferencePath> + <SolutionDir Condition="$(SolutionDir) == '' Or $(SolutionDir) == '*Undefined*'">..\..\</SolutionDir> + <NuGetPackageImportStamp>7a9bfb7d</NuGetPackageImportStamp> + </PropertyGroup> + <!-- Default configurations to help VS understand the configurations --> + <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' "> + </PropertyGroup> + <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> + </PropertyGroup> + <ItemGroup> + <CodeAnalysisDependentAssemblyPaths Condition=" '$(VS100COMNTOOLS)' != '' " Include="$(VS100COMNTOOLS)..\IDE\PrivateAssemblies"> + <Visible>False</Visible> + </CodeAnalysisDependentAssemblyPaths> + </ItemGroup> + <ItemGroup> + <Compile Include="Object-Pin.il" /> + </ItemGroup> + <ItemGroup> + <Service Include="{82A7F48D-3B50-4B1E-B82E-3ADA8210C358}" /> + <ProjectReference Include="CMakelists.txt"/> + </ItemGroup> + <Import Project="$([MSBuild]::GetDirectoryNameOfFileAbove($(MSBuildThisFileDirectory), dir.targets))\dir.targets" /> + <PropertyGroup Condition=" '$(MsBuildProjectDirOverride)' != '' "> + </PropertyGroup> +</Project> |