int str$$iszero(const struct dsc$descriptor_s *sd1) {
  int i, c_not_zero;
  char *s1_ptr;
  unsigned short s1_len;
  str$analyze_sdesc(sd1, &s1_len, &s1_ptr);
  c_not_zero = 0;
  for (i = 0; i < s1_len; i++)
    if (s1_ptr[i] != '0')
      c_not_zero = 1;
  return c_not_zero;
}


x86 assembly (clang, -O0):
<str$$iszero>:
push   %rbp
mov    %rsp,%rbp
sub    $0x20,%rsp
mov    %rdi,-0x8(%rbp)
mov    -0x8(%rbp),%rdi
lea    -0x1a(%rbp),%rsi
lea    -0x18(%rbp),%rdx
mov    $0x0,%al
call   1030 <str$analyze_sdesc@plt>
movl   $0x0,-0x10(%rbp)
movl   $0x0,-0xc(%rbp)
mov    -0xc(%rbp),%eax
movzwl -0x1a(%rbp),%ecx
cmp    %ecx,%eax
jge    117b <str$$iszero+0x6b>
mov    -0x18(%rbp),%rax
movslq -0xc(%rbp),%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x30,%eax
je     1168 <str$$iszero+0x58>
movl   $0x1,-0x10(%rbp)
jmp    116d <str$$iszero+0x5d>
mov    -0xc(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0xc(%rbp)
jmp    113d <str$$iszero+0x2d>
mov    -0x10(%rbp),%eax
add    $0x20,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<str$$iszero>:
push   %rbx
sub    $0x10,%rsp
xor    %ebx,%ebx
lea    0x6(%rsp),%rsi
lea    0x8(%rsp),%rdx
xor    %eax,%eax
call   1030 <str$analyze_sdesc@plt>
movzwl 0x6(%rsp),%eax
test   %rax,%rax
je     12a0 <str$$iszero+0x190>
mov    0x8(%rsp),%rcx
cmp    $0x8,%ax
jae    114a <str$$iszero+0x3a>
xor    %edx,%edx
xor    %ebx,%ebx
jmp    1281 <str$$iszero+0x171>
mov    %eax,%edx
and    $0xfffffff8,%edx
lea    -0x8(%rdx),%rsi
mov    %rsi,%rbx
shr    $0x3,%rbx
add    $0x1,%rbx
test   %rsi,%rsi
je     12a8 <str$$iszero+0x198>
mov    %rbx,%rsi
and    $0xfffffffffffffffe,%rsi
pxor   %xmm0,%xmm0
xor    %edi,%edi
movdqa 0xe84(%rip),%xmm2
movdqa 0xe8c(%rip),%xmm3
pxor   %xmm1,%xmm1
nopl   0x0(%rax,%rax,1)
movd   (%rcx,%rdi,1),%xmm4
movd   0x4(%rcx,%rdi,1),%xmm5
pcmpeqb %xmm2,%xmm4
pcmpeqb %xmm2,%xmm5
movd   0x8(%rcx,%rdi,1),%xmm6
movd   0xc(%rcx,%rdi,1),%xmm7
pcmpeqb %xmm2,%xmm6
pand   %xmm4,%xmm6
punpcklbw %xmm6,%xmm4
punpcklwd %xmm4,%xmm4
pcmpeqb %xmm2,%xmm7
pand   %xmm5,%xmm7
punpcklbw %xmm7,%xmm5
punpcklwd %xmm5,%xmm5
psrad  $0x18,%xmm4
pand   %xmm4,%xmm0
pandn  %xmm3,%xmm4
por    %xmm4,%xmm0
psrad  $0x18,%xmm5
pand   %xmm5,%xmm1
pandn  %xmm3,%xmm5
por    %xmm5,%xmm1
add    $0x10,%rdi
add    $0xfffffffffffffffe,%rsi
jne    1190 <str$$iszero+0x80>
test   $0x1,%bl
je     1255 <str$$iszero+0x145>
movd   (%rcx,%rdi,1),%xmm2
movd   0x4(%rcx,%rdi,1),%xmm3
movdqa 0xded(%rip),%xmm4
pcmpeqb %xmm4,%xmm2
punpcklbw %xmm2,%xmm2
punpcklwd %xmm2,%xmm2
psrad  $0x18,%xmm2
pcmpeqb %xmm4,%xmm3
punpcklbw %xmm3,%xmm3
punpcklwd %xmm3,%xmm3
psrad  $0x18,%xmm3
movdqa 0xdd3(%rip),%xmm4
pand   %xmm2,%xmm0
pandn  %xmm4,%xmm2
por    %xmm2,%xmm0
pand   %xmm3,%xmm1
pandn  %xmm4,%xmm3
por    %xmm3,%xmm1
pxor   %xmm2,%xmm2
movdqa %xmm0,%xmm3
pcmpeqd %xmm2,%xmm3
pand   %xmm3,%xmm1
pandn  %xmm0,%xmm3
por    %xmm1,%xmm3
pcmpeqd %xmm2,%xmm3
movmskps %xmm3,%esi
xor    %ebx,%ebx
cmp    $0xf,%esi
setne  %bl
cmp    %rax,%rdx
je     12a0 <str$$iszero+0x190>
mov    $0x1,%esi
cs nopw 0x0(%rax,%rax,1)
cmpb   $0x30,(%rcx,%rdx,1)
cmovne %esi,%ebx
add    $0x1,%rdx
cmp    %rdx,%rax
jne    1290 <str$$iszero+0x180>
mov    %ebx,%eax
add    $0x10,%rsp
pop    %rbx
ret
pxor   %xmm0,%xmm0
xor    %edi,%edi
pxor   %xmm1,%xmm1
test   $0x1,%bl
jne    1200 <str$$iszero+0xf0>
jmp    1255 <str$$iszero+0x145>

LLVM IR (-O0):
%"struct.dsc$descriptor_s" = type opaque
define i32 @"str$$iszero"(%"struct.dsc$descriptor_s"* %0) {
%2 = alloca %"struct.dsc$descriptor_s"*
%3 = alloca i32
%4 = alloca i32
%5 = alloca i8*
%6 = alloca i16
store %"struct.dsc$descriptor_s"* %0, %"struct.dsc$descriptor_s"** %2
%7 = load %"struct.dsc$descriptor_s"*, %"struct.dsc$descriptor_s"** %2
%8 = call i32 (%"struct.dsc$descriptor_s"*, i16*, i8**, ...) bitcast (i32 (...)* @"str$analyze_sdesc" to i32 (%"struct.dsc$descriptor_s"*, i16*, i8**, ...)*)(%"struct.dsc$descriptor_s"* %7, i16* %6, i8** %5)
store i32 0, i32* %4
store i32 0, i32* %3
br label %9
9: ; preds = %24, %1
%10 = load i32, i32* %3
%11 = load i16, i16* %6
%12 = zext i16 %11 to i32
%13 = icmp slt i32 %10, %12
br i1 %13, label %14, label %27
14: ; preds = %9
%15 = load i8*, i8** %5
%16 = load i32, i32* %3
%17 = sext i32 %16 to i64
%18 = getelementptr inbounds i8, i8* %15, i64 %17
%19 = load i8, i8* %18
%20 = sext i8 %19 to i32
%21 = icmp ne i32 %20, 48
br i1 %21, label %22, label %23
22: ; preds = %14
store i32 1, i32* %4
br label %23
23: ; preds = %22, %14
br label %24
24: ; preds = %23
%25 = load i32, i32* %3
%26 = add nsw i32 %25, 1
store i32 %26, i32* %3
br label %9
27: ; preds = %9
%28 = load i32, i32* %4
ret i32 %28
}

LLVM IR (-O2):
%"struct.dsc$descriptor_s" = type opaque
define i32 @"str$$iszero"(%"struct.dsc$descriptor_s"* %0) {
%2 = alloca i8*
%3 = alloca i16
%4 = bitcast i8** %2 to i8*
%5 = bitcast i16* %3 to i8*
%6 = call i32 (%"struct.dsc$descriptor_s"*, i16*, i8**, ...) bitcast (i32 (...)* @"str$analyze_sdesc" to i32 (%"struct.dsc$descriptor_s"*, i16*, i8**, ...)*)(%"struct.dsc$descriptor_s"* %0, i16* %3, i8** %2)
%7 = load i16, i16* %3
%8 = icmp eq i16 %7, 0
br i1 %8, label %91, label %9
9: ; preds = %1
%10 = load i8*, i8** %2
%11 = zext i16 %7 to i64
%12 = icmp ult i16 %7, 8
br i1 %12, label %79, label %13
13: ; preds = %9
%14 = and i64 %11, 65528
%15 = add nsw i64 %14, -8
%16 = lshr exact i64 %15, 3
%17 = add nuw nsw i64 %16, 1
%18 = and i64 %17, 1
%19 = icmp eq i64 %15, 0
br i1 %19, label %51, label %20
20: ; preds = %13
%21 = and i64 %17, 4611686018427387902
br label %22
22: ; preds = %22, %20
%23 = phi i64 [ 0, %20 ], [ %48, %22 ]
%24 = phi <4 x i32> [ zeroinitializer, %20 ], [ %45, %22 ]
%25 = phi <4 x i32> [ zeroinitializer, %20 ], [ %47, %22 ]
%26 = phi i64 [ 0, %20 ], [ %49, %22 ]
%27 = getelementptr inbounds i8, i8* %10, i64 %23
%28 = bitcast i8* %27 to <4 x i8>*
%29 = load <4 x i8>, <4 x i8>* %28
%30 = getelementptr inbounds i8, i8* %27, i64 4
%31 = bitcast i8* %30 to <4 x i8>*
%32 = load <4 x i8>, <4 x i8>* %31
%33 = icmp eq <4 x i8> %29, <i8 48, i8 48, i8 48, i8 48>
%34 = icmp eq <4 x i8> %32, <i8 48, i8 48, i8 48, i8 48>
%35 = or i64 %23, 8
%36 = getelementptr inbounds i8, i8* %10, i64 %35
%37 = bitcast i8* %36 to <4 x i8>*
%38 = load <4 x i8>, <4 x i8>* %37
%39 = getelementptr inbounds i8, i8* %36, i64 4
%40 = bitcast i8* %39 to <4 x i8>*
%41 = load <4 x i8>, <4 x i8>* %40
%42 = icmp eq <4 x i8> %38, <i8 48, i8 48, i8 48, i8 48>
%43 = icmp eq <4 x i8> %41, <i8 48, i8 48, i8 48, i8 48>
%44 = select <4 x i1> %42, <4 x i1> %33, <4 x i1> zeroinitializer
%45 = select <4 x i1> %44, <4 x i32> %24, <4 x i32> <i32 1, i32 1, i32 1, i32 1>
%46 = select <4 x i1> %43, <4 x i1> %34, <4 x i1> zeroinitializer
%47 = select <4 x i1> %46, <4 x i32> %25, <4 x i32> <i32 1, i32 1, i32 1, i32 1>
%48 = add nuw i64 %23, 16
%49 = add i64 %26, 2
%50 = icmp eq i64 %49, %21
br i1 %50, label %51, label %22
51: ; preds = %22, %13
%52 = phi <4 x i32> [ undef, %13 ], [ %45, %22 ]
%53 = phi <4 x i32> [ undef, %13 ], [ %47, %22 ]
%54 = phi i64 [ 0, %13 ], [ %48, %22 ]
%55 = phi <4 x i32> [ zeroinitializer, %13 ], [ %45, %22 ]
%56 = phi <4 x i32> [ zeroinitializer, %13 ], [ %47, %22 ]
%57 = icmp eq i64 %18, 0
br i1 %57, label %69, label %58
58: ; preds = %51
%59 = getelementptr inbounds i8, i8* %10, i64 %54
%60 = bitcast i8* %59 to <4 x i8>*
%61 = load <4 x i8>, <4 x i8>* %60
%62 = getelementptr inbounds i8, i8* %59, i64 4
%63 = bitcast i8* %62 to <4 x i8>*
%64 = load <4 x i8>, <4 x i8>* %63
%65 = icmp eq <4 x i8> %61, <i8 48, i8 48, i8 48, i8 48>
%66 = icmp eq <4 x i8> %64, <i8 48, i8 48, i8 48, i8 48>
%67 = select <4 x i1> %65, <4 x i32> %55, <4 x i32> <i32 1, i32 1, i32 1, i32 1>
%68 = select <4 x i1> %66, <4 x i32> %56, <4 x i32> <i32 1, i32 1, i32 1, i32 1>
br label %69
69: ; preds = %51, %58
%70 = phi <4 x i32> [ %52, %51 ], [ %67, %58 ]
%71 = phi <4 x i32> [ %53, %51 ], [ %68, %58 ]
%72 = icmp eq <4 x i32> %70, zeroinitializer
%73 = select <4 x i1> %72, <4 x i32> %71, <4 x i32> %70
%74 = icmp ne <4 x i32> %73, zeroinitializer
%75 = bitcast <4 x i1> %74 to i4
%76 = icmp ne i4 %75, 0
%77 = zext i1 %76 to i32
%78 = icmp eq i64 %14, %11
br i1 %78, label %91, label %79
79: ; preds = %9, %69
%80 = phi i64 [ 0, %9 ], [ %14, %69 ]
%81 = phi i32 [ 0, %9 ], [ %77, %69 ]
br label %82
82: ; preds = %79, %82
%83 = phi i64 [ %89, %82 ], [ %80, %79 ]
%84 = phi i32 [ %88, %82 ], [ %81, %79 ]
%85 = getelementptr inbounds i8, i8* %10, i64 %83
%86 = load i8, i8* %85
%87 = icmp eq i8 %86, 48
%88 = select i1 %87, i32 %84, i32 1
%89 = add nuw nsw i64 %83, 1
%90 = icmp eq i64 %89, %11
br i1 %90, label %91, label %82
91: ; preds = %82, %69, %1
%92 = phi i32 [ 0, %1 ], [ %77, %69 ], [ %88, %82 ]
ret i32 %92
}