void strext(fid1, fid, ext, force) char fid[], ext[], fid1[];
int force;
{
  int i, l;
  char *p, *q;
  strcpy(fid1, fid);
  l = strlen(fid1);
  p = fid1;
  for (i = 0; i < l; i++)
    if (fid1[i] == '/')
      p = fid1 + i;
  if (!force) {
    q = strchr(p, '.');
    if (q && (q != fid1 + strlen(fid1) - 1))
      return;
  }
  if (!strchr(p, '.'))
    strcat(fid1, ".");
  q = strchr(p, '.');
  if (strlen(ext) > 0)
    q++;
  *q = 0;
  strcat(fid1, ext);
}


x86 assembly (clang, -O0):
<strext>:
push   %rbp
mov    %rsp,%rbp
sub    $0x50,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %ecx,-0x1c(%rbp)
mov    -0x8(%rbp),%rdi
mov    -0x10(%rbp),%rsi
call   1030 <strcpy@plt>
mov    -0x8(%rbp),%rdi
call   1040 <strlen@plt>
mov    %eax,-0x24(%rbp)
mov    -0x8(%rbp),%rax
mov    %rax,-0x30(%rbp)
movl   $0x0,-0x20(%rbp)
mov    -0x20(%rbp),%eax
cmp    -0x24(%rbp),%eax
jge    11c2 <strext+0x82>
mov    -0x8(%rbp),%rax
movslq -0x20(%rbp),%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x2f,%eax
jne    11af <strext+0x6f>
mov    -0x8(%rbp),%rax
movslq -0x20(%rbp),%rcx
add    %rcx,%rax
mov    %rax,-0x30(%rbp)
jmp    11b4 <strext+0x74>
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    117f <strext+0x3f>
cmpl   $0x0,-0x1c(%rbp)
jne    1227 <strext+0xe7>
mov    -0x30(%rbp),%rdi
mov    $0x2e,%esi
call   1050 <strchr@plt>
mov    %rax,-0x38(%rbp)
cmpq   $0x0,-0x38(%rbp)
je     1222 <strext+0xe2>
mov    -0x38(%rbp),%rax
mov    %rax,-0x40(%rbp)
mov    -0x8(%rbp),%rax
mov    %rax,-0x48(%rbp)
mov    -0x8(%rbp),%rdi
call   1040 <strlen@plt>
mov    -0x48(%rbp),%rcx
mov    %rax,%rdx
mov    -0x40(%rbp),%rax
add    %rdx,%rcx
add    $0xffffffffffffffff,%rcx
cmp    %rcx,%rax
je     1222 <strext+0xe2>
jmp    1294 <strext+0x154>
jmp    1227 <strext+0xe7>
mov    -0x30(%rbp),%rdi
mov    $0x2e,%esi
call   1050 <strchr@plt>
cmp    $0x0,%rax
jne    124f <strext+0x10f>
mov    -0x8(%rbp),%rdi
lea    0xdb6(%rip),%rsi
call   1060 <strcat@plt>
mov    -0x30(%rbp),%rdi
mov    $0x2e,%esi
call   1050 <strchr@plt>
mov    %rax,-0x38(%rbp)
mov    -0x18(%rbp),%rdi
call   1040 <strlen@plt>
cmp    $0x0,%rax
jbe    1280 <strext+0x140>
mov    -0x38(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x38(%rbp)
mov    -0x38(%rbp),%rax
movb   $0x0,(%rax)
mov    -0x8(%rbp),%rdi
mov    -0x18(%rbp),%rsi
call   1060 <strcat@plt>
add    $0x50,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<strext>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
push   %rax
mov    %ecx,%r12d
mov    %rdx,%r14
mov    %rdi,%r13
call   1030 <strcpy@plt>
mov    %r13,%rdi
call   1040 <strlen@plt>
mov    %rax,%r15
mov    %r13,%rbx
test   %r15d,%r15d
jle    11f1 <strext+0xb1>
mov    %r15d,%edx
lea    -0x1(%rdx),%rcx
mov    %r15d,%eax
and    $0x3,%eax
cmp    $0x3,%rcx
jae    118a <strext+0x4a>
xor    %ecx,%ecx
mov    %r13,%rbx
jmp    11d8 <strext+0x98>
sub    %rax,%rdx
lea    0x1(%r13),%rsi
xor    %ecx,%ecx
mov    %r13,%rbx
cs nopw 0x0(%rax,%rax,1)
lea    -0x1(%rsi),%rdi
cmpb   $0x2f,-0x1(%rsi)
cmovne %rbx,%rdi
cmpb   $0x2f,(%rsi)
cmove  %rsi,%rdi
cmpb   $0x2f,0x1(%rsi)
lea    0x1(%rsi),%rbp
cmovne %rdi,%rbp
lea    0x2(%rsi),%rbx
cmpb   $0x2f,0x2(%rsi)
cmovne %rbp,%rbx
add    $0x4,%rcx
add    $0x4,%rsi
cmp    %rcx,%rdx
jne    11a0 <strext+0x60>
test   %rax,%rax
je     11f1 <strext+0xb1>
add    %r13,%rcx
cmpb   $0x2f,(%rcx)
cmove  %rcx,%rbx
add    $0x1,%rcx
add    $0xffffffffffffffff,%rax
jne    11e0 <strext+0xa0>
test   %r12d,%r12d
je     1249 <strext+0x109>
mov    %rbx,%rdi
mov    $0x2e,%esi
call   1050 <strchr@plt>
test   %rax,%rax
jne    1218 <strext+0xd8>
mov    %r13,%rdi
call   1040 <strlen@plt>
movw   $0x2e,0x0(%r13,%rax,1)
mov    %rbx,%rdi
mov    $0x2e,%esi
call   1050 <strchr@plt>
cmpb   $0x1,(%r14)
sbb    $0xffffffffffffffff,%rax
movb   $0x0,(%rax)
mov    %r13,%rdi
mov    %r14,%rsi
add    $0x8,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
jmp    1060 <strcat@plt>
mov    %rbx,%rdi
mov    $0x2e,%esi
call   1050 <strchr@plt>
test   %rax,%rax
je     11f6 <strext+0xb6>
lea    (%r15,%r13,1),%rcx
add    $0xffffffffffffffff,%rcx
cmp    %rcx,%rax
je     11f6 <strext+0xb6>
add    $0x8,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
@.str = [2 x i8] c".\00"
define void @strext(i8* %0, i8* %1, i8* %2, i32 %3) {
%5 = alloca i8*
%6 = alloca i8*
%7 = alloca i8*
%8 = alloca i32
%9 = alloca i32
%10 = alloca i32
%11 = alloca i8*
%12 = alloca i8*
store i8* %0, i8** %5
store i8* %1, i8** %6
store i8* %2, i8** %7
store i32 %3, i32* %8
%13 = load i8*, i8** %5
%14 = load i8*, i8** %6
%15 = call i8* @strcpy(i8* %13, i8* %14)
%16 = load i8*, i8** %5
%17 = call i64 @strlen(i8* %16)
%18 = trunc i64 %17 to i32
store i32 %18, i32* %10
%19 = load i8*, i8** %5
store i8* %19, i8** %11
store i32 0, i32* %9
br label %20
20: ; preds = %38, %4
%21 = load i32, i32* %9
%22 = load i32, i32* %10
%23 = icmp slt i32 %21, %22
br i1 %23, label %24, label %41
24: ; preds = %20
%25 = load i8*, i8** %5
%26 = load i32, i32* %9
%27 = sext i32 %26 to i64
%28 = getelementptr inbounds i8, i8* %25, i64 %27
%29 = load i8, i8* %28
%30 = sext i8 %29 to i32
%31 = icmp eq i32 %30, 47
br i1 %31, label %32, label %37
32: ; preds = %24
%33 = load i8*, i8** %5
%34 = load i32, i32* %9
%35 = sext i32 %34 to i64
%36 = getelementptr inbounds i8, i8* %33, i64 %35
store i8* %36, i8** %11
br label %37
37: ; preds = %32, %24
br label %38
38: ; preds = %37
%39 = load i32, i32* %9
%40 = add nsw i32 %39, 1
store i32 %40, i32* %9
br label %20
41: ; preds = %20
%42 = load i32, i32* %8
%43 = icmp ne i32 %42, 0
br i1 %43, label %59, label %44
44: ; preds = %41
%45 = load i8*, i8** %11
%46 = call i8* @strchr(i8* %45, i32 46)
store i8* %46, i8** %12
%47 = load i8*, i8** %12
%48 = icmp ne i8* %47, null
br i1 %48, label %49, label %58
49: ; preds = %44
%50 = load i8*, i8** %12
%51 = load i8*, i8** %5
%52 = load i8*, i8** %5
%53 = call i64 @strlen(i8* %52)
%54 = getelementptr inbounds i8, i8* %51, i64 %53
%55 = getelementptr inbounds i8, i8* %54, i64 -1
%56 = icmp ne i8* %50, %55
br i1 %56, label %57, label %58
57: ; preds = %49
br label %80
58: ; preds = %49, %44
br label %59
59: ; preds = %58, %41
%60 = load i8*, i8** %11
%61 = call i8* @strchr(i8* %60, i32 46)
%62 = icmp ne i8* %61, null
br i1 %62, label %66, label %63
63: ; preds = %59
%64 = load i8*, i8** %5
%65 = call i8* @strcat(i8* %64, i8* getelementptr inbounds ([2 x i8], [2 x i8]* @.str, i64 0, i64 0))
br label %66
66: ; preds = %63, %59
%67 = load i8*, i8** %11
%68 = call i8* @strchr(i8* %67, i32 46)
store i8* %68, i8** %12
%69 = load i8*, i8** %7
%70 = call i64 @strlen(i8* %69)
%71 = icmp ugt i64 %70, 0
br i1 %71, label %72, label %75
72: ; preds = %66
%73 = load i8*, i8** %12
%74 = getelementptr inbounds i8, i8* %73, i32 1
store i8* %74, i8** %12
br label %75
75: ; preds = %72, %66
%76 = load i8*, i8** %12
store i8 0, i8* %76
%77 = load i8*, i8** %5
%78 = load i8*, i8** %7
%79 = call i8* @strcat(i8* %77, i8* %78)
br label %80
80: ; preds = %75, %57
ret void
}

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