void preenche_identidade(double **M, int dim) {
  int i, j;
  for (i = 0; i < dim; i++) {
    for (j = 0; j < dim; j++) {
      M[i][j] = (i == j);
    }
  }
}


x86 assembly (clang, -O0):
<preenche_identidade>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
movl   $0x0,-0x10(%rbp)
mov    -0x10(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    1179 <preenche_identidade+0x79>
movl   $0x0,-0x14(%rbp)
mov    -0x14(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    1166 <preenche_identidade+0x66>
mov    -0x10(%rbp),%eax
cmp    -0x14(%rbp),%eax
sete   %al
and    $0x1,%al
movzbl %al,%eax
cvtsi2sd %eax,%xmm0
mov    -0x8(%rbp),%rax
movslq -0x10(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x14(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x14(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
jmp    1125 <preenche_identidade+0x25>
jmp    116b <preenche_identidade+0x6b>
mov    -0x10(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x10(%rbp)
jmp    1112 <preenche_identidade+0x12>
pop    %rbp
ret

x86 assembly (clang, -O2):
<preenche_identidade>:
test   %esi,%esi
jle    11da <preenche_identidade+0xda>
mov    %esi,%r9d
lea    -0x1(%r9),%r8
mov    %r9d,%r11d
and    $0x3,%r11d
mov    %r9d,%r10d
and    $0xfffffffc,%r10d
xor    %ecx,%ecx
movsd  0xed9(%rip),%xmm0
jmp    113d <preenche_identidade+0x3d>
nopl   0x0(%rax)
add    $0x1,%rcx
cmp    %r9,%rcx
je     11da <preenche_identidade+0xda>
mov    (%rdi,%rcx,8),%rax
xor    %esi,%esi
cmp    $0x3,%r8
jae    118f <preenche_identidade+0x8f>
test   %r11,%r11
je     1130 <preenche_identidade+0x30>
lea    (%rax,%rsi,8),%rax
mov    %rcx,%rdx
sub    %rsi,%rdx
xor    %esi,%esi
jmp    116e <preenche_identidade+0x6e>
nopl   0x0(%rax)
movsd  %xmm1,(%rax,%rsi,8)
add    $0x1,%rsi
cmp    %rsi,%r11
je     1130 <preenche_identidade+0x30>
movaps %xmm0,%xmm1
cmp    %rsi,%rdx
je     1160 <preenche_identidade+0x60>
xorps  %xmm1,%xmm1
jmp    1160 <preenche_identidade+0x60>
nopl   0x0(%rax,%rax,1)
movsd  %xmm1,0x18(%rax,%rsi,8)
add    $0x4,%rsi
cmp    %r10,%rsi
je     1149 <preenche_identidade+0x49>
movaps %xmm0,%xmm1
cmp    %rsi,%rcx
je     119a <preenche_identidade+0x9a>
xorps  %xmm1,%xmm1
movsd  %xmm1,(%rax,%rsi,8)
lea    0x1(%rsi),%rdx
movaps %xmm0,%xmm1
cmp    %rdx,%rcx
je     11ae <preenche_identidade+0xae>
xorps  %xmm1,%xmm1
movsd  %xmm1,0x8(%rax,%rsi,8)
lea    0x2(%rsi),%rdx
movaps %xmm0,%xmm1
cmp    %rdx,%rcx
je     11c3 <preenche_identidade+0xc3>
xorps  %xmm1,%xmm1
movsd  %xmm1,0x10(%rax,%rsi,8)
lea    0x3(%rsi),%rdx
movaps %xmm0,%xmm1
cmp    %rdx,%rcx
je     1180 <preenche_identidade+0x80>
xorps  %xmm1,%xmm1
jmp    1180 <preenche_identidade+0x80>
ret

LLVM IR (-O0):
define void @preenche_identidade(double** %0, i32 %1) {
%3 = alloca double**
%4 = alloca i32
%5 = alloca i32
%6 = alloca i32
store double** %0, double*** %3
store i32 %1, i32* %4
store i32 0, i32* %5
br label %7
7: ; preds = %34, %2
%8 = load i32, i32* %5
%9 = load i32, i32* %4
%10 = icmp slt i32 %8, %9
br i1 %10, label %11, label %37
11: ; preds = %7
store i32 0, i32* %6
br label %12
12: ; preds = %30, %11
%13 = load i32, i32* %6
%14 = load i32, i32* %4
%15 = icmp slt i32 %13, %14
br i1 %15, label %16, label %33
16: ; preds = %12
%17 = load i32, i32* %5
%18 = load i32, i32* %6
%19 = icmp eq i32 %17, %18
%20 = zext i1 %19 to i32
%21 = sitofp i32 %20 to double
%22 = load double**, double*** %3
%23 = load i32, i32* %5
%24 = sext i32 %23 to i64
%25 = getelementptr inbounds double*, double** %22, i64 %24
%26 = load double*, double** %25
%27 = load i32, i32* %6
%28 = sext i32 %27 to i64
%29 = getelementptr inbounds double, double* %26, i64 %28
store double %21, double* %29
br label %30
30: ; preds = %16
%31 = load i32, i32* %6
%32 = add nsw i32 %31, 1
store i32 %32, i32* %6
br label %12
33: ; preds = %12
br label %34
34: ; preds = %33
%35 = load i32, i32* %5
%36 = add nsw i32 %35, 1
store i32 %36, i32* %5
br label %7
37: ; preds = %7
ret void
}

LLVM IR (-O2):
define void @preenche_identidade(double** nocapture %0, i32 %1) {
%3 = icmp sgt i32 %1, 0
br i1 %3, label %4, label %50
4: ; preds = %2
%5 = zext i32 %1 to i64
%6 = add nsw i64 %5, -1
%7 = and i64 %5, 3
%8 = icmp ult i64 %6, 3
%9 = and i64 %5, 4294967292
%10 = icmp eq i64 %7, 0
br label %11
11: ; preds = %47, %4
%12 = phi i64 [ 0, %4 ], [ %48, %47 ]
%13 = getelementptr inbounds double*, double** %0, i64 %12
%14 = load double*, double** %13
br i1 %8, label %36, label %15
15: ; preds = %11, %15
%16 = phi i64 [ %33, %15 ], [ 0, %11 ]
%17 = phi i64 [ %34, %15 ], [ 0, %11 ]
%18 = icmp eq i64 %12, %16
%19 = uitofp i1 %18 to double
%20 = getelementptr inbounds double, double* %14, i64 %16
store double %19, double* %20
%21 = or i64 %16, 1
%22 = icmp eq i64 %12, %21
%23 = uitofp i1 %22 to double
%24 = getelementptr inbounds double, double* %14, i64 %21
store double %23, double* %24
%25 = or i64 %16, 2
%26 = icmp eq i64 %12, %25
%27 = uitofp i1 %26 to double
%28 = getelementptr inbounds double, double* %14, i64 %25
store double %27, double* %28
%29 = or i64 %16, 3
%30 = icmp eq i64 %12, %29
%31 = uitofp i1 %30 to double
%32 = getelementptr inbounds double, double* %14, i64 %29
store double %31, double* %32
%33 = add nuw nsw i64 %16, 4
%34 = add i64 %17, 4
%35 = icmp eq i64 %34, %9
br i1 %35, label %36, label %15
36: ; preds = %15, %11
%37 = phi i64 [ 0, %11 ], [ %33, %15 ]
br i1 %10, label %47, label %38
38: ; preds = %36, %38
%39 = phi i64 [ %44, %38 ], [ %37, %36 ]
%40 = phi i64 [ %45, %38 ], [ 0, %36 ]
%41 = icmp eq i64 %12, %39
%42 = uitofp i1 %41 to double
%43 = getelementptr inbounds double, double* %14, i64 %39
store double %42, double* %43
%44 = add nuw nsw i64 %39, 1
%45 = add i64 %40, 1
%46 = icmp eq i64 %45, %7
br i1 %46, label %47, label %38
47: ; preds = %38, %36
%48 = add nuw nsw i64 %12, 1
%49 = icmp eq i64 %48, %5
br i1 %49, label %50, label %11
50: ; preds = %47, %2
ret void
}