double POWR(statlink, pow, num)
int *statlink;
int pow;
double num;
{
  int p;
  register double n, r;
  if (pow < 0) {
    p = -pow;
    n = 1.0 / num;
  } else {
    p = pow;
    n = num;
  }
  if ((p & 1) != 0) {
    r = n;
  } else {
    r = 1.0;
  }
  p >>= 1;
  while (p != 0) {
    n *= n;
    if ((p & 1) != 0)
      r *= n;
    p >>= 1;
  }
  return (r);
}


x86 assembly (clang, -O0):
<POWR>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
movsd  %xmm0,-0x18(%rbp)
cmpl   $0x0,-0xc(%rbp)
jge    1139 <POWR+0x39>
xor    %eax,%eax
sub    -0xc(%rbp),%eax
mov    %eax,-0x1c(%rbp)
movsd  0xed6(%rip),%xmm0
divsd  -0x18(%rbp),%xmm0
movsd  %xmm0,-0x28(%rbp)
jmp    1149 <POWR+0x49>
mov    -0xc(%rbp),%eax
mov    %eax,-0x1c(%rbp)
movsd  -0x18(%rbp),%xmm0
movsd  %xmm0,-0x28(%rbp)
mov    -0x1c(%rbp),%eax
and    $0x1,%eax
cmp    $0x0,%eax
je     1167 <POWR+0x67>
movsd  -0x28(%rbp),%xmm0
movsd  %xmm0,-0x30(%rbp)
jmp    1174 <POWR+0x74>
movsd  0xe91(%rip),%xmm0
movsd  %xmm0,-0x30(%rbp)
mov    -0x1c(%rbp),%eax
sar    $0x1,%eax
mov    %eax,-0x1c(%rbp)
cmpl   $0x0,-0x1c(%rbp)
je     11c2 <POWR+0xc2>
movsd  -0x28(%rbp),%xmm0
mulsd  -0x28(%rbp),%xmm0
movsd  %xmm0,-0x28(%rbp)
mov    -0x1c(%rbp),%eax
and    $0x1,%eax
cmp    $0x0,%eax
je     11b4 <POWR+0xb4>
movsd  -0x28(%rbp),%xmm0
mulsd  -0x30(%rbp),%xmm0
movsd  %xmm0,-0x30(%rbp)
mov    -0x1c(%rbp),%eax
sar    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    117d <POWR+0x7d>
movsd  -0x30(%rbp),%xmm0
pop    %rbp
ret

x86 assembly (clang, -O2):
<POWR>:
test   %esi,%esi
js     1115 <POWR+0x15>
test   $0x1,%sil
je     112d <POWR+0x2d>
movapd %xmm0,%xmm1
cmp    $0x2,%esi
jb     113a <POWR+0x3a>
jmp    113f <POWR+0x3f>
neg    %esi
movsd  0xee1(%rip),%xmm1
divsd  %xmm0,%xmm1
movapd %xmm1,%xmm0
test   $0x1,%sil
jne    110a <POWR+0xa>
movsd  0xecb(%rip),%xmm1
cmp    $0x2,%esi
jae    113f <POWR+0x3f>
movapd %xmm1,%xmm0
ret
movsd  0xeb9(%rip),%xmm2
jmp    115f <POWR+0x5f>
nopl   0x0(%rax)
mulsd  %xmm3,%xmm1
mov    %esi,%eax
sar    %eax
cmp    $0x3,%esi
mov    %eax,%esi
jbe    113a <POWR+0x3a>
mulsd  %xmm0,%xmm0
movapd %xmm2,%xmm3
test   $0x2,%sil
je     1150 <POWR+0x50>
movapd %xmm0,%xmm3
jmp    1150 <POWR+0x50>

LLVM IR (-O0):
define double @POWR(i32* %0, i32 %1, double %2) {
%4 = alloca i32*
%5 = alloca i32
%6 = alloca double
%7 = alloca i32
%8 = alloca double
%9 = alloca double
store i32* %0, i32** %4
store i32 %1, i32* %5
store double %2, double* %6
%10 = load i32, i32* %5
%11 = icmp slt i32 %10, 0
br i1 %11, label %12, label %17
12: ; preds = %3
%13 = load i32, i32* %5
%14 = sub nsw i32 0, %13
store i32 %14, i32* %7
%15 = load double, double* %6
%16 = fdiv double 1.000000e+00, %15
store double %16, double* %8
br label %20
17: ; preds = %3
%18 = load i32, i32* %5
store i32 %18, i32* %7
%19 = load double, double* %6
store double %19, double* %8
br label %20
20: ; preds = %17, %12
%21 = load i32, i32* %7
%22 = and i32 %21, 1
%23 = icmp ne i32 %22, 0
br i1 %23, label %24, label %26
24: ; preds = %20
%25 = load double, double* %8
store double %25, double* %9
br label %27
26: ; preds = %20
store double 1.000000e+00, double* %9
br label %27
27: ; preds = %26, %24
%28 = load i32, i32* %7
%29 = ashr i32 %28, 1
store i32 %29, i32* %7
br label %30
30: ; preds = %44, %27
%31 = load i32, i32* %7
%32 = icmp ne i32 %31, 0
br i1 %32, label %33, label %47
33: ; preds = %30
%34 = load double, double* %8
%35 = load double, double* %8
%36 = fmul double %35, %34
store double %36, double* %8
%37 = load i32, i32* %7
%38 = and i32 %37, 1
%39 = icmp ne i32 %38, 0
br i1 %39, label %40, label %44
40: ; preds = %33
%41 = load double, double* %8
%42 = load double, double* %9
%43 = fmul double %42, %41
store double %43, double* %9
br label %44
44: ; preds = %40, %33
%45 = load i32, i32* %7
%46 = ashr i32 %45, 1
store i32 %46, i32* %7
br label %30
47: ; preds = %30
%48 = load double, double* %9
ret double %48
}

LLVM IR (-O2):
define double @POWR(i32* nocapture readnone %0, i32 %1, double %2) {
%4 = icmp slt i32 %1, 0
br i1 %4, label %5, label %8
5: ; preds = %3
%6 = sub nsw i32 0, %1
%7 = fdiv double 1.000000e+00, %2
br label %8
8: ; preds = %3, %5
%9 = phi i32 [ %6, %5 ], [ %1, %3 ]
%10 = phi double [ %7, %5 ], [ %2, %3 ]
%11 = and i32 %9, 1
%12 = icmp eq i32 %11, 0
%13 = select i1 %12, double 1.000000e+00, double %10
%14 = icmp ult i32 %9, 2
br i1 %14, label %26, label %15
15: ; preds = %8, %15
%16 = phi double [ %24, %15 ], [ %13, %8 ]
%17 = phi double [ %20, %15 ], [ %10, %8 ]
%18 = phi i32 [ %19, %15 ], [ %9, %8 ]
%19 = ashr i32 %18, 1
%20 = fmul double %17, %17
%21 = and i32 %18, 2
%22 = icmp eq i32 %21, 0
%23 = select i1 %22, double 1.000000e+00, double %20
%24 = fmul double %16, %23
%25 = icmp ult i32 %18, 4
br i1 %25, label %26, label %15
26: ; preds = %15, %8
%27 = phi double [ %13, %8 ], [ %24, %15 ]
ret double %27
}