int is_pascal_string(unsigned char *stream, char *dstbuf, int *plength) {
  int retval = 0;
  if (stream[0] > 0) {
    int i;
    int strlength = stream[0];
    if ((strlength > 2) && (strlength < 256)) {
      retval = 1;
      if (stream[strlength] == 0) {
        for (i = 0; i < strlength - 1; i += 2) {
          char ascii_ch;
          char ascii_ch2;
          ascii_ch = stream[i + 1];
          ascii_ch2 = stream[i + 1 + 1];
          if ((ascii_ch < 0x20) || (ascii_ch > 0x7e) || (ascii_ch2 != 0)) {
            retval = 0;
            break;
          }
          if (strlength == 3) {
            if (ascii_ch == 0x20) {
              retval = 0;
              break;
            }
          }
          dstbuf[i / 2] = stream[i + 1];
        }
        if (retval) {
          dstbuf[strlength / 2] = 0;
          *plength = strlength + 1;
        }
      } else {
        retval = 0;
      }
    }
  }
  return (retval);
}


x86 assembly (clang, -O0):
<is_pascal_string>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
movl   $0x0,-0x1c(%rbp)
mov    -0x8(%rbp),%rax
movzbl (%rax),%eax
cmp    $0x0,%eax
jle    128f <is_pascal_string+0x18f>
mov    -0x8(%rbp),%rax
movzbl (%rax),%eax
mov    %eax,-0x24(%rbp)
cmpl   $0x2,-0x24(%rbp)
jle    128a <is_pascal_string+0x18a>
cmpl   $0x100,-0x24(%rbp)
jge    128a <is_pascal_string+0x18a>
movl   $0x1,-0x1c(%rbp)
mov    -0x8(%rbp),%rax
movslq -0x24(%rbp),%rcx
movzbl (%rax,%rcx,1),%eax
cmp    $0x0,%eax
jne    127e <is_pascal_string+0x17e>
movl   $0x0,-0x20(%rbp)
mov    -0x20(%rbp),%eax
mov    -0x24(%rbp),%ecx
sub    $0x1,%ecx
cmp    %ecx,%eax
jge    1243 <is_pascal_string+0x143>
mov    -0x8(%rbp),%rax
mov    -0x20(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
mov    (%rax,%rcx,1),%al
mov    %al,-0x25(%rbp)
mov    -0x8(%rbp),%rax
mov    -0x20(%rbp),%ecx
add    $0x1,%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
mov    (%rax,%rcx,1),%al
mov    %al,-0x26(%rbp)
movsbl -0x25(%rbp),%eax
cmp    $0x20,%eax
jl     11cc <is_pascal_string+0xcc>
movsbl -0x25(%rbp),%eax
cmp    $0x7e,%eax
jg     11cc <is_pascal_string+0xcc>
movsbl -0x26(%rbp),%eax
cmp    $0x0,%eax
je     11d8 <is_pascal_string+0xd8>
movl   $0x0,-0x1c(%rbp)
jmp    1243 <is_pascal_string+0x143>
cmpl   $0x3,-0x24(%rbp)
jne    1200 <is_pascal_string+0x100>
movsbl -0x25(%rbp),%eax
cmp    $0x20,%eax
jne    11fb <is_pascal_string+0xfb>
movl   $0x0,-0x1c(%rbp)
jmp    1243 <is_pascal_string+0x143>
jmp    1200 <is_pascal_string+0x100>
mov    -0x8(%rbp),%rax
mov    -0x20(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
mov    (%rax,%rcx,1),%al
mov    %al,-0x31(%rbp)
mov    -0x10(%rbp),%rax
mov    %rax,-0x30(%rbp)
mov    -0x20(%rbp),%eax
mov    $0x2,%ecx
cltd
idiv   %ecx
mov    -0x31(%rbp),%dl
mov    %eax,%ecx
mov    -0x30(%rbp),%rax
movslq %ecx,%rcx
mov    %dl,(%rax,%rcx,1)
mov    -0x20(%rbp),%eax
add    $0x2,%eax
mov    %eax,-0x20(%rbp)
jmp    116b <is_pascal_string+0x6b>
cmpl   $0x0,-0x1c(%rbp)
je     1279 <is_pascal_string+0x179>
mov    -0x10(%rbp),%rax
mov    %rax,-0x40(%rbp)
mov    -0x24(%rbp),%eax
mov    $0x2,%ecx
cltd
idiv   %ecx
mov    %eax,%ecx
mov    -0x40(%rbp),%rax
movslq %ecx,%rcx
movb   $0x0,(%rax,%rcx,1)
mov    -0x24(%rbp),%ecx
add    $0x1,%ecx
mov    -0x18(%rbp),%rax
mov    %ecx,(%rax)
jmp    1285 <is_pascal_string+0x185>
movl   $0x0,-0x1c(%rbp)
jmp    128a <is_pascal_string+0x18a>
jmp    128f <is_pascal_string+0x18f>
mov    -0x1c(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<is_pascal_string>:
push   %rbx
movzbl (%rdi),%r9d
xor    %eax,%eax
cmp    $0x3,%r9d
jb     1114 <is_pascal_string+0x14>
cmpb   $0x0,(%rdi,%r9,1)
je     1116 <is_pascal_string+0x16>
pop    %rbx
ret
lea    -0x1(%r9),%r8
xor    %eax,%eax
mov    %rsi,%r10
xor    %ecx,%ecx
jmp    1140 <is_pascal_string+0x40>
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
add    $0x2,%rcx
mov    %r11b,(%r10)
add    $0x1,%r10
cmp    %r8,%rcx
jge    1164 <is_pascal_string+0x64>
movzbl 0x1(%rdi,%rcx,1),%r11d
lea    -0x7f(%r11),%ebx
cmp    $0xa1,%bl
jb     1114 <is_pascal_string+0x14>
cmpb   $0x0,0x2(%rdi,%rcx,1)
jne    1114 <is_pascal_string+0x14>
cmp    $0x3,%r9b
jne    1130 <is_pascal_string+0x30>
cmp    $0x20,%r11b
jne    1130 <is_pascal_string+0x30>
jmp    1114 <is_pascal_string+0x14>
mov    %r9,%rax
shr    %rax
movb   $0x0,(%rsi,%rax,1)
add    $0x1,%r9d
mov    %r9d,(%rdx)
mov    $0x1,%eax
pop    %rbx
ret

LLVM IR (-O0):
define i32 @is_pascal_string(i8* %0, i8* %1, i32* %2) {
%4 = alloca i8*
%5 = alloca i8*
%6 = alloca i32*
%7 = alloca i32
%8 = alloca i32
%9 = alloca i32
%10 = alloca i8
%11 = alloca i8
store i8* %0, i8** %4
store i8* %1, i8** %5
store i32* %2, i32** %6
store i32 0, i32* %7
%12 = load i8*, i8** %4
%13 = getelementptr inbounds i8, i8* %12, i64 0
%14 = load i8, i8* %13
%15 = zext i8 %14 to i32
%16 = icmp sgt i32 %15, 0
br i1 %16, label %17, label %107
17: ; preds = %3
%18 = load i8*, i8** %4
%19 = getelementptr inbounds i8, i8* %18, i64 0
%20 = load i8, i8* %19
%21 = zext i8 %20 to i32
store i32 %21, i32* %9
%22 = load i32, i32* %9
%23 = icmp sgt i32 %22, 2
br i1 %23, label %24, label %106
24: ; preds = %17
%25 = load i32, i32* %9
%26 = icmp slt i32 %25, 256
br i1 %26, label %27, label %106
27: ; preds = %24
store i32 1, i32* %7
%28 = load i8*, i8** %4
%29 = load i32, i32* %9
%30 = sext i32 %29 to i64
%31 = getelementptr inbounds i8, i8* %28, i64 %30
%32 = load i8, i8* %31
%33 = zext i8 %32 to i32
%34 = icmp eq i32 %33, 0
br i1 %34, label %35, label %104
35: ; preds = %27
store i32 0, i32* %8
br label %36
36: ; preds = %88, %35
%37 = load i32, i32* %8
%38 = load i32, i32* %9
%39 = sub nsw i32 %38, 1
%40 = icmp slt i32 %37, %39
br i1 %40, label %41, label %91
41: ; preds = %36
%42 = load i8*, i8** %4
%43 = load i32, i32* %8
%44 = add nsw i32 %43, 1
%45 = sext i32 %44 to i64
%46 = getelementptr inbounds i8, i8* %42, i64 %45
%47 = load i8, i8* %46
store i8 %47, i8* %10
%48 = load i8*, i8** %4
%49 = load i32, i32* %8
%50 = add nsw i32 %49, 1
%51 = add nsw i32 %50, 1
%52 = sext i32 %51 to i64
%53 = getelementptr inbounds i8, i8* %48, i64 %52
%54 = load i8, i8* %53
store i8 %54, i8* %11
%55 = load i8, i8* %10
%56 = sext i8 %55 to i32
%57 = icmp slt i32 %56, 32
br i1 %57, label %66, label %58
58: ; preds = %41
%59 = load i8, i8* %10
%60 = sext i8 %59 to i32
%61 = icmp sgt i32 %60, 126
br i1 %61, label %66, label %62
62: ; preds = %58
%63 = load i8, i8* %11
%64 = sext i8 %63 to i32
%65 = icmp ne i32 %64, 0
br i1 %65, label %66, label %67
66: ; preds = %62, %58, %41
store i32 0, i32* %7
br label %91
67: ; preds = %62
%68 = load i32, i32* %9
%69 = icmp eq i32 %68, 3
br i1 %69, label %70, label %76
70: ; preds = %67
%71 = load i8, i8* %10
%72 = sext i8 %71 to i32
%73 = icmp eq i32 %72, 32
br i1 %73, label %74, label %75
74: ; preds = %70
store i32 0, i32* %7
br label %91
75: ; preds = %70
br label %76
76: ; preds = %75, %67
%77 = load i8*, i8** %4
%78 = load i32, i32* %8
%79 = add nsw i32 %78, 1
%80 = sext i32 %79 to i64
%81 = getelementptr inbounds i8, i8* %77, i64 %80
%82 = load i8, i8* %81
%83 = load i8*, i8** %5
%84 = load i32, i32* %8
%85 = sdiv i32 %84, 2
%86 = sext i32 %85 to i64
%87 = getelementptr inbounds i8, i8* %83, i64 %86
store i8 %82, i8* %87
br label %88
88: ; preds = %76
%89 = load i32, i32* %8
%90 = add nsw i32 %89, 2
store i32 %90, i32* %8
br label %36
91: ; preds = %74, %66, %36
%92 = load i32, i32* %7
%93 = icmp ne i32 %92, 0
br i1 %93, label %94, label %103
94: ; preds = %91
%95 = load i8*, i8** %5
%96 = load i32, i32* %9
%97 = sdiv i32 %96, 2
%98 = sext i32 %97 to i64
%99 = getelementptr inbounds i8, i8* %95, i64 %98
store i8 0, i8* %99
%100 = load i32, i32* %9
%101 = add nsw i32 %100, 1
%102 = load i32*, i32** %6
store i32 %101, i32* %102
br label %103
103: ; preds = %94, %91
br label %105
104: ; preds = %27
store i32 0, i32* %7
br label %105
105: ; preds = %104, %103
br label %106
106: ; preds = %105, %24, %17
br label %107
107: ; preds = %106, %3
%108 = load i32, i32* %7
ret i32 %108
}

LLVM IR (-O2):
define i32 @is_pascal_string(i8* nocapture %0, i8* nocapture writeonly %1, i32* nocapture writeonly %2) {
%4 = load i8, i8* %0
%5 = zext i8 %4 to i32
%6 = icmp ult i8 %4, 3
br i1 %6, label %40, label %7
7: ; preds = %3
%8 = zext i8 %4 to i64
%9 = getelementptr inbounds i8, i8* %0, i64 %8
%10 = load i8, i8* %9
%11 = icmp eq i8 %10, 0
br i1 %11, label %12, label %40
12: ; preds = %7
%13 = add nsw i32 %5, -1
%14 = icmp eq i8 %4, 3
%15 = sext i32 %13 to i64
br label %16
16: ; preds = %12, %31
%17 = phi i64 [ 0, %12 ], [ %21, %31 ]
%18 = or i64 %17, 1
%19 = getelementptr inbounds i8, i8* %0, i64 %18
%20 = load i8, i8* %19
%21 = add nuw nsw i64 %17, 2
%22 = getelementptr inbounds i8, i8* %0, i64 %21
%23 = load i8, i8* %22
%24 = add i8 %20, -127
%25 = icmp ult i8 %24, -95
%26 = icmp ne i8 %23, 0
%27 = select i1 %25, i1 true, i1 %26
br i1 %27, label %40, label %28
28: ; preds = %16
%29 = icmp eq i8 %20, 32
%30 = select i1 %14, i1 %29, i1 false
br i1 %30, label %40, label %31
31: ; preds = %28
%32 = lshr exact i64 %17, 1
%33 = getelementptr inbounds i8, i8* %1, i64 %32
store i8 %20, i8* %33
%34 = icmp slt i64 %21, %15
br i1 %34, label %16, label %35
35: ; preds = %31
%36 = lshr i32 %5, 1
%37 = zext i32 %36 to i64
%38 = getelementptr inbounds i8, i8* %1, i64 %37
store i8 0, i8* %38
%39 = add nuw nsw i32 %5, 1
store i32 %39, i32* %2
br label %40
40: ; preds = %16, %28, %3, %35, %7
%41 = phi i32 [ 1, %35 ], [ 0, %7 ], [ 0, %3 ], [ 0, %28 ], [ 0, %16 ]
ret i32 %41
}