// File: besm6[P]pascal-re/pascompl.cc
// Function: standProc::doPackUnpack()
void doPackUnpack() {
        ArrayT * t;

        l4exp7z = new Expr;
        l4exp7z->typ = l4typ1z->cast<ArrayT>().base;
        l4exp7z->op = GETELT;
        l4exp7z->expr1 = l4exp9z;
        l4exp7z->expr2 = l4exp8z;
        t = static_cast<ArrayT*>(l4exp6z->typ);
        if ((t->k != kindArray) or
            not t->pck or
            not typeCheck(t->base, l4typ1z->cast<ArrayT>().base) or
            not typeCheck(l4typ1z->cast<ArrayT>().range, t->range))
            error(errNeedOtherTypesOfOperands);
        curExpr = new Expr;
        curExpr->val.ii = char(procNo + 50);
        curExpr->expr1 = l4exp7z;
        curExpr->expr2 = l4exp6z;
        (void) formOperator(PCKUNPCK);
    }

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x150, %rsp            # imm = 0x150
movq %rdi, -0x8(%rbp)
movq -0x8(%rbp), %rax
movq %rax, -0x130(%rbp)
movl $0x20, %edi
callq 0x1e2e0
movq %rax, %rcx
movq -0x130(%rbp), %rax
movq %rcx, 0x30(%rax)
movq (%rax), %rdi
callq 0x1e210
movq %rax, %rcx
movq -0x130(%rbp), %rax
movq 0x18(%rcx), %rdx
movq 0x30(%rax), %rcx
movq %rdx, (%rcx)
movq 0x30(%rax), %rcx
movl $0x1c, 0x8(%rcx)
movq 0x40(%rax), %rdx
movq 0x30(%rax), %rcx
movq %rdx, 0x10(%rcx)
movq 0x38(%rax), %rdx
movq 0x30(%rax), %rcx
movq %rdx, 0x18(%rcx)
movq 0x28(%rax), %rax
movq (%rax), %rax
movq %rax, -0x10(%rbp)
movq -0x10(%rbp), %rax
movl 0x10(%rax), %ecx
movb $0x0, -0x59(%rbp)
movb $0x0, -0xb5(%rbp)
movb $0x1, %al
cmpl $0x5, %ecx
movb %al, -0x121(%rbp)
jne 0x28f3a
movq -0x10(%rbp), %rcx
movb $0x1, %al
testb $0x1, 0x28(%rcx)
movb %al, -0x121(%rbp)
je 0x28f3a
movq -0x130(%rbp), %rax
movq -0x10(%rbp), %rcx
movq 0x18(%rcx), %rcx
movq %rcx, -0x138(%rbp)
movq (%rax), %rdi
callq 0x1e210
movq -0x138(%rbp), %rsi
movq 0x18(%rax), %rdx
leaq -0x58(%rbp), %rdi
callq 0xb280
movb $0x1, -0x59(%rbp)
leaq -0x58(%rbp), %rdi
callq 0x1e950
movb %al, %cl
movb $0x1, %al
testb $0x1, %cl
movb %al, -0x121(%rbp)
jne 0x28ee6
jmp 0x28f3a
movq -0x130(%rbp), %rax
movq (%rax), %rdi
callq 0x1e210
movq %rax, -0x140(%rbp)
jmp 0x28efe
movq -0x140(%rbp), %rax
movq 0x20(%rax), %rsi
movq -0x10(%rbp), %rax
movq 0x20(%rax), %rdx
leaq -0xa8(%rbp), %rdi
callq 0xb280
jmp 0x28f1f
movb $0x1, -0xb5(%rbp)
leaq -0xa8(%rbp), %rdi
callq 0x1e950
xorb $-0x1, %al
movb %al, -0x121(%rbp)
movb -0x121(%rbp), %al
movb %al, -0x141(%rbp)
testb $0x1, -0xb5(%rbp)
jne 0x28f51
jmp 0x28f5d
leaq -0xa8(%rbp), %rdi
callq 0x1e9c0
testb $0x1, -0x59(%rbp)
jne 0x28f65
jmp 0x28f6e
leaq -0x58(%rbp), %rdi
callq 0x1e9c0
movb -0x141(%rbp), %al
testb $0x1, %al
jne 0x28f7a
jmp 0x28fab
movl $0x15, %edi
callq 0x7b40
jmp 0x28fab
movq %rax, %rcx
movl %edx, %eax
movq %rcx, -0xb0(%rbp)
movl %eax, -0xb4(%rbp)
testb $0x1, -0x59(%rbp)
jne 0x28fa0
jmp 0x28fa9
leaq -0x58(%rbp), %rdi
callq 0x1e9c0
jmp 0x29020
movl $0x20, %edi
callq 0x1e2e0
movq %rax, %rcx
movq -0x130(%rbp), %rax
movq %rcx, 0x5719a(%rip)     # 0x80160
movq 0x68(%rax), %rcx
addq $0x32, %rcx
movsbq %cl, %rdx
movq 0x57187(%rip), %rcx     # 0x80160
movq %rdx, (%rcx)
movq 0x30(%rax), %rdx
movq 0x57179(%rip), %rcx     # 0x80160
movq %rdx, 0x10(%rcx)
movq 0x28(%rax), %rcx
movq 0x5716a(%rip), %rax     # 0x80160
movq %rcx, 0x18(%rax)
leaq -0x120(%rbp), %rdi
movl $0x10, %esi
callq 0x112d0
leaq -0x120(%rbp), %rdi
callq 0x21850
addq $0x150, %rsp            # imm = 0x150
popq %rbp
retq
movq -0xb0(%rbp), %rdi
callq 0x44c0
nopl (%rax)