double modDecimal(double x, double divisor) {
  double temp = x;
  double d = divisor;
  if (divisor == 0) {
    temp = 0;
  } else {
    if (divisor <= 0) {
      d = -divisor;
    } else {
      d = divisor;
    }
    while (temp < 0) {
      temp = temp + d;
    }
    while (temp > d) {
      temp = temp - d;
    }
  }
  return temp;
}


x86 assembly (clang, -O0):
<modDecimal>:
push   %rbp
mov    %rsp,%rbp
movsd  %xmm0,-0x8(%rbp)
movsd  %xmm1,-0x10(%rbp)
movsd  -0x8(%rbp),%xmm0
movsd  %xmm0,-0x18(%rbp)
movsd  -0x10(%rbp),%xmm0
movsd  %xmm0,-0x20(%rbp)
movsd  -0x10(%rbp),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jne    1147 <modDecimal+0x47>
jp     1147 <modDecimal+0x47>
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x18(%rbp)
jmp    11da <modDecimal+0xda>
xorps  %xmm0,%xmm0
ucomisd -0x10(%rbp),%xmm0
jb     117b <modDecimal+0x7b>
movsd  -0x10(%rbp),%xmm0
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
movsd  %xmm0,-0x20(%rbp)
jmp    1185 <modDecimal+0x85>
movsd  -0x10(%rbp),%xmm0
movsd  %xmm0,-0x20(%rbp)
jmp    118a <modDecimal+0x8a>
xorps  %xmm0,%xmm0
ucomisd -0x18(%rbp),%xmm0
jbe    11ac <modDecimal+0xac>
movsd  -0x18(%rbp),%xmm0
addsd  -0x20(%rbp),%xmm0
movsd  %xmm0,-0x18(%rbp)
jmp    118a <modDecimal+0x8a>
jmp    11b1 <modDecimal+0xb1>
movsd  -0x18(%rbp),%xmm0
ucomisd -0x20(%rbp),%xmm0
jbe    11d5 <modDecimal+0xd5>
movsd  -0x18(%rbp),%xmm0
subsd  -0x20(%rbp),%xmm0
movsd  %xmm0,-0x18(%rbp)
jmp    11b1 <modDecimal+0xb1>
jmp    11da <modDecimal+0xda>
movsd  -0x18(%rbp),%xmm0
pop    %rbp
ret

x86 assembly (clang, -O2):
<modDecimal>:
xorpd  %xmm2,%xmm2
ucomisd %xmm2,%xmm1
jne    110c <modDecimal+0xc>
jnp    116a <modDecimal+0x6a>
movapd 0xeec(%rip),%xmm4
xorpd  %xmm1,%xmm4
xorpd  %xmm2,%xmm2
movapd %xmm1,%xmm3
cmpnlesd %xmm2,%xmm3
andpd  %xmm3,%xmm1
andnpd %xmm4,%xmm3
orpd   %xmm1,%xmm3
ucomisd %xmm0,%xmm2
jbe    114a <modDecimal+0x4a>
nopw   0x0(%rax,%rax,1)
addsd  %xmm3,%xmm0
ucomisd %xmm0,%xmm2
ja     1140 <modDecimal+0x40>
movapd %xmm0,%xmm2
ucomisd %xmm3,%xmm0
jbe    116a <modDecimal+0x6a>
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
subsd  %xmm3,%xmm2
ucomisd %xmm3,%xmm2
ja     1160 <modDecimal+0x60>
movapd %xmm2,%xmm0
ret

LLVM IR (-O0):
define double @modDecimal(double %0, double %1) {
%3 = alloca double
%4 = alloca double
%5 = alloca double
%6 = alloca double
store double %0, double* %3
store double %1, double* %4
%7 = load double, double* %3
store double %7, double* %5
%8 = load double, double* %4
store double %8, double* %6
%9 = load double, double* %4
%10 = fcmp oeq double %9, 0.000000e+00
br i1 %10, label %11, label %12
11: ; preds = %2
store double 0.000000e+00, double* %5
br label %38
12: ; preds = %2
%13 = load double, double* %4
%14 = fcmp ole double %13, 0.000000e+00
br i1 %14, label %15, label %18
15: ; preds = %12
%16 = load double, double* %4
%17 = fneg double %16
store double %17, double* %6
br label %20
18: ; preds = %12
%19 = load double, double* %4
store double %19, double* %6
br label %20
20: ; preds = %18, %15
br label %21
21: ; preds = %24, %20
%22 = load double, double* %5
%23 = fcmp olt double %22, 0.000000e+00
br i1 %23, label %24, label %28
24: ; preds = %21
%25 = load double, double* %5
%26 = load double, double* %6
%27 = fadd double %25, %26
store double %27, double* %5
br label %21
28: ; preds = %21
br label %29
29: ; preds = %33, %28
%30 = load double, double* %5
%31 = load double, double* %6
%32 = fcmp ogt double %30, %31
br i1 %32, label %33, label %37
33: ; preds = %29
%34 = load double, double* %5
%35 = load double, double* %6
%36 = fsub double %34, %35
store double %36, double* %5
br label %29
37: ; preds = %29
br label %38
38: ; preds = %37, %11
%39 = load double, double* %5
ret double %39
}

LLVM IR (-O2):
define double @modDecimal(double %0, double %1) {
%3 = fcmp oeq double %1, 0.000000e+00
br i1 %3, label %20, label %4
4: ; preds = %2
%5 = fcmp ugt double %1, 0.000000e+00
%6 = fneg double %1
%7 = select i1 %5, double %1, double %6
%8 = fcmp olt double %0, 0.000000e+00
br i1 %8, label %12, label %9
9: ; preds = %12, %4
%10 = phi double [ %0, %4 ], [ %14, %12 ]
%11 = fcmp ogt double %10, %7
br i1 %11, label %16, label %20
12: ; preds = %4, %12
%13 = phi double [ %14, %12 ], [ %0, %4 ]
%14 = fadd double %7, %13
%15 = fcmp olt double %14, 0.000000e+00
br i1 %15, label %12, label %9
16: ; preds = %9, %16
%17 = phi double [ %18, %16 ], [ %10, %9 ]
%18 = fsub double %17, %7
%19 = fcmp ogt double %18, %7
br i1 %19, label %16, label %20
20: ; preds = %16, %9, %2
%21 = phi double [ 0.000000e+00, %2 ], [ %10, %9 ], [ %18, %16 ]
ret double %21
}