int SubStringCopy(d, s, f, n)
char *d, *s;
int f, n;
{
  register int slen = strlen(s);
  if (f < 0)
    f = (slen + f) + 1;
  f--;
  s += f;
  if ((f < 0) || (f >= slen))
    return (0);
  if (n < 0)
    n = slen - f;
  if ((f + n) > slen)
    n = slen - f + 1;
  while (n--)
    *d++ = *s++;
  *d = '\0';
  return (1);
}


x86 assembly (clang, -O0):
<SubStringCopy>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
mov    %edx,-0x1c(%rbp)
mov    %ecx,-0x20(%rbp)
mov    -0x18(%rbp),%rdi
call   1030 <strlen@plt>
mov    %eax,-0x24(%rbp)
cmpl   $0x0,-0x1c(%rbp)
jge    1148 <SubStringCopy+0x38>
mov    -0x24(%rbp),%eax
add    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
mov    -0x1c(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x1c(%rbp)
mov    -0x1c(%rbp),%ecx
mov    -0x18(%rbp),%rax
movslq %ecx,%rcx
add    %rcx,%rax
mov    %rax,-0x18(%rbp)
cmpl   $0x0,-0x1c(%rbp)
jl     1178 <SubStringCopy+0x68>
mov    -0x1c(%rbp),%eax
cmp    -0x24(%rbp),%eax
jl     1184 <SubStringCopy+0x74>
movl   $0x0,-0x4(%rbp)
jmp    1200 <SubStringCopy+0xf0>
cmpl   $0x0,-0x20(%rbp)
jge    1197 <SubStringCopy+0x87>
mov    -0x24(%rbp),%eax
sub    -0x1c(%rbp),%eax
mov    %eax,-0x20(%rbp)
mov    -0x1c(%rbp),%eax
add    -0x20(%rbp),%eax
cmp    -0x24(%rbp),%eax
jle    11b2 <SubStringCopy+0xa2>
mov    -0x24(%rbp),%eax
sub    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    11b7 <SubStringCopy+0xa7>
mov    -0x20(%rbp),%eax
mov    %eax,%ecx
add    $0xffffffff,%ecx
mov    %ecx,-0x20(%rbp)
cmp    $0x0,%eax
je     11f2 <SubStringCopy+0xe2>
mov    -0x18(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x18(%rbp)
mov    (%rax),%cl
mov    -0x10(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x10(%rbp)
mov    %cl,(%rax)
jmp    11b7 <SubStringCopy+0xa7>
mov    -0x10(%rbp),%rax
movb   $0x0,(%rax)
movl   $0x1,-0x4(%rbp)
mov    -0x4(%rbp),%eax
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<SubStringCopy>:
push   %r15
push   %r14
push   %r12
push   %rbx
push   %rax
mov    %ecx,%r15d
mov    %edx,%r12d
mov    %rsi,%r14
mov    %rdi,%rbx
mov    %rsi,%rdi
call   1030 <strlen@plt>
test   %r12d,%r12d
lea    0x1(%r12,%rax,1),%edx
cmovns %r12d,%edx
xor    %ecx,%ecx
test   %edx,%edx
jle    1329 <SubStringCopy+0x219>
cmp    %eax,%edx
jg     1329 <SubStringCopy+0x219>
add    $0xffffffff,%edx
mov    %eax,%ecx
sub    %edx,%ecx
test   %r15d,%r15d
cmovs  %ecx,%r15d
lea    (%r15,%rdx,1),%esi
add    $0x1,%ecx
cmp    %eax,%esi
cmovle %r15d,%ecx
test   %ecx,%ecx
je     1321 <SubStringCopy+0x211>
mov    %edx,%r9d
lea    (%r14,%r9,1),%rax
lea    -0x1(%rcx),%r10d
cmp    $0x1f,%r10d
jb     128d <SubStringCopy+0x17d>
lea    (%r10,%r9,1),%rdx
add    %r14,%rdx
add    $0x1,%rdx
cmp    %rbx,%rdx
jbe    11a3 <SubStringCopy+0x93>
lea    (%r10,%rbx,1),%rdx
add    $0x1,%rdx
cmp    %rdx,%rax
jb     128d <SubStringCopy+0x17d>
add    $0x1,%r10
mov    %r10,%r8
and    $0xffffffffffffffe0,%r8
lea    -0x20(%r8),%rdx
mov    %rdx,%rsi
shr    $0x5,%rsi
add    $0x1,%rsi
mov    %esi,%r11d
and    $0x3,%r11d
cmp    $0x60,%rdx
jae    11ce <SubStringCopy+0xbe>
xor    %edx,%edx
jmp    1238 <SubStringCopy+0x128>
and    $0xfffffffffffffffc,%rsi
lea    (%r9,%r14,1),%rdi
add    $0x70,%rdi
xor    %edx,%edx
nopl   0x0(%rax)
movups -0x70(%rdi,%rdx,1),%xmm0
movups -0x60(%rdi,%rdx,1),%xmm1
movups %xmm0,(%rbx,%rdx,1)
movups %xmm1,0x10(%rbx,%rdx,1)
movups -0x50(%rdi,%rdx,1),%xmm0
movups -0x40(%rdi,%rdx,1),%xmm1
movups %xmm0,0x20(%rbx,%rdx,1)
movups %xmm1,0x30(%rbx,%rdx,1)
movups -0x30(%rdi,%rdx,1),%xmm0
movups -0x20(%rdi,%rdx,1),%xmm1
movups %xmm0,0x40(%rbx,%rdx,1)
movups %xmm1,0x50(%rbx,%rdx,1)
movups -0x10(%rdi,%rdx,1),%xmm0
movups (%rdi,%rdx,1),%xmm1
movups %xmm0,0x60(%rbx,%rdx,1)
movups %xmm1,0x70(%rbx,%rdx,1)
sub    $0xffffffffffffff80,%rdx
add    $0xfffffffffffffffc,%rsi
jne    11e0 <SubStringCopy+0xd0>
test   %r11,%r11
je     127b <SubStringCopy+0x16b>
lea    (%rdx,%rbx,1),%rsi
add    $0x10,%rsi
add    %rdx,%r9
lea    (%r14,%r9,1),%rdx
add    $0x10,%rdx
shl    $0x5,%r11
xor    %edi,%edi
cs nopw 0x0(%rax,%rax,1)
movups -0x10(%rdx,%rdi,1),%xmm0
movups (%rdx,%rdi,1),%xmm1
movups %xmm0,-0x10(%rsi,%rdi,1)
movups %xmm1,(%rsi,%rdi,1)
add    $0x20,%rdi
cmp    %rdi,%r11
jne    1260 <SubStringCopy+0x150>
add    %r8,%rbx
cmp    %r8,%r10
je     1321 <SubStringCopy+0x211>
sub    %r8d,%ecx
add    %r8,%rax
lea    -0x1(%rcx),%r8d
test   $0x7,%cl
je     12b7 <SubStringCopy+0x1a7>
mov    %ecx,%edi
and    $0x7,%edi
xor    %esi,%esi
nopl   (%rax)
movzbl (%rax,%rsi,1),%edx
mov    %dl,(%rbx,%rsi,1)
add    $0x1,%rsi
cmp    %esi,%edi
jne    12a0 <SubStringCopy+0x190>
sub    %esi,%ecx
add    %rsi,%rax
add    %rsi,%rbx
cmp    $0x7,%r8d
jb     1321 <SubStringCopy+0x211>
mov    %ecx,%esi
xor    %ecx,%ecx
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
movzbl (%rax,%rcx,1),%edx
mov    %dl,(%rbx,%rcx,1)
movzbl 0x1(%rax,%rcx,1),%edx
mov    %dl,0x1(%rbx,%rcx,1)
movzbl 0x2(%rax,%rcx,1),%edx
mov    %dl,0x2(%rbx,%rcx,1)
movzbl 0x3(%rax,%rcx,1),%edx
mov    %dl,0x3(%rbx,%rcx,1)
movzbl 0x4(%rax,%rcx,1),%edx
mov    %dl,0x4(%rbx,%rcx,1)
movzbl 0x5(%rax,%rcx,1),%edx
mov    %dl,0x5(%rbx,%rcx,1)
movzbl 0x6(%rax,%rcx,1),%edx
mov    %dl,0x6(%rbx,%rcx,1)
movzbl 0x7(%rax,%rcx,1),%edx
mov    %dl,0x7(%rbx,%rcx,1)
add    $0x8,%rcx
cmp    %ecx,%esi
jne    12d0 <SubStringCopy+0x1c0>
add    %rcx,%rbx
movb   $0x0,(%rbx)
mov    $0x1,%ecx
mov    %ecx,%eax
add    $0x8,%rsp
pop    %rbx
pop    %r12
pop    %r14
pop    %r15
ret

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

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