FSI.BT.IR/FSI.BT.IR.Tools
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases 1 Wiki Activity

Sicherung

Browse Source
This commit is contained in:
Maier Stephan SI
2023-01-20 16:09:00 +01:00
parent e5257d8413
commit b684704bf8
139 changed files with 95678 additions and 499 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
Kalk/Kalk.Core/Modules/HardwareIntrinsics/ArmIntrinsicsModule.cs Normal file
View File

@@ -0,0 +1,37 @@
namespace Kalk.Core.Modules.HardwareIntrinsics.Arm
{
public partial class AdvSimdIntrinsicsModule : IntrinsicsModuleBase
{
public AdvSimdIntrinsicsModule() : base("ARM") => RegisterFunctionsAuto();
}
public partial class AdvSimdArm64IntrinsicsModule : IntrinsicsModuleBase
{
public AdvSimdArm64IntrinsicsModule() : base("ARM64") => RegisterFunctionsAuto();
}
public partial class AesIntrinsicsModule : IntrinsicsModuleBase
{
public AesIntrinsicsModule() : base("ARM AES") => RegisterFunctionsAuto();
}
public partial class Crc32IntrinsicsModule : IntrinsicsModuleBase
{
public Crc32IntrinsicsModule() : base("ARM Crc32") => RegisterFunctionsAuto();
}
public partial class Crc32Arm64IntrinsicsModule : IntrinsicsModuleBase
{
public Crc32Arm64IntrinsicsModule() : base("ARM64 Crc32") => RegisterFunctionsAuto();
}
public partial class Sha1IntrinsicsModule : IntrinsicsModuleBase
{
public Sha1IntrinsicsModule() : base("ARM Sha1") => RegisterFunctionsAuto();
}
public partial class Sha256IntrinsicsModule : IntrinsicsModuleBase
{
public Sha256IntrinsicsModule() : base("ARM Sha256") => RegisterFunctionsAuto();
}
}

127
Kalk/Kalk.Core/Modules/HardwareIntrinsics/HardwareIntrinsicsModule.cs Normal file
View File

@@ -0,0 +1,127 @@
using Kalk.Core.Modules.HardwareIntrinsics;
namespace Kalk.Core.Modules
{
/// <summary>
/// Module with CPU Hardware intrinsics.
/// </summary>
[KalkExportModule(ModuleName)]
public partial class HardwareIntrinsicsModule : KalkModuleWithFunctions
{
private const string ModuleName = "HardwareIntrinsics";
private const string CategoryIntrinsics = "Vector Hardware Intrinsics";
public HardwareIntrinsicsModule() : base(ModuleName)
{
RegisterDocumentationAuto();
}
protected override void Import()
{
// X86
if (System.Runtime.Intrinsics.X86.Sse.IsSupported)
{
DynamicRegister<HardwareIntrinsics.X86.SseIntrinsicsModule>();
}
if (System.Runtime.Intrinsics.X86.Sse.X64.IsSupported)
{
DynamicRegister<HardwareIntrinsics.X86.SseX64IntrinsicsModule>();
}
if (System.Runtime.Intrinsics.X86.Sse2.IsSupported)
{
DynamicRegister<HardwareIntrinsics.X86.Sse2IntrinsicsModule>();
}
if (System.Runtime.Intrinsics.X86.Sse2.X64.IsSupported)
{
DynamicRegister<HardwareIntrinsics.X86.Sse2X64IntrinsicsModule>();
}
if (System.Runtime.Intrinsics.X86.Sse3.IsSupported)
{
DynamicRegister<HardwareIntrinsics.X86.Sse3IntrinsicsModule>();
}
if (System.Runtime.Intrinsics.X86.Ssse3.IsSupported)
{
DynamicRegister<HardwareIntrinsics.X86.Ssse3IntrinsicsModule>();
}
if (System.Runtime.Intrinsics.X86.Sse41.IsSupported)
{
DynamicRegister<HardwareIntrinsics.X86.Sse41IntrinsicsModule>();
}
if (System.Runtime.Intrinsics.X86.Sse41.X64.IsSupported)
{
DynamicRegister<HardwareIntrinsics.X86.Sse41X64IntrinsicsModule>();
}
if (System.Runtime.Intrinsics.X86.Sse42.IsSupported)
{
DynamicRegister<HardwareIntrinsics.X86.Sse42IntrinsicsModule>();
}
if (System.Runtime.Intrinsics.X86.Sse42.X64.IsSupported)
{
DynamicRegister<HardwareIntrinsics.X86.Sse42X64IntrinsicsModule>();
}
if (System.Runtime.Intrinsics.X86.Avx.IsSupported)
{
DynamicRegister<HardwareIntrinsics.X86.AvxIntrinsicsModule>();
}
if (System.Runtime.Intrinsics.X86.Avx2.IsSupported)
{
DynamicRegister<HardwareIntrinsics.X86.Avx2IntrinsicsModule>();
}
if (System.Runtime.Intrinsics.X86.Aes.IsSupported)
{
DynamicRegister<HardwareIntrinsics.X86.AesIntrinsicsModule>();
}
if (System.Runtime.Intrinsics.X86.Bmi1.IsSupported)
{
DynamicRegister<HardwareIntrinsics.X86.Bmi1IntrinsicsModule>();
}
if (System.Runtime.Intrinsics.X86.Bmi1.X64.IsSupported)
{
DynamicRegister<HardwareIntrinsics.X86.Bmi1X64IntrinsicsModule>();
}
if (System.Runtime.Intrinsics.X86.Bmi2.IsSupported)
{
DynamicRegister<HardwareIntrinsics.X86.Bmi2IntrinsicsModule>();
}
if (System.Runtime.Intrinsics.X86.Bmi2.X64.IsSupported)
{
DynamicRegister<HardwareIntrinsics.X86.Bmi2X64IntrinsicsModule>();
}
// Arm
if (System.Runtime.Intrinsics.Arm.AdvSimd.IsSupported)
{
DynamicRegister<HardwareIntrinsics.Arm.AdvSimdIntrinsicsModule>();
}
if (System.Runtime.Intrinsics.Arm.AdvSimd.Arm64.IsSupported)
{
DynamicRegister<HardwareIntrinsics.Arm.AdvSimdArm64IntrinsicsModule>();
}
if (System.Runtime.Intrinsics.Arm.Aes.IsSupported)
{
DynamicRegister<HardwareIntrinsics.Arm.AesIntrinsicsModule>();
}
if (System.Runtime.Intrinsics.Arm.Crc32.IsSupported)
{
DynamicRegister<HardwareIntrinsics.Arm.Crc32IntrinsicsModule>();
}
if (System.Runtime.Intrinsics.Arm.Crc32.Arm64.IsSupported)
{
DynamicRegister<HardwareIntrinsics.Arm.Crc32Arm64IntrinsicsModule>();
}
if (System.Runtime.Intrinsics.Arm.Sha1.IsSupported)
{
DynamicRegister<HardwareIntrinsics.Arm.Sha1IntrinsicsModule>();
}
if (System.Runtime.Intrinsics.Arm.Sha256.IsSupported)
{
DynamicRegister<HardwareIntrinsics.Arm.Sha256IntrinsicsModule>();
}
}
private void DynamicRegister<TModule>() where TModule : IntrinsicsModuleBase, new()
{
var module = new TModule();
module.Initialize(Engine);
module.InternalImport();
}
}
}

85
Kalk/Kalk.Core/Modules/HardwareIntrinsics/IntelIntrinsicsModule.cs Normal file
View File

@@ -0,0 +1,85 @@
namespace Kalk.Core.Modules.HardwareIntrinsics.X86
{
public partial class SseIntrinsicsModule : IntrinsicsModuleBase
{
public SseIntrinsicsModule() : base("SSE") => RegisterFunctionsAuto();
}
public partial class SseX64IntrinsicsModule : IntrinsicsModuleBase
{
public SseX64IntrinsicsModule() : base("SSE (x64)") => RegisterFunctionsAuto();
}
public partial class Sse2IntrinsicsModule : IntrinsicsModuleBase
{
public Sse2IntrinsicsModule() : base("SSE2") => RegisterFunctionsAuto();
}
public partial class Sse2X64IntrinsicsModule : IntrinsicsModuleBase
{
public Sse2X64IntrinsicsModule() : base("SSE2 (x64)") => RegisterFunctionsAuto();
}
public partial class Sse3IntrinsicsModule : IntrinsicsModuleBase
{
public Sse3IntrinsicsModule() : base("SSE3") => RegisterFunctionsAuto();
}
public partial class Sse41IntrinsicsModule : IntrinsicsModuleBase
{
public Sse41IntrinsicsModule() : base("SSE4.1") => RegisterFunctionsAuto();
}
public partial class Sse41X64IntrinsicsModule : IntrinsicsModuleBase
{
public Sse41X64IntrinsicsModule() : base("SSE4.1 (x64)") => RegisterFunctionsAuto();
}
public partial class Sse42IntrinsicsModule : IntrinsicsModuleBase
{
public Sse42IntrinsicsModule() : base("SSE4.2") => RegisterFunctionsAuto();
}
public partial class Sse42X64IntrinsicsModule : IntrinsicsModuleBase
{
public Sse42X64IntrinsicsModule() : base("SSE4.2 (x64)") => RegisterFunctionsAuto();
}
public partial class Ssse3IntrinsicsModule : IntrinsicsModuleBase
{
public Ssse3IntrinsicsModule() : base("SSSE3") => RegisterFunctionsAuto();
}
public partial class AvxIntrinsicsModule : IntrinsicsModuleBase
{
public AvxIntrinsicsModule() : base("AVX") => RegisterFunctionsAuto();
}
public partial class Avx2IntrinsicsModule : IntrinsicsModuleBase
{
public Avx2IntrinsicsModule() : base("AVX2") => RegisterFunctionsAuto();
}
public partial class AesIntrinsicsModule : IntrinsicsModuleBase
{
public AesIntrinsicsModule() : base("AES") => RegisterFunctionsAuto();
}
public partial class Bmi1IntrinsicsModule : IntrinsicsModuleBase
{
public Bmi1IntrinsicsModule() : base("BMI1") => RegisterFunctionsAuto();
}
public partial class Bmi1X64IntrinsicsModule : IntrinsicsModuleBase
{
public Bmi1X64IntrinsicsModule() : base("BMI1 (x64)") => RegisterFunctionsAuto();
}
public partial class Bmi2IntrinsicsModule : IntrinsicsModuleBase
{
public Bmi2IntrinsicsModule() : base("BMI2") => RegisterFunctionsAuto();
}
public partial class Bmi2X64IntrinsicsModule : IntrinsicsModuleBase
{
public Bmi2X64IntrinsicsModule() : base("BMI2 (x64)") => RegisterFunctionsAuto();
}
}

32389
Kalk/Kalk.Core/Modules/HardwareIntrinsics/Intrinsics.generated.cs Normal file
View File

File diff suppressed because it is too large Load Diff

218
Kalk/Kalk.Core/Modules/HardwareIntrinsics/IntrinsicsModuleBase.cs Normal file
View File

@@ -0,0 +1,218 @@
using System;
using System.Diagnostics;
using System.Runtime.CompilerServices;
using System.Runtime.InteropServices;
using Scriban.Syntax;
namespace Kalk.Core.Modules.HardwareIntrinsics
{
public abstract class IntrinsicsModuleBase : KalkModuleWithFunctions
{
public const string CategoryIntrinsics = "Vector Hardware Intrinsics";
protected IntrinsicsModuleBase(string name) : base(name)
{
}
protected void ProcessAction<TArg1Base, TArg1>(object arg1, Action<TArg1> func)
where TArg1Base : unmanaged where TArg1: unmanaged
{
var nativeArg1 = ToArg<TArg1Base, TArg1>(0, arg1);
func(nativeArg1);
}
protected void ProcessAction<TArg1Base, TArg1, TArg2Base, TArg2>(object arg1, object arg2, Action<TArg1, TArg2> func)
where TArg1Base : unmanaged where TArg1: unmanaged
where TArg2Base : unmanaged where TArg2: unmanaged
{
var nativeArg1 = ToArg<TArg1Base, TArg1>(0, arg1);
var nativeArg2 = ToArg<TArg2Base, TArg2>(1, arg2);
func(nativeArg1, nativeArg2);
}
protected void ProcessAction<TArg1Base, TArg1, TArg2Base, TArg2>(object arg1, int arg1Align, object arg2, Action<TArg1, TArg2> func)
where TArg1Base : unmanaged where TArg1: unmanaged
where TArg2Base : unmanaged where TArg2: unmanaged
{
var nativeArg1 = ToArg<TArg1Base, TArg1>(0, arg1, arg1Align);
var nativeArg2 = ToArg<TArg2Base, TArg2>(1, arg2);
func(nativeArg1, nativeArg2);
}
protected void ProcessAction<TArg1Base, TArg1, TArg2Base, TArg2, TArg3Base, TArg3>(object arg1, object arg2, object arg3, Action<TArg1, TArg2, TArg3> func)
where TArg1Base : unmanaged where TArg1: unmanaged
where TArg2Base : unmanaged where TArg2: unmanaged
where TArg3Base : unmanaged where TArg3: unmanaged
{
var nativeArg1 = ToArg<TArg1Base, TArg1>(0, arg1);
var nativeArg2 = ToArg<TArg2Base, TArg2>(1, arg2);
var nativeArg3 = ToArg<TArg3Base, TArg3>(2, arg3);
func(nativeArg1, nativeArg2, nativeArg3);
}
protected object ProcessFunc<TArg1Base, TArg1, TResultBase, TResult>(object arg1, Func<TArg1, TResult> func)
where TArg1Base : unmanaged where TArg1: unmanaged
where TResultBase : unmanaged where TResult: unmanaged
{
var nativeArg1 = ToArg<TArg1Base, TArg1>(0, arg1);
var nativeResult = func(nativeArg1);
return ToResult<TResultBase, TResult>(nativeResult);
}
protected object ProcessFunc<TArg1Base, TArg1, TResultBase, TResult>(object arg1, int arg1Align, Func<TArg1, TResult> func)
where TArg1Base : unmanaged where TArg1: unmanaged
where TResultBase : unmanaged where TResult: unmanaged
{
var nativeArg1 = ToArg<TArg1Base, TArg1>(0, arg1, arg1Align);
var nativeResult = func(nativeArg1);
return ToResult<TResultBase, TResult>(nativeResult);
}
protected object ProcessFunc<TArg1Base, TArg1, TArg2Base, TArg2, TResultBase, TResult>(object arg1, object arg2, Func<TArg1, TArg2, TResult> func)
where TArg1Base : unmanaged where TArg1: unmanaged
where TArg2Base : unmanaged where TArg2: unmanaged
where TResultBase : unmanaged where TResult: unmanaged
{
var nativeArg1 = ToArg<TArg1Base, TArg1>(0, arg1);
var nativeArg2 = ToArg<TArg2Base, TArg2>(1, arg2);
var nativeResult = func(nativeArg1, nativeArg2);
return ToResult<TResultBase, TResult>(nativeResult);
}
protected object ProcessFunc<TArg1Base, TArg1, TArg2Base, TArg2, TArg3Base, TArg3, TResultBase, TResult>(object arg1, object arg2, object arg3, Func<TArg1, TArg2, TArg3, TResult> func)
where TArg1Base : unmanaged where TArg1: unmanaged
where TArg2Base : unmanaged where TArg2: unmanaged
where TArg3Base : unmanaged where TArg3: unmanaged
where TResultBase : unmanaged where TResult: unmanaged
{
var nativeArg1 = ToArg<TArg1Base, TArg1>(0, arg1);
var nativeArg2 = ToArg<TArg2Base, TArg2>(1, arg2);
var nativeArg3 = ToArg<TArg3Base, TArg3>(2, arg3);
var nativeResult = func(nativeArg1, nativeArg2, nativeArg3);
return ToResult<TResultBase, TResult>(nativeResult);
}
protected object ProcessFunc<TArg1Base, TArg1, TArg2Base, TArg2, TArg3Base, TArg3, TArg4Base, TArg4, TResultBase, TResult>(object arg1, object arg2, object arg3, object arg4, Func<TArg1, TArg2, TArg3, TArg4, TResult> func)
where TArg1Base : unmanaged where TArg1: unmanaged
where TArg2Base : unmanaged where TArg2: unmanaged
where TArg3Base : unmanaged where TArg3: unmanaged
where TArg4Base : unmanaged where TArg4: unmanaged
where TResultBase : unmanaged where TResult: unmanaged
{
var nativeArg1 = ToArg<TArg1Base, TArg1>(0, arg1);
var nativeArg2 = ToArg<TArg2Base, TArg2>(1, arg2);
var nativeArg3 = ToArg<TArg3Base, TArg3>(2, arg3);
var nativeArg4 = ToArg<TArg4Base, TArg4>(3, arg4);
var nativeResult = func(nativeArg1, nativeArg2, nativeArg3, nativeArg4);
return ToResult<TResultBase, TResult>(nativeResult);
}
protected object ProcessFunc<TArg1Base, TArg1, TArg2Base, TArg2, TArg3Base, TArg3, TArg4Base, TArg4, TArg5Base, TArg5, TResultBase, TResult>(object arg1, object arg2, object arg3, object arg4, object arg5, Func<TArg1, TArg2, TArg3, TArg4, TArg5, TResult> func)
where TArg1Base : unmanaged where TArg1: unmanaged
where TArg2Base : unmanaged where TArg2: unmanaged
where TArg3Base : unmanaged where TArg3: unmanaged
where TArg4Base : unmanaged where TArg4: unmanaged
where TArg5Base : unmanaged where TArg5: unmanaged
where TResultBase : unmanaged where TResult: unmanaged
{
var nativeArg1 = ToArg<TArg1Base, TArg1>(0, arg1);
var nativeArg2 = ToArg<TArg2Base, TArg2>(1, arg2);
var nativeArg3 = ToArg<TArg3Base, TArg3>(2, arg3);
var nativeArg4 = ToArg<TArg4Base, TArg4>(3, arg4);
var nativeArg5 = ToArg<TArg5Base, TArg5>(4, arg5);
var nativeResult = func(nativeArg1, nativeArg2, nativeArg3, nativeArg4, nativeArg5);
return ToResult<TResultBase, TResult>(nativeResult);
}
private T ToArg<TBase, T>(int argIndex, object value, int align = 0) where T : unmanaged where TBase: unmanaged
{
if (typeof(T) == typeof(IntPtr))
{
var buffer = value as KalkNativeBuffer;
if (buffer == null)
{
throw new ScriptArgumentException(argIndex, "Expecting a byte buffer. Use malloc(size) to pass data to this argument.");
}
var ptr = buffer.GetPointer();
if (align != 0)
{
var remainder = (long) ptr & (long) align - 1;
if (remainder != 0)
{
throw new ScriptArgumentException(argIndex, $"Invalid memory alignment. Expecting an alignment on {align} bytes, but the bytebuffer offset is off by {remainder} bytes");
}
}
var rawPtr = Unsafe.As<IntPtr, T>(ref ptr);
return rawPtr;
}
var targetSize = Unsafe.SizeOf<T>();
var baseElementSize = Unsafe.SizeOf<TBase>();
var dimension = targetSize / baseElementSize;
if (dimension == 1)
{
// Handle Vector64
if (typeof(System.Runtime.Intrinsics.Vector64<long>) == typeof(T))
{
var tValue = Engine.ToObject<long>(argIndex, value);
return (T)(object)(System.Runtime.Intrinsics.Vector64.Create(tValue));
}
if (typeof(System.Runtime.Intrinsics.Vector64<ulong>) == typeof(T))
{
var tValue = Engine.ToObject<ulong>(argIndex, value);
return (T)(object)(System.Runtime.Intrinsics.Vector64.Create(tValue));
}
if (typeof(System.Runtime.Intrinsics.Vector64<double>) == typeof(T))
{
var tValue = Engine.ToObject<double>(argIndex, value);
return (T)(object)(System.Runtime.Intrinsics.Vector64.Create(tValue));
}
return Engine.ToObject<T>(argIndex, value);
}
else
{
Debug.Assert(dimension > 1);
Span<TBase> elements = stackalloc TBase[dimension];
if (value is KalkVector vec)
{
var span = vec.AsSpan();
var minSize = Math.Min(targetSize, span.Length);
span = span.Slice(0, minSize);
span.CopyTo(MemoryMarshal.Cast<TBase, byte>(elements));
}
else
{
var leftValueT = Engine.ToObject<TBase>(argIndex, value);
for (int i = 0; i < dimension; i++)
{
elements[i] = leftValueT;
}
}
return Unsafe.As<TBase, T>(ref elements[0]);
}
}
private object ToResult<TBase, T>(T result) where T: unmanaged where TBase: unmanaged
{
var targetSize = Unsafe.SizeOf<T>();
var baseElementSize = Unsafe.SizeOf<TBase>();
var dimension = targetSize / baseElementSize;
var span = MemoryMarshal.Cast<T, TBase>(MemoryMarshal.CreateSpan(ref result, 1));
if (dimension == 1)
{
return span[0];
}
else
{
var vector = new KalkVector<TBase>(dimension);
for (int i = 0; i < dimension; i++)
{
vector[i] = span[i];
}
return vector;
}
}
}
}