int Tcl_UniCharToUtf(ch, str)
int ch;
char *str;
{
  if ((ch > 0) && (ch < 0x80)) {
    str[0] = (char)ch;
    return 1;
  }
  if (ch <= 0x7FF) {
    str[1] = (char)((ch | 0x80) & 0xBF);
    str[0] = (char)((ch >> 6) | 0xC0);
    return 2;
  }
  if (ch <= 0xFFFF) {
  three:
    str[2] = (char)((ch | 0x80) & 0xBF);
    str[1] = (char)(((ch >> 6) | 0x80) & 0xBF);
    str[0] = (char)((ch >> 12) | 0xE0);
    return 3;
  }
  ch = 0xFFFD;
  goto three;
}


x86 assembly (clang, -O0):
<Tcl_UniCharToUtf>:
push   %rbp
mov    %rsp,%rbp
mov    %edi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
cmpl   $0x0,-0x8(%rbp)
jle    1139 <Tcl_UniCharToUtf+0x39>
cmpl   $0x80,-0x8(%rbp)
jge    1139 <Tcl_UniCharToUtf+0x39>
mov    -0x8(%rbp),%eax
mov    %al,%cl
mov    -0x10(%rbp),%rax
mov    %cl,(%rax)
movl   $0x1,-0x4(%rbp)
jmp    11e7 <Tcl_UniCharToUtf+0xe7>
cmpl   $0x7ff,-0x8(%rbp)
jg     117b <Tcl_UniCharToUtf+0x7b>
mov    -0x8(%rbp),%eax
or     $0x80,%eax
and    $0xbf,%eax
mov    %al,%cl
mov    -0x10(%rbp),%rax
mov    %cl,0x1(%rax)
mov    -0x8(%rbp),%eax
sar    $0x6,%eax
or     $0xc0,%eax
mov    %al,%cl
mov    -0x10(%rbp),%rax
mov    %cl,(%rax)
movl   $0x2,-0x4(%rbp)
jmp    11e7 <Tcl_UniCharToUtf+0xe7>
cmpl   $0xffff,-0x8(%rbp)
jg     11db <Tcl_UniCharToUtf+0xdb>
jmp    118d <Tcl_UniCharToUtf+0x8d>
mov    -0x8(%rbp),%eax
or     $0x80,%eax
and    $0xbf,%eax
mov    %al,%cl
mov    -0x10(%rbp),%rax
mov    %cl,0x2(%rax)
mov    -0x8(%rbp),%eax
sar    $0x6,%eax
or     $0x80,%eax
and    $0xbf,%eax
mov    %al,%cl
mov    -0x10(%rbp),%rax
mov    %cl,0x1(%rax)
mov    -0x8(%rbp),%eax
sar    $0xc,%eax
or     $0xe0,%eax
mov    %al,%cl
mov    -0x10(%rbp),%rax
mov    %cl,(%rax)
movl   $0x3,-0x4(%rbp)
jmp    11e7 <Tcl_UniCharToUtf+0xe7>
movl   $0xfffd,-0x8(%rbp)
jmp    118d <Tcl_UniCharToUtf+0x8d>
mov    -0x4(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<Tcl_UniCharToUtf>:
lea    -0x1(%rdi),%eax
cmp    $0x7e,%eax
ja     1111 <Tcl_UniCharToUtf+0x11>
mov    $0x1,%eax
mov    %dil,(%rsi)
ret
cmp    $0x7ff,%edi
jg     1132 <Tcl_UniCharToUtf+0x32>
mov    %edi,%eax
and    $0x3f,%al
or     $0x80,%al
mov    %al,0x1(%rsi)
shr    $0x6,%edi
or     $0xc0,%dil
mov    $0x2,%eax
mov    %dil,(%rsi)
ret
cmp    $0x10000,%edi
mov    $0xfffd,%ecx
cmovb  %edi,%ecx
mov    %ecx,%eax
and    $0x3f,%al
or     $0x80,%al
mov    %al,0x2(%rsi)
mov    %ecx,%eax
shr    $0x6,%eax
and    $0x3f,%al
or     $0x80,%al
mov    %al,0x1(%rsi)
shr    $0xc,%ecx
or     $0xe0,%cl
mov    $0x3,%eax
mov    %ecx,%edi
mov    %dil,(%rsi)
ret

LLVM IR (-O0):
define i32 @Tcl_UniCharToUtf(i32 %0, i8* %1) {
%3 = alloca i32
%4 = alloca i32
%5 = alloca i8*
store i32 %0, i32* %4
store i8* %1, i8** %5
%6 = load i32, i32* %4
%7 = icmp sgt i32 %6, 0
br i1 %7, label %8, label %16
8: ; preds = %2
%9 = load i32, i32* %4
%10 = icmp slt i32 %9, 128
br i1 %10, label %11, label %16
11: ; preds = %8
%12 = load i32, i32* %4
%13 = trunc i32 %12 to i8
%14 = load i8*, i8** %5
%15 = getelementptr inbounds i8, i8* %14, i64 0
store i8 %13, i8* %15
store i32 1, i32* %3
br label %57
16: ; preds = %8, %2
%17 = load i32, i32* %4
%18 = icmp sle i32 %17, 2047
br i1 %18, label %19, label %32
19: ; preds = %16
%20 = load i32, i32* %4
%21 = or i32 %20, 128
%22 = and i32 %21, 191
%23 = trunc i32 %22 to i8
%24 = load i8*, i8** %5
%25 = getelementptr inbounds i8, i8* %24, i64 1
store i8 %23, i8* %25
%26 = load i32, i32* %4
%27 = ashr i32 %26, 6
%28 = or i32 %27, 192
%29 = trunc i32 %28 to i8
%30 = load i8*, i8** %5
%31 = getelementptr inbounds i8, i8* %30, i64 0
store i8 %29, i8* %31
store i32 2, i32* %3
br label %57
32: ; preds = %16
%33 = load i32, i32* %4
%34 = icmp sle i32 %33, 65535
br i1 %34, label %35, label %56
35: ; preds = %32
br label %36
36: ; preds = %56, %35
%37 = load i32, i32* %4
%38 = or i32 %37, 128
%39 = and i32 %38, 191
%40 = trunc i32 %39 to i8
%41 = load i8*, i8** %5
%42 = getelementptr inbounds i8, i8* %41, i64 2
store i8 %40, i8* %42
%43 = load i32, i32* %4
%44 = ashr i32 %43, 6
%45 = or i32 %44, 128
%46 = and i32 %45, 191
%47 = trunc i32 %46 to i8
%48 = load i8*, i8** %5
%49 = getelementptr inbounds i8, i8* %48, i64 1
store i8 %47, i8* %49
%50 = load i32, i32* %4
%51 = ashr i32 %50, 12
%52 = or i32 %51, 224
%53 = trunc i32 %52 to i8
%54 = load i8*, i8** %5
%55 = getelementptr inbounds i8, i8* %54, i64 0
store i8 %53, i8* %55
store i32 3, i32* %3
br label %57
56: ; preds = %32
store i32 65533, i32* %4
br label %36
57: ; preds = %36, %19, %11
%58 = load i32, i32* %3
ret i32 %58
}

LLVM IR (-O2):
define i32 @Tcl_UniCharToUtf(i32 %0, i8* nocapture writeonly %1) {
%3 = add i32 %0, -1
%4 = icmp ult i32 %3, 127
br i1 %4, label %5, label %7
5: ; preds = %2
%6 = trunc i32 %0 to i8
br label %32
7: ; preds = %2
%8 = icmp slt i32 %0, 2048
br i1 %8, label %9, label %17
9: ; preds = %7
%10 = trunc i32 %0 to i8
%11 = and i8 %10, 63
%12 = or i8 %11, -128
%13 = getelementptr inbounds i8, i8* %1, i64 1
store i8 %12, i8* %13
%14 = lshr i32 %0, 6
%15 = trunc i32 %14 to i8
%16 = or i8 %15, -64
br label %32
17: ; preds = %7
%18 = icmp ult i32 %0, 65536
%19 = select i1 %18, i32 %0, i32 65533
%20 = trunc i32 %19 to i8
%21 = and i8 %20, 63
%22 = or i8 %21, -128
%23 = getelementptr inbounds i8, i8* %1, i64 2
store i8 %22, i8* %23
%24 = lshr i32 %19, 6
%25 = trunc i32 %24 to i8
%26 = and i8 %25, 63
%27 = or i8 %26, -128
%28 = getelementptr inbounds i8, i8* %1, i64 1
store i8 %27, i8* %28
%29 = lshr i32 %19, 12
%30 = trunc i32 %29 to i8
%31 = or i8 %30, -32
br label %32
32: ; preds = %17, %9, %5
%33 = phi i8 [ %31, %17 ], [ %16, %9 ], [ %6, %5 ]
%34 = phi i32 [ 3, %17 ], [ 2, %9 ], [ 1, %5 ]
store i8 %33, i8* %1
ret i32 %34
}