long int ListFirstPrimes(long int mpr, long int *prlist) {
  long int prnum = 0;
  int composed = 0;
  long int nmb = 0, j = 0;
  prlist[prnum++] = 2;
  prlist[prnum++] = 3;
  prlist[prnum++] = 5;
  prlist[prnum++] = 7;
  for (nmb = 8; nmb < mpr; nmb++) {
    composed = 0;
    for (j = 0; prlist[j] * prlist[j] <= nmb; j++) {
      if (nmb - prlist[j] * ((long int)(nmb / prlist[j])) == 0) {
        composed = 1;
        break;
      }
    }
    if (composed == 0)
      prlist[prnum++] = nmb;
  }
  return prnum;
}


x86 assembly (clang, -O0):
<ListFirstPrimes>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
movq   $0x0,-0x18(%rbp)
movl   $0x0,-0x1c(%rbp)
movq   $0x0,-0x28(%rbp)
movq   $0x0,-0x30(%rbp)
mov    -0x10(%rbp),%rax
mov    -0x18(%rbp),%rcx
mov    %rcx,%rdx
add    $0x1,%rdx
mov    %rdx,-0x18(%rbp)
movq   $0x2,(%rax,%rcx,8)
mov    -0x10(%rbp),%rax
mov    -0x18(%rbp),%rcx
mov    %rcx,%rdx
add    $0x1,%rdx
mov    %rdx,-0x18(%rbp)
movq   $0x3,(%rax,%rcx,8)
mov    -0x10(%rbp),%rax
mov    -0x18(%rbp),%rcx
mov    %rcx,%rdx
add    $0x1,%rdx
mov    %rdx,-0x18(%rbp)
movq   $0x5,(%rax,%rcx,8)
mov    -0x10(%rbp),%rax
mov    -0x18(%rbp),%rcx
mov    %rcx,%rdx
add    $0x1,%rdx
mov    %rdx,-0x18(%rbp)
movq   $0x7,(%rax,%rcx,8)
movq   $0x8,-0x28(%rbp)
mov    -0x28(%rbp),%rax
cmp    -0x8(%rbp),%rax
jge    127a <ListFirstPrimes+0x17a>
movl   $0x0,-0x1c(%rbp)
movq   $0x0,-0x30(%rbp)
mov    -0x10(%rbp),%rax
mov    -0x30(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
mov    -0x10(%rbp),%rcx
mov    -0x30(%rbp),%rdx
imul   (%rcx,%rdx,8),%rax
cmp    -0x28(%rbp),%rax
jg     123f <ListFirstPrimes+0x13f>
mov    -0x28(%rbp),%rax
mov    %rax,-0x38(%rbp)
mov    -0x10(%rbp),%rax
mov    -0x30(%rbp),%rcx
mov    (%rax,%rcx,8),%rcx
mov    -0x28(%rbp),%rax
mov    -0x10(%rbp),%rsi
mov    -0x30(%rbp),%rdi
cqto
idivq  (%rsi,%rdi,8)
mov    %rax,%rdx
mov    -0x38(%rbp),%rax
imul   %rdx,%rcx
sub    %rcx,%rax
cmp    $0x0,%rax
jne    1229 <ListFirstPrimes+0x129>
movl   $0x1,-0x1c(%rbp)
jmp    123f <ListFirstPrimes+0x13f>
jmp    122e <ListFirstPrimes+0x12e>
mov    -0x30(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x30(%rbp)
jmp    11bc <ListFirstPrimes+0xbc>
cmpl   $0x0,-0x1c(%rbp)
jne    1264 <ListFirstPrimes+0x164>
mov    -0x28(%rbp),%rdx
mov    -0x10(%rbp),%rax
mov    -0x18(%rbp),%rcx
mov    %rcx,%rsi
add    $0x1,%rsi
mov    %rsi,-0x18(%rbp)
mov    %rdx,(%rax,%rcx,8)
jmp    1269 <ListFirstPrimes+0x169>
mov    -0x28(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x28(%rbp)
jmp    119f <ListFirstPrimes+0x9f>
mov    -0x18(%rbp),%rax
pop    %rbp
ret

x86 assembly (clang, -O2):
<ListFirstPrimes>:
push   %rbx
movaps 0xef8(%rip),%xmm0
movups %xmm0,(%rsi)
movaps 0xefe(%rip),%xmm0
movups %xmm0,0x10(%rsi)
mov    $0x4,%r8d
cmp    $0x9,%rdi
jl     11b1 <ListFirstPrimes+0xb1>
lea    0x8(%rsi),%r9
mov    $0x4,%r8d
mov    $0x8,%r11d
mov    $0x2,%r10d
jmp    1154 <ListFirstPrimes+0x54>
xchg   %ax,%ax
mov    %r11,(%rsi,%r8,8)
add    $0x1,%r8
mov    (%rsi),%r10
add    $0x1,%r11
cmp    %rdi,%r11
je     11b1 <ListFirstPrimes+0xb1>
mov    %r10,%rax
imul   %r10,%rax
mov    %r9,%rcx
mov    %r10,%rbx
cmp    %r11,%rax
ja     1140 <ListFirstPrimes+0x40>
cs nopw 0x0(%rax,%rax,1)
mov    %r11,%rax
or     %rbx,%rax
shr    $0x20,%rax
je     1190 <ListFirstPrimes+0x90>
mov    %r11,%rax
cqto
idiv   %rbx
jmp    1197 <ListFirstPrimes+0x97>
cs nopw 0x0(%rax,%rax,1)
mov    %r11d,%eax
xor    %edx,%edx
div    %ebx
test   %rdx,%rdx
je     114b <ListFirstPrimes+0x4b>
mov    (%rcx),%rbx
mov    %rbx,%rax
imul   %rbx,%rax
add    $0x8,%rcx
cmp    %r11,%rax
jbe    1170 <ListFirstPrimes+0x70>
jmp    1140 <ListFirstPrimes+0x40>
mov    %r8,%rax
pop    %rbx
ret

LLVM IR (-O0):
define i64 @ListFirstPrimes(i64 %0, i64* %1) {
%3 = alloca i64
%4 = alloca i64*
%5 = alloca i64
%6 = alloca i32
%7 = alloca i64
%8 = alloca i64
store i64 %0, i64* %3
store i64* %1, i64** %4
store i64 0, i64* %5
store i32 0, i32* %6
store i64 0, i64* %7
store i64 0, i64* %8
%9 = load i64*, i64** %4
%10 = load i64, i64* %5
%11 = add nsw i64 %10, 1
store i64 %11, i64* %5
%12 = getelementptr inbounds i64, i64* %9, i64 %10
store i64 2, i64* %12
%13 = load i64*, i64** %4
%14 = load i64, i64* %5
%15 = add nsw i64 %14, 1
store i64 %15, i64* %5
%16 = getelementptr inbounds i64, i64* %13, i64 %14
store i64 3, i64* %16
%17 = load i64*, i64** %4
%18 = load i64, i64* %5
%19 = add nsw i64 %18, 1
store i64 %19, i64* %5
%20 = getelementptr inbounds i64, i64* %17, i64 %18
store i64 5, i64* %20
%21 = load i64*, i64** %4
%22 = load i64, i64* %5
%23 = add nsw i64 %22, 1
store i64 %23, i64* %5
%24 = getelementptr inbounds i64, i64* %21, i64 %22
store i64 7, i64* %24
store i64 8, i64* %7
br label %25
25: ; preds = %72, %2
%26 = load i64, i64* %7
%27 = load i64, i64* %3
%28 = icmp slt i64 %26, %27
br i1 %28, label %29, label %75
29: ; preds = %25
store i32 0, i32* %6
store i64 0, i64* %8
br label %30
30: ; preds = %59, %29
%31 = load i64*, i64** %4
%32 = load i64, i64* %8
%33 = getelementptr inbounds i64, i64* %31, i64 %32
%34 = load i64, i64* %33
%35 = load i64*, i64** %4
%36 = load i64, i64* %8
%37 = getelementptr inbounds i64, i64* %35, i64 %36
%38 = load i64, i64* %37
%39 = mul nsw i64 %34, %38
%40 = load i64, i64* %7
%41 = icmp sle i64 %39, %40
br i1 %41, label %42, label %62
42: ; preds = %30
%43 = load i64, i64* %7
%44 = load i64*, i64** %4
%45 = load i64, i64* %8
%46 = getelementptr inbounds i64, i64* %44, i64 %45
%47 = load i64, i64* %46
%48 = load i64, i64* %7
%49 = load i64*, i64** %4
%50 = load i64, i64* %8
%51 = getelementptr inbounds i64, i64* %49, i64 %50
%52 = load i64, i64* %51
%53 = sdiv i64 %48, %52
%54 = mul nsw i64 %47, %53
%55 = sub nsw i64 %43, %54
%56 = icmp eq i64 %55, 0
br i1 %56, label %57, label %58
57: ; preds = %42
store i32 1, i32* %6
br label %62
58: ; preds = %42
br label %59
59: ; preds = %58
%60 = load i64, i64* %8
%61 = add nsw i64 %60, 1
store i64 %61, i64* %8
br label %30
62: ; preds = %57, %30
%63 = load i32, i32* %6
%64 = icmp eq i32 %63, 0
br i1 %64, label %65, label %71
65: ; preds = %62
%66 = load i64, i64* %7
%67 = load i64*, i64** %4
%68 = load i64, i64* %5
%69 = add nsw i64 %68, 1
store i64 %69, i64* %5
%70 = getelementptr inbounds i64, i64* %67, i64 %68
store i64 %66, i64* %70
br label %71
71: ; preds = %65, %62
br label %72
72: ; preds = %71
%73 = load i64, i64* %7
%74 = add nsw i64 %73, 1
store i64 %74, i64* %7
br label %25
75: ; preds = %25
%76 = load i64, i64* %5
ret i64 %76
}

LLVM IR (-O2):
define i64 @ListFirstPrimes(i64 %0, i64* nocapture %1) {
%3 = bitcast i64* %1 to <2 x i64>*
store <2 x i64> <i64 2, i64 3>, <2 x i64>* %3
%4 = getelementptr inbounds i64, i64* %1, i64 2
%5 = bitcast i64* %4 to <2 x i64>*
store <2 x i64> <i64 5, i64 7>, <2 x i64>* %5
%6 = icmp sgt i64 %0, 8
br i1 %6, label %7, label %33
7: ; preds = %2, %28
%8 = phi i64 [ %29, %28 ], [ 2, %2 ]
%9 = phi i64 [ %31, %28 ], [ 8, %2 ]
%10 = phi i64 [ %30, %28 ], [ 4, %2 ]
%11 = mul nsw i64 %8, %8
%12 = icmp ugt i64 %11, %9
br i1 %12, label %24, label %18
13: ; preds = %18
%14 = getelementptr inbounds i64, i64* %1, i64 %23
%15 = load i64, i64* %14
%16 = mul nsw i64 %15, %15
%17 = icmp ugt i64 %16, %9
br i1 %17, label %24, label %18
18: ; preds = %7, %13
%19 = phi i64 [ %15, %13 ], [ %8, %7 ]
%20 = phi i64 [ %23, %13 ], [ 0, %7 ]
%21 = srem i64 %9, %19
%22 = icmp eq i64 %21, 0
%23 = add nuw nsw i64 %20, 1
br i1 %22, label %28, label %13
24: ; preds = %13, %7
%25 = add nsw i64 %10, 1
%26 = getelementptr inbounds i64, i64* %1, i64 %10
store i64 %9, i64* %26
%27 = load i64, i64* %1
br label %28
28: ; preds = %18, %24
%29 = phi i64 [ %27, %24 ], [ %8, %18 ]
%30 = phi i64 [ %25, %24 ], [ %10, %18 ]
%31 = add nuw nsw i64 %9, 1
%32 = icmp eq i64 %31, %0
br i1 %32, label %33, label %7
33: ; preds = %28, %2
%34 = phi i64 [ 4, %2 ], [ %30, %28 ]
ret i64 %34
}