unsigned long insert_sprg(unsigned long insn, long value, int dialect,
                          const char **errmsg) {
  if (value > 7 || (value > 3 && (dialect & (0x800 | 0x400)) == 0))
    *errmsg = "invalid sprg number";
  if (value <= 3 || (insn & 0x100) != 0)
    value |= 0x10;
  return insn | ((value & 0x17) << 16);
}


x86 assembly (clang, -O0):
<insert_sprg>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
mov    %rcx,-0x20(%rbp)
cmpq   $0x7,-0x10(%rbp)
jg     113a <insert_sprg+0x3a>
cmpq   $0x3,-0x10(%rbp)
jle    1148 <insert_sprg+0x48>
mov    -0x14(%rbp),%eax
and    $0xc00,%eax
cmp    $0x0,%eax
jne    1148 <insert_sprg+0x48>
mov    -0x20(%rbp),%rax
lea    0xebb(%rip),%rcx
mov    %rcx,(%rax)
cmpq   $0x3,-0x10(%rbp)
jle    1167 <insert_sprg+0x67>
mov    -0x8(%rbp),%rax
and    $0x100,%rax
cmp    $0x0,%rax
je     1173 <insert_sprg+0x73>
mov    -0x10(%rbp),%rax
or     $0x10,%rax
mov    %rax,-0x10(%rbp)
mov    -0x8(%rbp),%rax
mov    -0x10(%rbp),%rcx
and    $0x17,%rcx
shl    $0x10,%rcx
or     %rcx,%rax
pop    %rbp
ret

x86 assembly (clang, -O2):
<insert_sprg>:
cmp    $0x7,%rsi
jg     1114 <insert_sprg+0x14>
cmp    $0x4,%rsi
jl     111e <insert_sprg+0x1e>
and    $0xc00,%edx
jne    111e <insert_sprg+0x1e>
lea    0xee5(%rip),%rax
mov    %rax,(%rcx)
mov    %rsi,%rax
shl    $0x10,%rax
mov    %eax,%ecx
or     $0x100000,%ecx
test   $0x100,%edi
cmovne %rcx,%rax
cmp    $0x4,%rsi
cmovl  %rcx,%rax
and    $0x170000,%eax
or     %rdi,%rax
ret

LLVM IR (-O0):
@.str = [20 x i8] c"invalid sprg number\00"
define i64 @insert_sprg(i64 %0, i64 %1, i32 %2, i8** %3) {
%5 = alloca i64
%6 = alloca i64
%7 = alloca i32
%8 = alloca i8**
store i64 %0, i64* %5
store i64 %1, i64* %6
store i32 %2, i32* %7
store i8** %3, i8*** %8
%9 = load i64, i64* %6
%10 = icmp sgt i64 %9, 7
br i1 %10, label %18, label %11
11: ; preds = %4
%12 = load i64, i64* %6
%13 = icmp sgt i64 %12, 3
br i1 %13, label %14, label %20
14: ; preds = %11
%15 = load i32, i32* %7
%16 = and i32 %15, 3072
%17 = icmp eq i32 %16, 0
br i1 %17, label %18, label %20
18: ; preds = %14, %4
%19 = load i8**, i8*** %8
store i8* getelementptr inbounds ([20 x i8], [20 x i8]* @.str, i64 0, i64 0), i8** %19
br label %20
20: ; preds = %18, %14, %11
%21 = load i64, i64* %6
%22 = icmp sle i64 %21, 3
br i1 %22, label %27, label %23
23: ; preds = %20
%24 = load i64, i64* %5
%25 = and i64 %24, 256
%26 = icmp ne i64 %25, 0
br i1 %26, label %27, label %30
27: ; preds = %23, %20
%28 = load i64, i64* %6
%29 = or i64 %28, 16
store i64 %29, i64* %6
br label %30
30: ; preds = %27, %23
%31 = load i64, i64* %5
%32 = load i64, i64* %6
%33 = and i64 %32, 23
%34 = shl i64 %33, 16
%35 = or i64 %31, %34
ret i64 %35
}

LLVM IR (-O2):
@.str = [20 x i8] c"invalid sprg number\00"
define i64 @insert_sprg(i64 %0, i64 %1, i32 %2, i8** nocapture writeonly %3) {
%5 = icmp sgt i64 %1, 7
br i1 %5, label %11, label %6
6: ; preds = %4
%7 = icmp sgt i64 %1, 3
%8 = and i32 %2, 3072
%9 = icmp eq i32 %8, 0
%10 = and i1 %7, %9
br i1 %10, label %11, label %12
11: ; preds = %6, %4
store i8* getelementptr inbounds ([20 x i8], [20 x i8]* @.str, i64 0, i64 0), i8** %3
br label %12
12: ; preds = %11, %6
%13 = icmp sgt i64 %1, 3
%14 = and i64 %0, 256
%15 = icmp eq i64 %14, 0
%16 = and i1 %13, %15
%17 = shl i64 %1, 16
%18 = or i64 %17, 1048576
%19 = select i1 %16, i64 %17, i64 %18
%20 = and i64 %19, 1507328
%21 = or i64 %20, %0
ret i64 %21
}