void irafputc(string, irafheader, offset, nc) char *string;
char *irafheader;
int offset;
int nc;
{
  char *chead;
  int i;
  chead = irafheader;
  for (i = 0; i < nc; i++)
    chead[offset + i] = string[i];
  return;
}


x86 assembly (clang, -O0):
<irafputc>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
mov    %ecx,-0x18(%rbp)
mov    -0x10(%rbp),%rax
mov    %rax,-0x20(%rbp)
movl   $0x0,-0x24(%rbp)
mov    -0x24(%rbp),%eax
cmp    -0x18(%rbp),%eax
jge    1156 <irafputc+0x56>
mov    -0x8(%rbp),%rax
movslq -0x24(%rbp),%rcx
mov    (%rax,%rcx,1),%dl
mov    -0x20(%rbp),%rax
mov    -0x14(%rbp),%ecx
add    -0x24(%rbp),%ecx
movslq %ecx,%rcx
mov    %dl,(%rax,%rcx,1)
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    1121 <irafputc+0x21>
pop    %rbp
ret

x86 assembly (clang, -O2):
<irafputc>:
push   %rbx
test   %ecx,%ecx
jle    119b <irafputc+0x9b>
movslq %edx,%r8
mov    %ecx,%r11d
cmp    $0x8,%ecx
jb     1131 <irafputc+0x31>
lea    (%rsi,%r8,1),%r10
lea    (%rdi,%r11,1),%rax
cmp    %rax,%r10
jae    119d <irafputc+0x9d>
lea    (%r8,%r11,1),%rax
add    %rsi,%rax
cmp    %rdi,%rax
jbe    119d <irafputc+0x9d>
xor    %ecx,%ecx
mov    %rcx,%r9
not    %r9
add    %r11,%r9
mov    %r11,%rdx
and    $0x3,%rdx
je     1161 <irafputc+0x61>
lea    (%rsi,%r8,1),%rbx
nopl   0x0(%rax)
movzbl (%rdi,%rcx,1),%eax
mov    %al,(%rbx,%rcx,1)
add    $0x1,%rcx
add    $0xffffffffffffffff,%rdx
jne    1150 <irafputc+0x50>
cmp    $0x3,%r9
jb     119b <irafputc+0x9b>
lea    (%r8,%rsi,1),%rax
add    $0x3,%rax
nop
movzbl (%rdi,%rcx,1),%edx
mov    %dl,-0x3(%rax,%rcx,1)
movzbl 0x1(%rdi,%rcx,1),%edx
mov    %dl,-0x2(%rax,%rcx,1)
movzbl 0x2(%rdi,%rcx,1),%edx
mov    %dl,-0x1(%rax,%rcx,1)
movzbl 0x3(%rdi,%rcx,1),%edx
mov    %dl,(%rax,%rcx,1)
add    $0x4,%rcx
cmp    %rcx,%r11
jne    1170 <irafputc+0x70>
pop    %rbx
ret
cmp    $0x20,%ecx
jae    11a9 <irafputc+0xa9>
xor    %ecx,%ecx
jmp    128e <irafputc+0x18e>
mov    %r11d,%ecx
and    $0xffffffe0,%ecx
lea    -0x20(%rcx),%rax
mov    %rax,%rdx
shr    $0x5,%rdx
add    $0x1,%rdx
mov    %edx,%r9d
and    $0x3,%r9d
cmp    $0x60,%rax
jae    11cf <irafputc+0xcf>
xor    %eax,%eax
jmp    1238 <irafputc+0x138>
and    $0xfffffffffffffffc,%rdx
lea    (%r8,%rsi,1),%rbx
add    $0x70,%rbx
xor    %eax,%eax
nopl   (%rax)
movups (%rdi,%rax,1),%xmm0
movups 0x10(%rdi,%rax,1),%xmm1
movups %xmm0,-0x70(%rbx,%rax,1)
movups %xmm1,-0x60(%rbx,%rax,1)
movups 0x20(%rdi,%rax,1),%xmm0
movups 0x30(%rdi,%rax,1),%xmm1
movups %xmm0,-0x50(%rbx,%rax,1)
movups %xmm1,-0x40(%rbx,%rax,1)
movups 0x40(%rdi,%rax,1),%xmm0
movups 0x50(%rdi,%rax,1),%xmm1
movups %xmm0,-0x30(%rbx,%rax,1)
movups %xmm1,-0x20(%rbx,%rax,1)
movups 0x60(%rdi,%rax,1),%xmm0
movups 0x70(%rdi,%rax,1),%xmm1
movups %xmm0,-0x10(%rbx,%rax,1)
movups %xmm1,(%rbx,%rax,1)
sub    $0xffffffffffffff80,%rax
add    $0xfffffffffffffffc,%rdx
jne    11e0 <irafputc+0xe0>
test   %r9,%r9
je     127b <irafputc+0x17b>
lea    (%rax,%r8,1),%rdx
add    %rsi,%rdx
add    $0x10,%rdx
add    %rdi,%rax
add    $0x10,%rax
shl    $0x5,%r9
xor    %ebx,%ebx
cs nopw 0x0(%rax,%rax,1)
nop
movups -0x10(%rax,%rbx,1),%xmm0
movups (%rax,%rbx,1),%xmm1
movups %xmm0,-0x10(%rdx,%rbx,1)
movups %xmm1,(%rdx,%rbx,1)
add    $0x20,%rbx
cmp    %rbx,%r9
jne    1260 <irafputc+0x160>
cmp    %r11,%rcx
je     119b <irafputc+0x9b>
test   $0x18,%r11b
je     1133 <irafputc+0x33>
mov    %rcx,%rax
mov    %r11d,%ecx
and    $0xfffffff8,%ecx
nopw   0x0(%rax,%rax,1)
mov    (%rdi,%rax,1),%rdx
mov    %rdx,(%r10,%rax,1)
add    $0x8,%rax
cmp    %rax,%rcx
jne    12a0 <irafputc+0x1a0>
cmp    %r11,%rcx
je     119b <irafputc+0x9b>
jmp    1133 <irafputc+0x33>

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

LLVM IR (-O2):
define void @irafputc(i8* nocapture %0, i8* nocapture writeonly %1, i32 %2, i32 %3) {
%5 = icmp sgt i32 %3, 0
br i1 %5, label %6, label %164
6: ; preds = %4
%7 = sext i32 %2 to i64
%8 = zext i32 %3 to i64
%9 = icmp ult i32 %3, 8
br i1 %9, label %122, label %10
10: ; preds = %6
%11 = getelementptr i8, i8* %1, i64 %7
%12 = add nsw i64 %7, %8
%13 = getelementptr i8, i8* %1, i64 %12
%14 = getelementptr i8, i8* %0, i64 %8
%15 = icmp ult i8* %11, %14
%16 = icmp ugt i8* %13, %0
%17 = and i1 %15, %16
br i1 %17, label %122, label %18
18: ; preds = %10
%19 = icmp ult i32 %3, 32
br i1 %19, label %107, label %20
20: ; preds = %18
%21 = and i64 %8, 4294967264
%22 = add nsw i64 %21, -32
%23 = lshr exact i64 %22, 5
%24 = add nuw nsw i64 %23, 1
%25 = and i64 %24, 3
%26 = icmp ult i64 %22, 96
br i1 %26, label %82, label %27
27: ; preds = %20
%28 = and i64 %24, 1152921504606846972
br label %29
29: ; preds = %29, %27
%30 = phi i64 [ 0, %27 ], [ %79, %29 ]
%31 = phi i64 [ 0, %27 ], [ %80, %29 ]
%32 = getelementptr inbounds i8, i8* %0, i64 %30
%33 = bitcast i8* %32 to <16 x i8>*
%34 = load <16 x i8>, <16 x i8>* %33
%35 = getelementptr inbounds i8, i8* %32, i64 16
%36 = bitcast i8* %35 to <16 x i8>*
%37 = load <16 x i8>, <16 x i8>* %36
%38 = add nsw i64 %30, %7
%39 = getelementptr inbounds i8, i8* %1, i64 %38
%40 = bitcast i8* %39 to <16 x i8>*
store <16 x i8> %34, <16 x i8>* %40
%41 = getelementptr inbounds i8, i8* %39, i64 16
%42 = bitcast i8* %41 to <16 x i8>*
store <16 x i8> %37, <16 x i8>* %42
%43 = or i64 %30, 32
%44 = getelementptr inbounds i8, i8* %0, i64 %43
%45 = bitcast i8* %44 to <16 x i8>*
%46 = load <16 x i8>, <16 x i8>* %45
%47 = getelementptr inbounds i8, i8* %44, i64 16
%48 = bitcast i8* %47 to <16 x i8>*
%49 = load <16 x i8>, <16 x i8>* %48
%50 = add nsw i64 %43, %7
%51 = getelementptr inbounds i8, i8* %1, i64 %50
%52 = bitcast i8* %51 to <16 x i8>*
store <16 x i8> %46, <16 x i8>* %52
%53 = getelementptr inbounds i8, i8* %51, i64 16
%54 = bitcast i8* %53 to <16 x i8>*
store <16 x i8> %49, <16 x i8>* %54
%55 = or i64 %30, 64
%56 = getelementptr inbounds i8, i8* %0, i64 %55
%57 = bitcast i8* %56 to <16 x i8>*
%58 = load <16 x i8>, <16 x i8>* %57
%59 = getelementptr inbounds i8, i8* %56, i64 16
%60 = bitcast i8* %59 to <16 x i8>*
%61 = load <16 x i8>, <16 x i8>* %60
%62 = add nsw i64 %55, %7
%63 = getelementptr inbounds i8, i8* %1, i64 %62
%64 = bitcast i8* %63 to <16 x i8>*
store <16 x i8> %58, <16 x i8>* %64
%65 = getelementptr inbounds i8, i8* %63, i64 16
%66 = bitcast i8* %65 to <16 x i8>*
store <16 x i8> %61, <16 x i8>* %66
%67 = or i64 %30, 96
%68 = getelementptr inbounds i8, i8* %0, i64 %67
%69 = bitcast i8* %68 to <16 x i8>*
%70 = load <16 x i8>, <16 x i8>* %69
%71 = getelementptr inbounds i8, i8* %68, i64 16
%72 = bitcast i8* %71 to <16 x i8>*
%73 = load <16 x i8>, <16 x i8>* %72
%74 = add nsw i64 %67, %7
%75 = getelementptr inbounds i8, i8* %1, i64 %74
%76 = bitcast i8* %75 to <16 x i8>*
store <16 x i8> %70, <16 x i8>* %76
%77 = getelementptr inbounds i8, i8* %75, i64 16
%78 = bitcast i8* %77 to <16 x i8>*
store <16 x i8> %73, <16 x i8>* %78
%79 = add nuw i64 %30, 128
%80 = add i64 %31, 4
%81 = icmp eq i64 %80, %28
br i1 %81, label %82, label %29
82: ; preds = %29, %20
%83 = phi i64 [ 0, %20 ], [ %79, %29 ]
%84 = icmp eq i64 %25, 0
br i1 %84, label %102, label %85
85: ; preds = %82, %85
%86 = phi i64 [ %99, %85 ], [ %83, %82 ]
%87 = phi i64 [ %100, %85 ], [ 0, %82 ]
%88 = getelementptr inbounds i8, i8* %0, i64 %86
%89 = bitcast i8* %88 to <16 x i8>*
%90 = load <16 x i8>, <16 x i8>* %89
%91 = getelementptr inbounds i8, i8* %88, i64 16
%92 = bitcast i8* %91 to <16 x i8>*
%93 = load <16 x i8>, <16 x i8>* %92
%94 = add nsw i64 %86, %7
%95 = getelementptr inbounds i8, i8* %1, i64 %94
%96 = bitcast i8* %95 to <16 x i8>*
store <16 x i8> %90, <16 x i8>* %96
%97 = getelementptr inbounds i8, i8* %95, i64 16
%98 = bitcast i8* %97 to <16 x i8>*
store <16 x i8> %93, <16 x i8>* %98
%99 = add nuw i64 %86, 32
%100 = add i64 %87, 1
%101 = icmp eq i64 %100, %25
br i1 %101, label %102, label %85
102: ; preds = %85, %82
%103 = icmp eq i64 %21, %8
br i1 %103, label %164, label %104
104: ; preds = %102
%105 = and i64 %8, 24
%106 = icmp eq i64 %105, 0
br i1 %106, label %122, label %107
107: ; preds = %18, %104
%108 = phi i64 [ %21, %104 ], [ 0, %18 ]
%109 = and i64 %8, 4294967288
br label %110
110: ; preds = %110, %107
%111 = phi i64 [ %108, %107 ], [ %118, %110 ]
%112 = getelementptr inbounds i8, i8* %0, i64 %111
%113 = bitcast i8* %112 to <8 x i8>*
%114 = load <8 x i8>, <8 x i8>* %113
%115 = add nsw i64 %111, %7
%116 = getelementptr inbounds i8, i8* %1, i64 %115
%117 = bitcast i8* %116 to <8 x i8>*
store <8 x i8> %114, <8 x i8>* %117
%118 = add nuw i64 %111, 8
%119 = icmp eq i64 %118, %109
br i1 %119, label %120, label %110
120: ; preds = %110
%121 = icmp eq i64 %109, %8
br i1 %121, label %164, label %122
122: ; preds = %10, %6, %104, %120
%123 = phi i64 [ 0, %6 ], [ 0, %10 ], [ %21, %104 ], [ %109, %120 ]
%124 = xor i64 %123, -1
%125 = add nsw i64 %124, %8
%126 = and i64 %8, 3
%127 = icmp eq i64 %126, 0
br i1 %127, label %138, label %128
128: ; preds = %122, %128
%129 = phi i64 [ %135, %128 ], [ %123, %122 ]
%130 = phi i64 [ %136, %128 ], [ 0, %122 ]
%131 = getelementptr inbounds i8, i8* %0, i64 %129
%132 = load i8, i8* %131
%133 = add nsw i64 %129, %7
%134 = getelementptr inbounds i8, i8* %1, i64 %133
store i8 %132, i8* %134
%135 = add nuw nsw i64 %129, 1
%136 = add i64 %130, 1
%137 = icmp eq i64 %136, %126
br i1 %137, label %138, label %128
138: ; preds = %128, %122
%139 = phi i64 [ %123, %122 ], [ %135, %128 ]
%140 = icmp ult i64 %125, 3
br i1 %140, label %164, label %141
141: ; preds = %138, %141
%142 = phi i64 [ %162, %141 ], [ %139, %138 ]
%143 = getelementptr inbounds i8, i8* %0, i64 %142
%144 = load i8, i8* %143
%145 = add nsw i64 %142, %7
%146 = getelementptr inbounds i8, i8* %1, i64 %145
store i8 %144, i8* %146
%147 = add nuw nsw i64 %142, 1
%148 = getelementptr inbounds i8, i8* %0, i64 %147
%149 = load i8, i8* %148
%150 = add nsw i64 %147, %7
%151 = getelementptr inbounds i8, i8* %1, i64 %150
store i8 %149, i8* %151
%152 = add nuw nsw i64 %142, 2
%153 = getelementptr inbounds i8, i8* %0, i64 %152
%154 = load i8, i8* %153
%155 = add nsw i64 %152, %7
%156 = getelementptr inbounds i8, i8* %1, i64 %155
store i8 %154, i8* %156
%157 = add nuw nsw i64 %142, 3
%158 = getelementptr inbounds i8, i8* %0, i64 %157
%159 = load i8, i8* %158
%160 = add nsw i64 %157, %7
%161 = getelementptr inbounds i8, i8* %1, i64 %160
store i8 %159, i8* %161
%162 = add nuw nsw i64 %142, 4
%163 = icmp eq i64 %162, %8
br i1 %163, label %164, label %141
164: ; preds = %138, %141, %102, %120, %4
ret void
}