int squarev(a, b, prec)
unsigned short a[], b[];
int prec;
{
  register unsigned short *p, *q, *r;
  register unsigned long u, lp;
  unsigned short carry;
  int k;
  k = prec + 2;
  p = &b[2];
  do
    *p++ = 0;
  while (--k);
  r = &b[prec + 3];
  for (k = prec + 2; k >= 3; k--) {
    q = &a[3];
    p = &a[k];
    while (p >= q) {
      if ((*p == 0) || (*q == 0)) {
        --p;
        ++q;
        continue;
      }
      lp = (unsigned long)(*p) * (unsigned long)(*q);
      if (p != q) {
        if (lp & 0x80000000)
          *(r - 2) += 1;
        lp <<= 1;
      }
      --p;
      ++q;
      u = (unsigned long)(*r) + (lp & 0xffff);
      if (u & 0x10000)
        carry = 1;
      else
        carry = 0;
      *r-- = u;
      u = (unsigned long)(*r) + ((lp >> 16) & 0xffff) + carry;
      *r-- = u;
      if (u & 0x10000)
        *r += 1;
      r += 2;
    }
    --r;
  }
  shup1(b);
  return 0;
}


x86 assembly (clang, -O0):
<squarev>:
push   %rbp
mov    %rsp,%rbp
sub    $0x50,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
mov    -0x14(%rbp),%eax
add    $0x2,%eax
mov    %eax,-0x48(%rbp)
mov    -0x10(%rbp),%rax
add    $0x4,%rax
mov    %rax,-0x20(%rbp)
mov    -0x20(%rbp),%rax
mov    %rax,%rcx
add    $0x2,%rcx
mov    %rcx,-0x20(%rbp)
movw   $0x0,(%rax)
mov    -0x48(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x48(%rbp)
cmp    $0x0,%eax
jne    1138 <squarev+0x28>
mov    -0x10(%rbp),%rax
mov    -0x14(%rbp),%ecx
add    $0x3,%ecx
movslq %ecx,%rcx
shl    $0x1,%rcx
add    %rcx,%rax
mov    %rax,-0x30(%rbp)
mov    -0x14(%rbp),%eax
add    $0x2,%eax
mov    %eax,-0x48(%rbp)
cmpl   $0x3,-0x48(%rbp)
jl     1342 <squarev+0x232>
mov    -0x8(%rbp),%rax
add    $0x6,%rax
mov    %rax,-0x28(%rbp)
mov    -0x8(%rbp),%rax
movslq -0x48(%rbp),%rcx
shl    $0x1,%rcx
add    %rcx,%rax
mov    %rax,-0x20(%rbp)
mov    -0x20(%rbp),%rax
cmp    -0x28(%rbp),%rax
jb     1328 <squarev+0x218>
mov    -0x20(%rbp),%rax
movzwl (%rax),%eax
cmp    $0x0,%eax
je     11d6 <squarev+0xc6>
mov    -0x28(%rbp),%rax
movzwl (%rax),%eax
cmp    $0x0,%eax
jne    11f3 <squarev+0xe3>
mov    -0x20(%rbp),%rax
add    $0xfffffffffffffffe,%rax
mov    %rax,-0x20(%rbp)
mov    -0x28(%rbp),%rax
add    $0x2,%rax
mov    %rax,-0x28(%rbp)
jmp    11a8 <squarev+0x98>
mov    -0x20(%rbp),%rax
movzwl (%rax),%eax
mov    -0x28(%rbp),%rcx
movzwl (%rcx),%ecx
imul   %rcx,%rax
mov    %rax,-0x40(%rbp)
mov    -0x20(%rbp),%rax
cmp    -0x28(%rbp),%rax
je     124a <squarev+0x13a>
movabs $0x80000000,%rax
and    -0x40(%rbp),%rax
cmp    $0x0,%rax
je     123e <squarev+0x12e>
mov    -0x30(%rbp),%rax
movzwl -0x4(%rax),%ecx
add    $0x1,%ecx
mov    %cx,-0x4(%rax)
mov    -0x40(%rbp),%rax
shl    $0x1,%rax
mov    %rax,-0x40(%rbp)
mov    -0x20(%rbp),%rax
add    $0xfffffffffffffffe,%rax
mov    %rax,-0x20(%rbp)
mov    -0x28(%rbp),%rax
add    $0x2,%rax
mov    %rax,-0x28(%rbp)
mov    -0x30(%rbp),%rax
movzwl (%rax),%eax
mov    -0x40(%rbp),%rcx
and    $0xffff,%rcx
add    %rcx,%rax
mov    %rax,-0x38(%rbp)
mov    -0x38(%rbp),%rax
and    $0x10000,%rax
cmp    $0x0,%rax
je     129a <squarev+0x18a>
movw   $0x1,-0x42(%rbp)
jmp    12a0 <squarev+0x190>
movw   $0x0,-0x42(%rbp)
mov    -0x38(%rbp),%rax
mov    %ax,%cx
mov    -0x30(%rbp),%rax
mov    %rax,%rdx
add    $0xfffffffffffffffe,%rdx
mov    %rdx,-0x30(%rbp)
mov    %cx,(%rax)
mov    -0x30(%rbp),%rax
movzwl (%rax),%eax
mov    -0x40(%rbp),%rcx
shr    $0x10,%rcx
and    $0xffff,%rcx
add    %rcx,%rax
movzwl -0x42(%rbp),%ecx
add    %rcx,%rax
mov    %rax,-0x38(%rbp)
mov    -0x38(%rbp),%rax
mov    %ax,%cx
mov    -0x30(%rbp),%rax
mov    %rax,%rdx
add    $0xfffffffffffffffe,%rdx
mov    %rdx,-0x30(%rbp)
mov    %cx,(%rax)
mov    -0x38(%rbp),%rax
and    $0x10000,%rax
cmp    $0x0,%rax
je     1317 <squarev+0x207>
mov    -0x30(%rbp),%rax
movzwl (%rax),%ecx
add    $0x1,%ecx
mov    %cx,(%rax)
mov    -0x30(%rbp),%rax
add    $0x4,%rax
mov    %rax,-0x30(%rbp)
jmp    11a8 <squarev+0x98>
mov    -0x30(%rbp),%rax
add    $0xfffffffffffffffe,%rax
mov    %rax,-0x30(%rbp)
mov    -0x48(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x48(%rbp)
jmp    117f <squarev+0x6f>
mov    -0x10(%rbp),%rdi
mov    $0x0,%al
call   1030 <shup1@plt>
xor    %eax,%eax
add    $0x50,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<squarev>:
push   %r15
push   %r14
push   %r12
push   %rbx
push   %rax
mov    %edx,%r12d
mov    %rsi,%r14
mov    %rdi,%r15
lea    0x4(%rsi),%rdi
lea    0x1(%r12),%eax
lea    (%rax,%rax,1),%rdx
add    $0x2,%rdx
xor    %esi,%esi
call   1040 <memset@plt>
test   %r12d,%r12d
jle    1206 <squarev+0xe6>
mov    %r12d,%eax
add    $0x2,%r12d
lea    (%r14,%rax,2),%rax
add    $0x6,%rax
lea    0x6(%r15),%r8
jmp    1186 <squarev+0x66>
nopw   0x0(%rax,%rax,1)
add    $0xfffffffffffffffe,%rax
lea    -0x1(%r12),%rcx
cmp    $0x3,%r12d
mov    %rcx,%r12
jle    1206 <squarev+0xe6>
cmp    $0x3,%r12
jb     1170 <squarev+0x50>
lea    (%r15,%r12,2),%rdx
mov    %r8,%rsi
jmp    11ad <squarev+0x8d>
cs nopw 0x0(%rax,%rax,1)
nop
add    $0x2,%rsi
add    $0xfffffffffffffffe,%rdx
cmp    %rsi,%rdx
jb     1170 <squarev+0x50>
movzwl (%rdx),%ecx
test   %rcx,%rcx
je     11a0 <squarev+0x80>
movzwl (%rsi),%edi
test   %rdi,%rdi
je     11a0 <squarev+0x80>
imul   %rcx,%rdi
cmp    %rsi,%rdx
je     11d6 <squarev+0xb6>
test   $0x80000000,%edi
je     11d3 <squarev+0xb3>
addw   $0x1,-0x4(%rax)
add    %rdi,%rdi
movzwl (%rax),%ecx
movzwl %di,%ebx
add    %rcx,%rbx
mov    %bx,(%rax)
shr    $0x10,%rbx
movzwl -0x2(%rax),%ecx
shr    $0x10,%edi
add    %rcx,%rdi
add    %rbx,%rdi
mov    %di,-0x2(%rax)
test   $0x10000,%edi
je     11a0 <squarev+0x80>
addw   $0x1,-0x4(%rax)
jmp    11a0 <squarev+0x80>
mov    %r14,%rdi
xor    %eax,%eax
call   1030 <shup1@plt>
xor    %eax,%eax
add    $0x8,%rsp
pop    %rbx
pop    %r12
pop    %r14
pop    %r15
ret

LLVM IR (-O0):
define i32 @squarev(i16* %0, i16* %1, i32 %2) {
%4 = alloca i16*
%5 = alloca i16*
%6 = alloca i32
%7 = alloca i16*
%8 = alloca i16*
%9 = alloca i16*
%10 = alloca i64
%11 = alloca i64
%12 = alloca i16
%13 = alloca i32
store i16* %0, i16** %4
store i16* %1, i16** %5
store i32 %2, i32* %6
%14 = load i32, i32* %6
%15 = add nsw i32 %14, 2
store i32 %15, i32* %13
%16 = load i16*, i16** %5
%17 = getelementptr inbounds i16, i16* %16, i64 2
store i16* %17, i16** %7
br label %18
18: ; preds = %21, %3
%19 = load i16*, i16** %7
%20 = getelementptr inbounds i16, i16* %19, i32 1
store i16* %20, i16** %7
store i16 0, i16* %19
br label %21
21: ; preds = %18
%22 = load i32, i32* %13
%23 = add nsw i32 %22, -1
store i32 %23, i32* %13
%24 = icmp ne i32 %23, 0
br i1 %24, label %18, label %25
25: ; preds = %21
%26 = load i16*, i16** %5
%27 = load i32, i32* %6
%28 = add nsw i32 %27, 3
%29 = sext i32 %28 to i64
%30 = getelementptr inbounds i16, i16* %26, i64 %29
store i16* %30, i16** %9
%31 = load i32, i32* %6
%32 = add nsw i32 %31, 2
store i32 %32, i32* %13
br label %33
33: ; preds = %137, %25
%34 = load i32, i32* %13
%35 = icmp sge i32 %34, 3
br i1 %35, label %36, label %140
36: ; preds = %33
%37 = load i16*, i16** %4
%38 = getelementptr inbounds i16, i16* %37, i64 3
store i16* %38, i16** %8
%39 = load i16*, i16** %4
%40 = load i32, i32* %13
%41 = sext i32 %40 to i64
%42 = getelementptr inbounds i16, i16* %39, i64 %41
store i16* %42, i16** %7
br label %43
43: ; preds = %131, %57, %36
%44 = load i16*, i16** %7
%45 = load i16*, i16** %8
%46 = icmp uge i16* %44, %45
br i1 %46, label %47, label %134
47: ; preds = %43
%48 = load i16*, i16** %7
%49 = load i16, i16* %48
%50 = zext i16 %49 to i32
%51 = icmp eq i32 %50, 0
br i1 %51, label %57, label %52
52: ; preds = %47
%53 = load i16*, i16** %8
%54 = load i16, i16* %53
%55 = zext i16 %54 to i32
%56 = icmp eq i32 %55, 0
br i1 %56, label %57, label %62
57: ; preds = %52, %47
%58 = load i16*, i16** %7
%59 = getelementptr inbounds i16, i16* %58, i32 -1
store i16* %59, i16** %7
%60 = load i16*, i16** %8
%61 = getelementptr inbounds i16, i16* %60, i32 1
store i16* %61, i16** %8
br label %43
62: ; preds = %52
%63 = load i16*, i16** %7
%64 = load i16, i16* %63
%65 = zext i16 %64 to i64
%66 = load i16*, i16** %8
%67 = load i16, i16* %66
%68 = zext i16 %67 to i64
%69 = mul i64 %65, %68
store i64 %69, i64* %11
%70 = load i16*, i16** %7
%71 = load i16*, i16** %8
%72 = icmp ne i16* %70, %71
br i1 %72, label %73, label %87
73: ; preds = %62
%74 = load i64, i64* %11
%75 = and i64 %74, 2147483648
%76 = icmp ne i64 %75, 0
br i1 %76, label %77, label %84
77: ; preds = %73
%78 = load i16*, i16** %9
%79 = getelementptr inbounds i16, i16* %78, i64 -2
%80 = load i16, i16* %79
%81 = zext i16 %80 to i32
%82 = add nsw i32 %81, 1
%83 = trunc i32 %82 to i16
store i16 %83, i16* %79
br label %84
84: ; preds = %77, %73
%85 = load i64, i64* %11
%86 = shl i64 %85, 1
store i64 %86, i64* %11
br label %87
87: ; preds = %84, %62
%88 = load i16*, i16** %7
%89 = getelementptr inbounds i16, i16* %88, i32 -1
store i16* %89, i16** %7
%90 = load i16*, i16** %8
%91 = getelementptr inbounds i16, i16* %90, i32 1
store i16* %91, i16** %8
%92 = load i16*, i16** %9
%93 = load i16, i16* %92
%94 = zext i16 %93 to i64
%95 = load i64, i64* %11
%96 = and i64 %95, 65535
%97 = add i64 %94, %96
store i64 %97, i64* %10
%98 = load i64, i64* %10
%99 = and i64 %98, 65536
%100 = icmp ne i64 %99, 0
br i1 %100, label %101, label %102
101: ; preds = %87
store i16 1, i16* %12
br label %103
102: ; preds = %87
store i16 0, i16* %12
br label %103
103: ; preds = %102, %101
%104 = load i64, i64* %10
%105 = trunc i64 %104 to i16
%106 = load i16*, i16** %9
%107 = getelementptr inbounds i16, i16* %106, i32 -1
store i16* %107, i16** %9
store i16 %105, i16* %106
%108 = load i16*, i16** %9
%109 = load i16, i16* %108
%110 = zext i16 %109 to i64
%111 = load i64, i64* %11
%112 = lshr i64 %111, 16
%113 = and i64 %112, 65535
%114 = add i64 %110, %113
%115 = load i16, i16* %12
%116 = zext i16 %115 to i64
%117 = add i64 %114, %116
store i64 %117, i64* %10
%118 = load i64, i64* %10
%119 = trunc i64 %118 to i16
%120 = load i16*, i16** %9
%121 = getelementptr inbounds i16, i16* %120, i32 -1
store i16* %121, i16** %9
store i16 %119, i16* %120
%122 = load i64, i64* %10
%123 = and i64 %122, 65536
%124 = icmp ne i64 %123, 0
br i1 %124, label %125, label %131
125: ; preds = %103
%126 = load i16*, i16** %9
%127 = load i16, i16* %126
%128 = zext i16 %127 to i32
%129 = add nsw i32 %128, 1
%130 = trunc i32 %129 to i16
store i16 %130, i16* %126
br label %131
131: ; preds = %125, %103
%132 = load i16*, i16** %9
%133 = getelementptr inbounds i16, i16* %132, i64 2
store i16* %133, i16** %9
br label %43
134: ; preds = %43
%135 = load i16*, i16** %9
%136 = getelementptr inbounds i16, i16* %135, i32 -1
store i16* %136, i16** %9
br label %137
137: ; preds = %134
%138 = load i32, i32* %13
%139 = add nsw i32 %138, -1
store i32 %139, i32* %13
br label %33
140: ; preds = %33
%141 = load i16*, i16** %5
%142 = call i32 (i16*, ...) bitcast (i32 (...)* @shup1 to i32 (i16*, ...)*)(i16* %141)
ret i32 0
}

LLVM IR (-O2):
define i32 @squarev(i16* %0, i16* %1, i32 %2) {
%4 = getelementptr i16, i16* %1, i64 2
%5 = bitcast i16* %4 to i8*
%6 = add i32 %2, 1
%7 = zext i32 %6 to i64
%8 = shl nuw nsw i64 %7, 1
%9 = add nuw nsw i64 %8, 2
%10 = icmp sgt i32 %2, 0
br i1 %10, label %11, label %76
11: ; preds = %3
%12 = add nuw i32 %2, 2
%13 = add nuw nsw i32 %2, 3
%14 = zext i32 %13 to i64
%15 = getelementptr inbounds i16, i16* %1, i64 %14
%16 = getelementptr inbounds i16, i16* %0, i64 3
%17 = zext i32 %12 to i64
br label %18
18: ; preds = %11, %71
%19 = phi i64 [ %17, %11 ], [ %73, %71 ]
%20 = phi i16* [ %15, %11 ], [ %72, %71 ]
%21 = icmp ult i64 %19, 3
br i1 %21, label %71, label %22
22: ; preds = %18
%23 = getelementptr inbounds i16, i16* %0, i64 %19
%24 = getelementptr inbounds i16, i16* %20, i64 -2
%25 = getelementptr inbounds i16, i16* %20, i64 -1
br label %26
26: ; preds = %22, %34
%27 = phi i16* [ %16, %22 ], [ %35, %34 ]
%28 = phi i16* [ %23, %22 ], [ %36, %34 ]
%29 = load i16, i16* %28
%30 = icmp eq i16 %29, 0
br i1 %30, label %34, label %31
31: ; preds = %26
%32 = load i16, i16* %27
%33 = icmp eq i16 %32, 0
br i1 %33, label %34, label %38
34: ; preds = %26, %31, %51, %68
%35 = getelementptr inbounds i16, i16* %27, i64 1
%36 = getelementptr inbounds i16, i16* %28, i64 -1
%37 = icmp ult i16* %36, %35
br i1 %37, label %71, label %26
38: ; preds = %31
%39 = zext i16 %29 to i64
%40 = zext i16 %32 to i64
%41 = mul nuw nsw i64 %40, %39
%42 = icmp eq i16* %28, %27
br i1 %42, label %51, label %43
43: ; preds = %38
%44 = and i64 %41, 2147483648
%45 = icmp eq i64 %44, 0
br i1 %45, label %49, label %46
46: ; preds = %43
%47 = load i16, i16* %24
%48 = add i16 %47, 1
store i16 %48, i16* %24
br label %49
49: ; preds = %46, %43
%50 = shl nuw nsw i64 %41, 1
br label %51
51: ; preds = %49, %38
%52 = phi i64 [ %50, %49 ], [ %41, %38 ]
%53 = load i16, i16* %20
%54 = zext i16 %53 to i64
%55 = and i64 %52, 65535
%56 = add nuw nsw i64 %55, %54
%57 = lshr i64 %56, 16
%58 = trunc i64 %56 to i16
store i16 %58, i16* %20
%59 = load i16, i16* %25
%60 = zext i16 %59 to i64
%61 = lshr i64 %52, 16
%62 = and i64 %61, 65535
%63 = add nuw nsw i64 %62, %60
%64 = add nuw nsw i64 %63, %57
%65 = trunc i64 %64 to i16
store i16 %65, i16* %25
%66 = and i64 %64, 65536
%67 = icmp eq i64 %66, 0
br i1 %67, label %34, label %68
68: ; preds = %51
%69 = load i16, i16* %24
%70 = add i16 %69, 1
store i16 %70, i16* %24
br label %34
71: ; preds = %34, %18
%72 = getelementptr inbounds i16, i16* %20, i64 -1
%73 = add nsw i64 %19, -1
%74 = trunc i64 %19 to i32
%75 = icmp sgt i32 %74, 3
br i1 %75, label %18, label %76
76: ; preds = %71, %3
%77 = tail call i32 (i16*, ...) bitcast (i32 (...)* @shup1 to i32 (i16*, ...)*)(i16* %1)
ret i32 0
}