char *strmid(char *s, char *t, int pos, int length) {
  s += pos;
  int i;
  for (i = 0; i < length; i++) {
    *t = *s;
    t++;
    s++;
  }
  *t++ = '\0';
  t -= length + 1;
  s -= length;
  s -= pos;
  return (t);
}


x86 assembly (clang, -O0):
<strmid>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
mov    %ecx,-0x18(%rbp)
mov    -0x14(%rbp),%ecx
mov    -0x8(%rbp),%rax
movslq %ecx,%rcx
add    %rcx,%rax
mov    %rax,-0x8(%rbp)
movl   $0x0,-0x1c(%rbp)
mov    -0x1c(%rbp),%eax
cmp    -0x18(%rbp),%eax
jge    1168 <strmid+0x68>
mov    -0x8(%rbp),%rax
mov    (%rax),%cl
mov    -0x10(%rbp),%rax
mov    %cl,(%rax)
mov    -0x10(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x10(%rbp)
mov    -0x8(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x8(%rbp)
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    112a <strmid+0x2a>
mov    -0x10(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x10(%rbp)
movb   $0x0,(%rax)
mov    -0x18(%rbp),%ecx
add    $0x1,%ecx
mov    -0x10(%rbp),%rax
movslq %ecx,%rdx
xor    %ecx,%ecx
sub    %rdx,%rcx
add    %rcx,%rax
mov    %rax,-0x10(%rbp)
mov    -0x18(%rbp),%ecx
mov    -0x8(%rbp),%rax
movslq %ecx,%rdx
xor    %ecx,%ecx
sub    %rdx,%rcx
add    %rcx,%rax
mov    %rax,-0x8(%rbp)
mov    -0x14(%rbp),%ecx
mov    -0x8(%rbp),%rax
movslq %ecx,%rdx
xor    %ecx,%ecx
sub    %rdx,%rcx
add    %rcx,%rax
mov    %rax,-0x8(%rbp)
mov    -0x10(%rbp),%rax
pop    %rbp
ret

x86 assembly (clang, -O2):
<strmid>:
push   %r14
push   %rbx
test   %ecx,%ecx
jle    12d1 <strmid+0x1d1>
movslq %edx,%r9
lea    (%rdi,%r9,1),%rax
lea    -0x1(%rcx),%r10d
xor    %r8d,%r8d
cmp    $0x1f,%r10d
jb     122a <strmid+0x12a>
lea    (%r9,%r10,1),%rdx
add    %rdi,%rdx
add    $0x1,%rdx
cmp    %rsi,%rdx
jbe    1144 <strmid+0x44>
lea    (%r10,%rsi,1),%rdx
add    $0x1,%rdx
cmp    %rdx,%rax
jb     122a <strmid+0x12a>
add    $0x1,%r10
mov    %r10,%r8
and    $0xffffffffffffffe0,%r8
lea    -0x20(%r8),%rdx
mov    %rdx,%r14
shr    $0x5,%r14
add    $0x1,%r14
mov    %r14d,%r11d
and    $0x3,%r11d
cmp    $0x60,%rdx
jae    116f <strmid+0x6f>
xor    %ebx,%ebx
jmp    11d8 <strmid+0xd8>
and    $0xfffffffffffffffc,%r14
lea    (%r9,%rdi,1),%rdx
add    $0x70,%rdx
xor    %ebx,%ebx
nopl   (%rax)
movups -0x70(%rdx,%rbx,1),%xmm0
movups -0x60(%rdx,%rbx,1),%xmm1
movups %xmm0,(%rsi,%rbx,1)
movups %xmm1,0x10(%rsi,%rbx,1)
movups -0x50(%rdx,%rbx,1),%xmm0
movups -0x40(%rdx,%rbx,1),%xmm1
movups %xmm0,0x20(%rsi,%rbx,1)
movups %xmm1,0x30(%rsi,%rbx,1)
movups -0x30(%rdx,%rbx,1),%xmm0
movups -0x20(%rdx,%rbx,1),%xmm1
movups %xmm0,0x40(%rsi,%rbx,1)
movups %xmm1,0x50(%rsi,%rbx,1)
movups -0x10(%rdx,%rbx,1),%xmm0
movups (%rdx,%rbx,1),%xmm1
movups %xmm0,0x60(%rsi,%rbx,1)
movups %xmm1,0x70(%rsi,%rbx,1)
sub    $0xffffffffffffff80,%rbx
add    $0xfffffffffffffffc,%r14
jne    1180 <strmid+0x80>
test   %r11,%r11
je     121b <strmid+0x11b>
lea    (%rbx,%rsi,1),%rdx
add    $0x10,%rdx
add    %rbx,%r9
add    %r9,%rdi
add    $0x10,%rdi
shl    $0x5,%r11
xor    %ebx,%ebx
cs nopw 0x0(%rax,%rax,1)
nop
movups -0x10(%rdi,%rbx,1),%xmm0
movups (%rdi,%rbx,1),%xmm1
movups %xmm0,-0x10(%rdx,%rbx,1)
movups %xmm1,(%rdx,%rbx,1)
add    $0x20,%rbx
cmp    %rbx,%r11
jne    1200 <strmid+0x100>
add    %r8,%rsi
cmp    %r8,%r10
je     12d1 <strmid+0x1d1>
add    %r8,%rax
mov    %ecx,%edi
sub    %r8d,%edi
mov    %r8d,%r9d
not    %r9d
add    %ecx,%r9d
and    $0x7,%edi
je     1267 <strmid+0x167>
neg    %edi
xor    %ebx,%ebx
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
movzbl (%rax),%edx
mov    %dl,(%rsi)
add    $0x1,%rsi
add    $0x1,%rax
add    $0xffffffff,%ebx
cmp    %ebx,%edi
jne    1250 <strmid+0x150>
sub    %ebx,%r8d
cmp    $0x7,%r9d
jb     12d1 <strmid+0x1d1>
mov    %ecx,%edx
sub    %r8d,%edx
xor    %edi,%edi
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
movzbl (%rax,%rdi,1),%ebx
mov    %bl,(%rsi,%rdi,1)
movzbl 0x1(%rax,%rdi,1),%ebx
mov    %bl,0x1(%rsi,%rdi,1)
movzbl 0x2(%rax,%rdi,1),%ebx
mov    %bl,0x2(%rsi,%rdi,1)
movzbl 0x3(%rax,%rdi,1),%ebx
mov    %bl,0x3(%rsi,%rdi,1)
movzbl 0x4(%rax,%rdi,1),%ebx
mov    %bl,0x4(%rsi,%rdi,1)
movzbl 0x5(%rax,%rdi,1),%ebx
mov    %bl,0x5(%rsi,%rdi,1)
movzbl 0x6(%rax,%rdi,1),%ebx
mov    %bl,0x6(%rsi,%rdi,1)
movzbl 0x7(%rax,%rdi,1),%ebx
mov    %bl,0x7(%rsi,%rdi,1)
add    $0x8,%rdi
cmp    %edi,%edx
jne    1280 <strmid+0x180>
add    %rdi,%rsi
movb   $0x0,(%rsi)
not    %ecx
movslq %ecx,%rax
add    %rsi,%rax
add    $0x1,%rax
pop    %rbx
pop    %r14
ret

LLVM IR (-O0):
define i8* @strmid(i8* %0, i8* %1, i32 %2, i32 %3) {
%5 = alloca i8*
%6 = alloca i8*
%7 = alloca i32
%8 = alloca i32
%9 = alloca i32
store i8* %0, i8** %5
store i8* %1, i8** %6
store i32 %2, i32* %7
store i32 %3, i32* %8
%10 = load i32, i32* %7
%11 = load i8*, i8** %5
%12 = sext i32 %10 to i64
%13 = getelementptr inbounds i8, i8* %11, i64 %12
store i8* %13, i8** %5
store i32 0, i32* %9
br label %14
14: ; preds = %26, %4
%15 = load i32, i32* %9
%16 = load i32, i32* %8
%17 = icmp slt i32 %15, %16
br i1 %17, label %18, label %29
18: ; preds = %14
%19 = load i8*, i8** %5
%20 = load i8, i8* %19
%21 = load i8*, i8** %6
store i8 %20, i8* %21
%22 = load i8*, i8** %6
%23 = getelementptr inbounds i8, i8* %22, i32 1
store i8* %23, i8** %6
%24 = load i8*, i8** %5
%25 = getelementptr inbounds i8, i8* %24, i32 1
store i8* %25, i8** %5
br label %26
26: ; preds = %18
%27 = load i32, i32* %9
%28 = add nsw i32 %27, 1
store i32 %28, i32* %9
br label %14
29: ; preds = %14
%30 = load i8*, i8** %6
%31 = getelementptr inbounds i8, i8* %30, i32 1
store i8* %31, i8** %6
store i8 0, i8* %30
%32 = load i32, i32* %8
%33 = add nsw i32 %32, 1
%34 = load i8*, i8** %6
%35 = sext i32 %33 to i64
%36 = sub i64 0, %35
%37 = getelementptr inbounds i8, i8* %34, i64 %36
store i8* %37, i8** %6
%38 = load i32, i32* %8
%39 = load i8*, i8** %5
%40 = sext i32 %38 to i64
%41 = sub i64 0, %40
%42 = getelementptr inbounds i8, i8* %39, i64 %41
store i8* %42, i8** %5
%43 = load i32, i32* %7
%44 = load i8*, i8** %5
%45 = sext i32 %43 to i64
%46 = sub i64 0, %45
%47 = getelementptr inbounds i8, i8* %44, i64 %46
store i8* %47, i8** %5
%48 = load i8*, i8** %6
ret i8* %48
}

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