unsigned long __ecm_eulerphi(unsigned long n) {
  unsigned long phi = 1UL, p;
  for (p = 2UL; p * p <= n; p += 2UL) {
    if (n % p == 0UL) {
      phi *= p - 1UL;
      n /= p;
      while (n % p == 0UL) {
        phi *= p;
        n /= p;
      }
    }
    if (p == 2UL)
      p--;
  }
  return (n == 1UL) ? phi : phi * (n - 1UL);
}


x86 assembly (clang, -O0):
<__ecm_eulerphi>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
movq   $0x1,-0x10(%rbp)
movq   $0x2,-0x18(%rbp)
mov    -0x18(%rbp),%rax
imul   -0x18(%rbp),%rax
cmp    -0x8(%rbp),%rax
ja     11ce <__ecm_eulerphi+0xce>
mov    -0x8(%rbp),%rax
xor    %ecx,%ecx
mov    %ecx,%edx
divq   -0x18(%rbp)
cmp    $0x0,%rdx
jne    11a1 <__ecm_eulerphi+0xa1>
mov    -0x18(%rbp),%rax
sub    $0x1,%rax
imul   -0x10(%rbp),%rax
mov    %rax,-0x10(%rbp)
mov    -0x18(%rbp),%rcx
mov    -0x8(%rbp),%rax
xor    %edx,%edx
div    %rcx
mov    %rax,-0x8(%rbp)
mov    -0x8(%rbp),%rax
xor    %ecx,%ecx
mov    %ecx,%edx
divq   -0x18(%rbp)
cmp    $0x0,%rdx
jne    119c <__ecm_eulerphi+0x9c>
mov    -0x18(%rbp),%rax
imul   -0x10(%rbp),%rax
mov    %rax,-0x10(%rbp)
mov    -0x18(%rbp),%rcx
mov    -0x8(%rbp),%rax
xor    %edx,%edx
div    %rcx
mov    %rax,-0x8(%rbp)
jmp    1163 <__ecm_eulerphi+0x63>
jmp    11a1 <__ecm_eulerphi+0xa1>
cmpq   $0x2,-0x18(%rbp)
jne    11b8 <__ecm_eulerphi+0xb8>
mov    -0x18(%rbp),%rax
add    $0xffffffffffffffff,%rax
mov    %rax,-0x18(%rbp)
jmp    11bd <__ecm_eulerphi+0xbd>
mov    -0x18(%rbp),%rax
add    $0x2,%rax
mov    %rax,-0x18(%rbp)
jmp    1118 <__ecm_eulerphi+0x18>
cmpq   $0x1,-0x8(%rbp)
jne    11e6 <__ecm_eulerphi+0xe6>
mov    -0x10(%rbp),%rax
mov    %rax,-0x20(%rbp)
jmp    11fa <__ecm_eulerphi+0xfa>
mov    -0x10(%rbp),%rax
mov    -0x8(%rbp),%rcx
sub    $0x1,%rcx
imul   %rcx,%rax
mov    %rax,-0x20(%rbp)
mov    -0x20(%rbp),%rax
pop    %rbp
ret

x86 assembly (clang, -O2):
<__ecm_eulerphi>:
mov    %rdi,%r9
mov    $0x1,%esi
cmp    $0x4,%rdi
jae    1122 <__ecm_eulerphi+0x22>
mov    %r9,%rcx
lea    -0x1(%rcx),%rax
cmp    $0x1,%rcx
cmove  %rcx,%rax
imul   %rsi,%rax
ret
mov    $0x1,%esi
mov    $0x2,%edi
mov    $0x3,%r8d
jmp    115e <__ecm_eulerphi+0x5e>
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
mov    %r9,%rcx
lea    0x2(%rdi),%rax
cmp    $0x2,%rdi
cmove  %r8,%rax
mov    %rax,%rdi
imul   %rax,%rax
mov    %rcx,%r9
cmp    %rcx,%rax
ja     1111 <__ecm_eulerphi+0x11>
mov    %r9,%rax
or     %rdi,%rax
shr    $0x20,%rax
je     1180 <__ecm_eulerphi+0x80>
mov    %r9,%rax
xor    %edx,%edx
div    %rdi
mov    %rax,%rcx
test   %rdx,%rdx
jne    1140 <__ecm_eulerphi+0x40>
jmp    118e <__ecm_eulerphi+0x8e>
nopl   0x0(%rax)
mov    %r9d,%eax
xor    %edx,%edx
div    %edi
mov    %eax,%ecx
test   %rdx,%rdx
jne    1140 <__ecm_eulerphi+0x40>
lea    -0x1(%rdi),%r9
mov    %rcx,%rax
or     %rdi,%rax
shr    $0x20,%rax
je     11a8 <__ecm_eulerphi+0xa8>
mov    %rcx,%rax
xor    %edx,%edx
div    %rdi
jmp    11ae <__ecm_eulerphi+0xae>
mov    %ecx,%eax
xor    %edx,%edx
div    %edi
imul   %r9,%rsi
test   %rdx,%rdx
je     11d5 <__ecm_eulerphi+0xd5>
jmp    1143 <__ecm_eulerphi+0x43>
nopl   0x0(%rax)
mov    %rcx,%rax
xor    %edx,%edx
div    %rdi
imul   %rdi,%rsi
test   %rdx,%rdx
jne    1143 <__ecm_eulerphi+0x43>
mov    %rcx,%rax
or     %rdi,%rax
shr    $0x20,%rax
je     11f0 <__ecm_eulerphi+0xf0>
mov    %rcx,%rax
xor    %edx,%edx
div    %rdi
mov    %rax,%rcx
jmp    11f8 <__ecm_eulerphi+0xf8>
xchg   %ax,%ax
mov    %ecx,%eax
xor    %edx,%edx
div    %edi
mov    %eax,%ecx
mov    %rcx,%rax
or     %rdi,%rax
shr    $0x20,%rax
jne    11c0 <__ecm_eulerphi+0xc0>
mov    %ecx,%eax
xor    %edx,%edx
div    %edi
imul   %rdi,%rsi
test   %rdx,%rdx
je     11d5 <__ecm_eulerphi+0xd5>
jmp    1143 <__ecm_eulerphi+0x43>

LLVM IR (-O0):
define i64 @__ecm_eulerphi(i64 %0) {
%2 = alloca i64
%3 = alloca i64
%4 = alloca i64
store i64 %0, i64* %2
store i64 1, i64* %3
store i64 2, i64* %4
br label %5
5: ; preds = %44, %1
%6 = load i64, i64* %4
%7 = load i64, i64* %4
%8 = mul i64 %6, %7
%9 = load i64, i64* %2
%10 = icmp ule i64 %8, %9
br i1 %10, label %11, label %47
11: ; preds = %5
%12 = load i64, i64* %2
%13 = load i64, i64* %4
%14 = urem i64 %12, %13
%15 = icmp eq i64 %14, 0
br i1 %15, label %16, label %37
16: ; preds = %11
%17 = load i64, i64* %4
%18 = sub i64 %17, 1
%19 = load i64, i64* %3
%20 = mul i64 %19, %18
store i64 %20, i64* %3
%21 = load i64, i64* %4
%22 = load i64, i64* %2
%23 = udiv i64 %22, %21
store i64 %23, i64* %2
br label %24
24: ; preds = %29, %16
%25 = load i64, i64* %2
%26 = load i64, i64* %4
%27 = urem i64 %25, %26
%28 = icmp eq i64 %27, 0
br i1 %28, label %29, label %36
29: ; preds = %24
%30 = load i64, i64* %4
%31 = load i64, i64* %3
%32 = mul i64 %31, %30
store i64 %32, i64* %3
%33 = load i64, i64* %4
%34 = load i64, i64* %2
%35 = udiv i64 %34, %33
store i64 %35, i64* %2
br label %24
36: ; preds = %24
br label %37
37: ; preds = %36, %11
%38 = load i64, i64* %4
%39 = icmp eq i64 %38, 2
br i1 %39, label %40, label %43
40: ; preds = %37
%41 = load i64, i64* %4
%42 = add i64 %41, -1
store i64 %42, i64* %4
br label %43
43: ; preds = %40, %37
br label %44
44: ; preds = %43
%45 = load i64, i64* %4
%46 = add i64 %45, 2
store i64 %46, i64* %4
br label %5
47: ; preds = %5
%48 = load i64, i64* %2
%49 = icmp eq i64 %48, 1
br i1 %49, label %50, label %52
50: ; preds = %47
%51 = load i64, i64* %3
br label %57
52: ; preds = %47
%53 = load i64, i64* %3
%54 = load i64, i64* %2
%55 = sub i64 %54, 1
%56 = mul i64 %53, %55
br label %57
57: ; preds = %52, %50
%58 = phi i64 [ %51, %50 ], [ %56, %52 ]
ret i64 %58
}

LLVM IR (-O2):
define i64 @__ecm_eulerphi(i64 %0) {
%2 = icmp ult i64 %0, 4
br i1 %2, label %30, label %3
3: ; preds = %1, %22
%4 = phi i64 [ %27, %22 ], [ 2, %1 ]
%5 = phi i64 [ %24, %22 ], [ 1, %1 ]
%6 = phi i64 [ %23, %22 ], [ %0, %1 ]
%7 = urem i64 %6, %4
%8 = udiv i64 %6, %4
%9 = icmp eq i64 %7, 0
br i1 %9, label %10, label %22
10: ; preds = %3
%11 = add i64 %4, -1
%12 = mul i64 %11, %5
%13 = urem i64 %8, %4
%14 = icmp eq i64 %13, 0
br i1 %14, label %15, label %22
15: ; preds = %10, %15
%16 = phi i64 [ %19, %15 ], [ %8, %10 ]
%17 = phi i64 [ %18, %15 ], [ %12, %10 ]
%18 = mul i64 %17, %4
%19 = udiv i64 %16, %4
%20 = urem i64 %19, %4
%21 = icmp eq i64 %20, 0
br i1 %21, label %15, label %22
22: ; preds = %15, %10, %3
%23 = phi i64 [ %6, %3 ], [ %8, %10 ], [ %19, %15 ]
%24 = phi i64 [ %5, %3 ], [ %12, %10 ], [ %18, %15 ]
%25 = icmp eq i64 %4, 2
%26 = add i64 %4, 2
%27 = select i1 %25, i64 3, i64 %26
%28 = mul i64 %27, %27
%29 = icmp ugt i64 %28, %23
br i1 %29, label %30, label %3
30: ; preds = %22, %1
%31 = phi i64 [ %0, %1 ], [ %23, %22 ]
%32 = phi i64 [ 1, %1 ], [ %24, %22 ]
%33 = icmp eq i64 %31, 1
%34 = add i64 %31, -1
%35 = select i1 %33, i64 1, i64 %34
%36 = mul i64 %35, %32
ret i64 %36
}