Add Arm AArch32 support

Builds on the new AArch64 support, since they're extremely similar.

Author: pthariensflame

src/Random123.jl

@@ -49,8 +49,8 @@ else
     false
 end
 
-"True when AArch64 FEAT_AES instructions have been detected."
-const R123_USE_AARCH64_FEAT_AES::Bool = if Sys.ARCH ≡ :aarch64
+"True when Arm AArch64 FEAT_AES instructions have been detected."
+const R123_USE_ARM_AARCH64_FEAT_AES::Bool = if Sys.ARCH ≡ :aarch64
         try
         cmd = Base.julia_cmd()
         push!(
@@ -72,8 +72,33 @@ else
     false
 end
 
+"True when Arm AArch32 FEAT_AES instructions have been detected."
+const R123_USE_ARM_AARCH32_FEAT_AES::Bool = if Sys.ARCH ≡ :aarch64
+        try
+        cmd = Base.julia_cmd()
+        push!(
+            cmd.exec,
+            "-e",
+            "const uint8x16 = NTuple{16, VecElement{UInt8}};" *
+            "@assert ccall(\"llvm.aarch64.crypto.aesmc\", " *
+            "llvmcall, uint8x16, (uint8x16,), " *
+            "uint8x16((0x4a, 0x68, 0xbd, 0xe1, 0xfe, 0x16, 0x3d, " *
+            "0xec, 0xde, 0x06, 0x72, 0x86, 0xe3, 0x8c, 0x14, 0xd9))) ≡ " *
+            "uint8x16((0x70, 0xa7, 0x7b, 0xd2, 0x0c, 0x79, 0xbd, " *
+            "0xf1, 0x59, 0xc2, 0xad, 0x1a, 0x9f, 0x05, 0x37, 0x0f))",
+        )
+        success(cmd)
+    catch e
+        false
+    end
+else
+    false
+end
+
+const R123_USE_ARM_FEAT_AES::Bool = R123_USE_ARM_AARCH64_FEAT_AES || R123_USE_ARM_AARCH32_FEAT_AES
+
 "True when AES-acceleration instructions have been detected."
-const R123_USE_AESNI::Bool = R123_USE_X86_AES_NI || R123_USE_AARCH64_FEAT_AES
+const R123_USE_AESNI::Bool = R123_USE_X86_AES_NI || R123_USE_ARM_FEAT_AES
 
 @static if R123_USE_AESNI
     export AESNI1x, AESNI4x, aesni
@@ -86,10 +111,10 @@ end
     include("./x86/aesni_common.jl")
     include("./x86/aesni.jl")
     include("./x86/ars.jl")
-elseif R123_USE_AARCH64_FEAT_AES
-    include("./aarch64/aesni_common.jl")
-    include("./aarch64/aesni.jl")
-    include("./aarch64/ars.jl")
+elseif R123_USE_ARM_FEAT_AES
+    include("./arm/aesni_common.jl")
+    include("./arm/aesni.jl")
+    include("./arm/ars.jl")
 end
 
 end

src/aarch64/aesni.jl renamed to src/arm/aesni.jl

@@ -4,6 +4,14 @@ import Base.(+)
 using ..Random123: R123Generator1x, R123Generator4x
 import ..Random123: random123_r, set_counter!
 
+const LLVM_ARCH_STRING::String = @static if R123_USE_ARM_AARCH64_FEAT_AES
+    "aarch64"
+elseif R123_USE_ARM_AARCH32_FEAT_AES
+    "arm"
+else
+    @error "Impossible situation!  Something has gone seriously wrong."
+end
+
 const LITTLE_ENDIAN::Bool = ENDIAN_BOM ≡ 0x04030201
 
 const uint64x2_lvec = NTuple{2, VecElement{UInt64}}
@@ -108,15 +116,17 @@ end
 ) |> uint32x4
 
 # Raw NEON instrinsics, provided by FEAT_AES
+const ARM_AESE_LLVM_INTRINSIC = "llvm.$LLVM_ARCH_STRING.crypto.aese"
 @inline _vaese(a::uint8x16, b::uint8x16) = ccall(
-    "llvm.aarch64.crypto.aese",
+    ARM_AESE_LLVM_INTRINSIC,
     llvmcall,
     uint8x16_lvec,
     (uint8x16_lvec, uint8x16_lvec),
     a.data, b.data,
 ) |> uint8x16
+const ARM_AESMC_LLVM_INTRINSIC = "llvm.$LLVM_ARCH_STRING.crypto.aesmc"
 @inline _vaesmc(a::uint8x16) = ccall(
-    "llvm.aarch64.crypto.aesmc",
+    ARM_AESMC_LLVM_INTRINSIC,
     llvmcall,
     uint8x16_lvec,
     (uint8x16_lvec,),

src/aarch64/aesni_common.jl renamed to src/arm/aesni_common.jl

@@ -175,7 +175,7 @@ cd(pwd_)
 @static if Random123.R123_USE_X86_AES_NI
     include("./x86/aesni.jl")
     include("./x86/ars.jl")
-elseif Random123.R123_USE_AARCH64_FEAT_AES
-    include("./aarch64/aesni.jl")
-    include("./aarch64/ars.jl")
+elseif Random123.R123_USE_ARM_FEAT_AES
+    include("./arm/aesni.jl")
+    include("./arm/ars.jl")
 end