// File: /workspace/github_cpp_makefile_star2_O3/besm6[P]pascal-re/pascompl.cc
// Function: Factor::Factor()
Factor() {
        inParam = parsingParam;
        parsingParam = false;
        if (SY < MULOP) {
            switch (SY) {
            case IDENT: {
                if (hashTravPtr == NULL) {
                    error(errNotDefined);
                    curExpr = uVarPtr;
                } else switch (hashTravPtr->cl) {
                    case TYPEID: {
                        error(23); /* errTypeIdInsteadOfVar */
                          curExpr = uVarPtr;
                    } break;
                    case ENUMID: {
                        curExpr = new Expr;
                        curExpr->typ = hashTravPtr->typ;
                        curExpr->op = GETENUM;
                        curExpr->num1 = hashTravPtr->value();
                        curExpr->num2 = 0;
                        inSymbol();
                    } break;
                    case ROUTINEID: {
                        routine = hashTravPtr;
                        inSymbol();
                        if (routine->offset == 0) {
                            if (routine->typ != NULL and
                                SY == LPAREN) {
                                stdCall();
                                return;
                            }
                            error(44); /* errIncorrectUsageOfStandProcOrFunc */
                        } else if (routine->typ == NULL) {
                            if (inParam) {
                                curOp = PCALL;
                            } else {
                                error(68); /* errUsingProcedureInExpression */
                            }
                        } else /* 14330 */ {
                            if (SY == LPAREN) {
                                parseCallArgs(routine);
                                return;
                            }
                            if (inParam && (SY == COMMA || (SY == RPAREN))) {
                                curOp = FCALL;
                            } else {
                                parseCallArgs(routine);
                                return;
                            }
                        } /* 14342 */
                        curExpr = new Expr;
                        if (SY != RPAREN && SY != COMMA) {
                            error(errNoCommaOrParenOrTooFewArgs);
                            throw 8888;
                        }
                        curExpr->typ = routine->typ;
                        curExpr->op = curOp;
                        curExpr->expr1 = NULL;
                        curExpr->id2 = routine;
                    } break;
                    case VARID: case FORMALID: case FIELDID:
                        parseLval();
                        break;
                    } /* case */
            } break;
            case LPAREN: {
                expression();
                checkSymAndRead(RPAREN);
            } break;
            case INTCONST: case REALCONST: case CHARCONST: case LTSY: case GTSY: {
                curExpr = new Expr;
                parseLiteral(curExpr->typ, curExpr->d1, false);
                curExpr->num2 = suffix;
                curExpr->op = GETENUM;
                inSymbol();
            } break;
            case NOTSY: {
                inSymbol();
                Factor();
                if (curExpr->typ != BooleanType)
                    error(1); /* errNoCommaNorSemicolon */
                l4exp6z = curExpr;
                curExpr = new Expr;
                curExpr->typ = BooleanType;
                curExpr->op = NOTOP;
                curExpr->expr1 = l4exp6z;
            } break;
            case LBRACK: {
                curExpr = new Expr;
                inSymbol();
                l4var8z = curExpr;
                l4var1z.m = Bits();
                if (SY != RBRACK) {
                    l4var12z = true;
                    bool102z = false;
                    do {
                        l4exp6z = curExpr;
                        expression();
                        if (l4var12z) {
                            curType = curExpr->typ;
                            if (not (Bits(curType->k) <= Bits(kindScalar, kindRange)))
                                error(23); /* errTypeIdInsteadOfVar */
                        } else {
                            if (not typeCheck(curType, curExpr->typ))
                                error(24); /*errIncompatibleExprsInSetCtor*/
                        }
                        l4var12z = false;
                        l4exp5z = curExpr;
                        if (SY == COLON) {
                            expression();
                            if (not typeCheck(curType, curExpr->typ))
                                error(24); /*errIncompatibleExprsInSetCtor*/
                            if (l4exp5z->op == GETENUM and
                                curExpr->op == GETENUM) {
                                l4var4z.i = l4exp5z->num1;
                                l4var3z.i = curExpr->num1;
                                l4var4z.i.exp = 0;
                                l4var3z.i.exp = 0;
                                l4var1z.m = l4var1z.m + BitRange(l4var4z.i, l4var3z.i);
                                curExpr = l4exp6z;
                                goto L14567;
                            }
                            l4var7z = new Expr;
                            l4var7z->typ = setType;
                            l4var7z->op = MKRANGE;
                            l4var7z->expr1 = l4exp5z;
                            l4var7z->expr2 = curExpr;
                            l4exp5z = l4var7z;
                        } else {/* 14535 */
                            if (l4exp5z->op == GETENUM) {
                                l4var4z.i = l4exp5z->num1;
                                l4var4z.i.exp = 0;
                                l4var1z.m = l4var1z.m + Bits(l4var4z.i);
                                curExpr = l4exp6z;
                                goto L14567;
                            }
                            l4var7z = new Expr;
                            l4var7z->typ = setType;
                            l4var7z->op = STANDPROC;
                            l4var7z->expr1 = l4exp5z;
                            l4var7z->num2 = 109;
                            l4exp5z = l4var7z;
                        } /* 14560 */
                        curExpr = new Expr;
                        curExpr->typ = setType;
                        curExpr->op = SETOR;
                        curExpr->expr1 = l4exp6z;
                        curExpr->expr2 = l4exp5z;
L14567:;
                    } while (SY == COMMA);
                } /* 14571 */
                checkSymAndRead(RBRACK);
                l4var8z->op = GETENUM;
                l4var8z->typ = setType;
                l4var8z->d1 = l4var1z;
            } break;
            default:;
            } /* case */
        } else {
            error(errBadSymbol);
            throw 8888;
        }
    }

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x7d8, %rsp            # imm = 0x7D8
movb 0x4cda3(%rip), %al      # 0x647f8
movb %al, 0x8(%rdi)
movb $0x0, 0x4cd99(%rip)     # 0x647f8
movl 0x4cdb7(%rip), %eax     # 0x6481c
cmpl $0x8, %eax
jg 0x180fd
ja 0x17ac9
movq %rdi, %rbx
movl %eax, %eax
leaq 0x4fd4(%rip), %rcx      # 0x1ca50
movslq (%rcx,%rax,4), %rax
addq %rcx, %rax
jmpq *%rax
movl $0x20, %edi
callq 0x3d77
movq %rax, 0x4d00a(%rip)     # 0x64aa0
leaq 0x10(%rax), %rsi
movq %rax, %rdi
xorl %edx, %edx
callq 0x8157
movl 0x4cd16(%rip), %eax     # 0x647c0
movq 0x4cfef(%rip), %rcx     # 0x64aa0
movq %rax, 0x18(%rcx)
movl $0x20, 0x8(%rcx)
leaq 0x388(%rsp), %rdi
callq 0x6f40
addq $0x7d8, %rsp            # imm = 0x7D8
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
callq 0xee5e
movl $0xc, %edi
addq $0x7d8, %rsp            # imm = 0x7D8
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x83e7
movq 0x4ce9e(%rip), %rax     # 0x649a0
testq %rax, %rax
je 0x17f92
movl 0x20(%rax), %ecx
cmpq $0x5, %rcx
ja 0x17ac9
leaq 0x4f59(%rip), %rdx      # 0x1ca74
movslq (%rdx,%rcx,4), %rcx
addq %rdx, %rcx
jmpq *%rcx
addq $0x7d8, %rsp            # imm = 0x7D8
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0xeb22
leaq 0x218(%rsp), %rdi
callq 0x6f40
leaq 0x48(%rsp), %rdi
callq 0x17a3e
movq 0x4cf48(%rip), %rax     # 0x64aa0
movq (%rax), %rcx
cmpq 0x4ce76(%rip), %rcx     # 0x649d8
je 0x17b75
movl $0x1, %edi
callq 0x58ff
movq 0x4cf2b(%rip), %rax     # 0x64aa0
movq %rax, 0x28(%rbx)
movl $0x20, %edi
callq 0x3d77
movq %rax, 0x4cf16(%rip)     # 0x64aa0
movq 0x4ce47(%rip), %rcx     # 0x649d8
movq %rcx, (%rax)
movq 0x4cf05(%rip), %rax     # 0x64aa0
movl $0x2a, 0x8(%rax)
movq 0x28(%rbx), %rcx
movq %rcx, 0x10(%rax)
jmp 0x17ac9
movl $0x20, %edi
callq 0x3d77
movq %rax, 0x4cee0(%rip)     # 0x64aa0
leaq 0xa8(%rsp), %rdi
callq 0x6f40
movq 0x4cecc(%rip), %rax     # 0x64aa0
movq %rax, 0x38(%rbx)
movq $0x0, (%rbx)
cmpl $0xd, 0x4cc36(%rip)     # 0x6481c
je 0x17f63
movabsq $-0xfe0000000001, %r13  # imm = 0xFFFF01FFFFFFFFFF
movb $0x1, 0x58(%rbx)
movb $0x0, 0x4cd74(%rip)     # 0x64975
leaq 0x18(%rbx), %r14
leaq 0x10(%rbx), %r15
movabsq $0x9fffffffffff, %rbp   # imm = 0x9FFFFFFFFFFF
movq %rsp, %r12
movq %rax, 0x28(%rbx)
callq 0xee5e
cmpb $0x1, 0x58(%rbx)
jne 0x17d14
movq 0x4ce70(%rip), %rax     # 0x64aa0
movq (%rax), %rax
movq %rax, 0x50(%rbx)
movb $0x2f, %cl
subb 0x10(%rax), %cl
movzbl %cl, %eax
movl $0x17, %edi
btq %rax, %rbp
jae 0x17c4f
callq 0x58ff
movb $0x0, 0x58(%rbx)
movq 0x4ce46(%rip), %rax     # 0x64aa0
movq %rax, 0x20(%rbx)
cmpl $0x12, 0x4cbb7(%rip)    # 0x6481c
jne 0x17d46
callq 0xee5e
movq 0x50(%rbx), %rsi
movq 0x4ce25(%rip), %rax     # 0x64aa0
movq (%rax), %rdx
movq %r12, %rdi
callq 0x84c6
addq $-0x8, 0xa571a(%rip)    # 0xbd3a8
cmpb $0x0, (%rsp)
jne 0x17c9e
movl $0x18, %edi
callq 0x58ff
movq 0x20(%rbx), %rax
cmpl $0x20, 0x8(%rax)
jne 0x17d83
movq 0x4cded(%rip), %rcx     # 0x64aa0
cmpl $0x20, 0x8(%rcx)
jne 0x17d83
movq 0x10(%rax), %rsi
movq %r14, %rdi
callq 0x3c48
movq 0x4cdd0(%rip), %rax     # 0x64aa0
movq 0x10(%rax), %rsi
movq %r15, %rdi
callq 0x3c48
movq (%r14), %rcx
movq %rcx, %rax
andq %r13, %rax
movq %rax, (%r14)
movq (%r15), %rdx
movq %rdx, %rax
andq %r13, %rax
movq %rax, (%r15)
shlq $0x17, %rcx
sarq $0x17, %rcx
shlq $0x17, %rdx
sarq $0x17, %rdx
cmpq %rdx, %rcx
jle 0x17e3c
xorl %eax, %eax
jmp 0x17f35
movq 0x50(%rbx), %rsi
movq 0x4cd81(%rip), %rax     # 0x64aa0
movq (%rax), %rdx
movq %r12, %rdi
callq 0x84c6
addq $-0x8, 0xa5676(%rip)    # 0xbd3a8
cmpb $0x0, (%rsp)
movl $0x18, %edi
je 0x17c4a
jmp 0x17c4f
cmpl $0x20, 0x8(%rax)
jne 0x17dbf
movq 0x10(%rax), %rsi
movq %r14, %rdi
callq 0x3c48
movq (%rbx), %rax
movq 0x18(%rbx), %rcx
movb $0x2f, %dl
subb %cl, %dl
andq %r13, %rcx
movq %rcx, 0x18(%rbx)
btsq %rdx, %rax
movabsq $0xffffffffffff, %rcx   # imm = 0xFFFFFFFFFFFF
andq %rcx, %rax
movq %rax, (%rbx)
jmp 0x17f4b
movl $0x20, %edi
callq 0x3d77
movq %rax, 0x30(%rbx)
movq 0x4cc38(%rip), %rcx     # 0x649d0
movq %rcx, (%rax)
movq 0x30(%rbx), %rax
movl $0x1a, 0x8(%rax)
movq 0x20(%rbx), %rcx
movq %rcx, 0x10(%rax)
movq 0x4cceb(%rip), %rax     # 0x64aa0
movq 0x30(%rbx), %rcx
movq %rax, 0x18(%rcx)
jmp 0x17df6
movl $0x20, %edi
callq 0x3d77
movq %rax, 0x30(%rbx)
movq 0x4cbfc(%rip), %rcx     # 0x649d0
movq %rcx, (%rax)
movq 0x30(%rbx), %rax
movl $0x2d, 0x8(%rax)
movq 0x20(%rbx), %rcx
movq %rcx, 0x10(%rax)
movq 0x30(%rbx), %rax
movq $0x6d, 0x18(%rax)
movq 0x30(%rbx), %rax
movq %rax, 0x20(%rbx)
movl $0x20, %edi
callq 0x3d77
movq %rax, 0x4cc91(%rip)     # 0x64aa0
movq 0x4cbba(%rip), %rcx     # 0x649d0
movq %rcx, (%rax)
movq 0x4cc80(%rip), %rax     # 0x64aa0
movl $0x13, 0x8(%rax)
movq 0x28(%rbx), %rcx
movq %rcx, 0x10(%rax)
movq 0x20(%rbx), %rcx
movq %rcx, 0x18(%rax)
jmp 0x17f56
subq %rcx, %rdx
leaq 0x2(%rdx), %rax
andq $-0x2, %rax
movq %rcx, %xmm0
pshufd $0x44, %xmm0, %xmm3     # xmm3 = xmm0[0,1,0,1]
paddq 0x41b7(%rip), %xmm3     # 0x1c010
movq %rdx, %xmm0
pshufd $0x44, %xmm0, %xmm2     # xmm2 = xmm0[0,1,0,1]
xorpd %xmm1, %xmm1
movl $0x2, %ecx
movdqa 0x41ac(%rip), %xmm6     # 0x1c020
movdqa 0x41b4(%rip), %xmm7     # 0x1c030
movapd 0x41bb(%rip), %xmm8     # 0x1c040
movdqa 0x41c2(%rip), %xmm9     # 0x1c050
movapd %xmm1, %xmm0
movdqa %xmm6, %xmm1
psubq %xmm3, %xmm1
movdqa %xmm7, %xmm4
psllq %xmm1, %xmm4
pshufd $0xee, %xmm1, %xmm5     # xmm5 = xmm1[2,3,2,3]
movdqa %xmm7, %xmm1
psllq %xmm5, %xmm1
movsd %xmm4, %xmm1            # xmm1 = xmm4[0],xmm1[1]
andpd %xmm8, %xmm1
orpd %xmm0, %xmm1
paddq %xmm9, %xmm3
leaq (%rax,%rcx), %rdx
addq $-0x2, %rdx
addq $-0x2, %rcx
cmpq $0x2, %rdx
jne 0x17e8e
negq %rcx
movq %rcx, %xmm3
pshufd $0x44, %xmm3, %xmm3     # xmm3 = xmm3[0,1,0,1]
por 0x4128(%rip), %xmm3     # 0x1c010
movdqa 0x4170(%rip), %xmm4     # 0x1c060
pxor %xmm4, %xmm2
pxor %xmm4, %xmm3
movdqa %xmm3, %xmm4
pcmpgtd %xmm2, %xmm4
pshufd $0xa0, %xmm4, %xmm5     # xmm5 = xmm4[0,0,2,2]
pcmpeqd %xmm2, %xmm3
pshufd $0xf5, %xmm3, %xmm2     # xmm2 = xmm3[1,1,3,3]
pand %xmm5, %xmm2
pshufd $0xf5, %xmm4, %xmm3     # xmm3 = xmm4[1,1,3,3]
por %xmm2, %xmm3
andpd %xmm3, %xmm0
andnpd %xmm1, %xmm3
orpd %xmm0, %xmm3
pshufd $0xee, %xmm3, %xmm0     # xmm0 = xmm3[2,3,2,3]
por %xmm3, %xmm0
movq %xmm0, %rax
movq (%rbx), %rcx
movabsq $0xffffffffffff, %rdx   # imm = 0xFFFFFFFFFFFF
andq %rdx, %rcx
orq %rax, %rcx
movq %rcx, (%rbx)
movq 0x28(%rbx), %rax
movq %rax, 0x4cb4a(%rip)     # 0x64aa0
cmpl $0xe, 0x4c8bf(%rip)     # 0x6481c
je 0x17c16
movl $0xd, %edi
callq 0x83e7
movq 0x38(%rbx), %rax
movl $0x20, 0x8(%rax)
movq 0x4ca51(%rip), %rcx     # 0x649d0
movq %rcx, (%rax)
movq (%rbx), %rax
movq 0x38(%rbx), %rcx
movq %rax, 0x10(%rcx)
jmp 0x17ac9
movl $0xb, %edi
callq 0x58ff
movq 0x4caf5(%rip), %rax     # 0x64a98
movq %rax, 0x4caf6(%rip)     # 0x64aa0
jmp 0x17ac9
movq %rax, 0x40(%rbx)
leaq 0x4f8(%rsp), %rdi
callq 0x6f40
movq 0x40(%rbx), %rdi
cmpq $0x0, 0x8(%rdi)
movq 0x18(%rdi), %rax
je 0x18057
testq %rax, %rax
je 0x18072
movl 0x4c83a(%rip), %eax     # 0x6481c
cmpl $0x7, %eax
jne 0x18081
callq 0xf0de
jmp 0x17ac9
movl $0x17, %edi
jmp 0x17f97
movl $0x20, %edi
callq 0x3d77
movq %rax, 0x4ca93(%rip)     # 0x64aa0
movq 0x4c98c(%rip), %rcx     # 0x649a0
movq 0x18(%rcx), %rcx
movq %rcx, (%rax)
movq 0x4ca7e(%rip), %rax     # 0x64aa0
movl $0x20, 0x8(%rax)
movq 0x4c970(%rip), %rcx     # 0x649a0
cmpl $0x0, 0x20(%rcx)
je 0x18128
movq 0x30(%rcx), %rcx
movq %rcx, 0x10(%rax)
movq $0x0, 0x18(%rax)
leaq 0x668(%rsp), %rdi
jmp 0x17ac4
testq %rax, %rax
je 0x180a0
cmpl $0x7, 0x4c7b9(%rip)     # 0x6481c
jne 0x180a0
movq %rbx, %rdi
callq 0x19956
jmp 0x17ac9
cmpb $0x1, 0x8(%rbx)
jne 0x180a7
movl $0x26, 0x48(%rbx)
jmp 0x180b1
andl $-0x3, %eax
cmpl $0xc, %eax
jne 0x17feb
cmpb $0x0, 0x8(%rbx)
je 0x17feb
movl $0x27, 0x48(%rbx)
jmp 0x180b1
movl $0x2c, %edi
jmp 0x180ac
movl $0x44, %edi
callq 0x58ff
movl $0x20, %edi
callq 0x3d77
movq %rax, 0x4c9de(%rip)     # 0x64aa0
movl 0x4c754(%rip), %ecx     # 0x6481c
andl $-0x3, %ecx
cmpl $0xc, %ecx
jne 0x18147
movq 0x40(%rbx), %rcx
movq 0x18(%rcx), %rcx
movq %rcx, (%rax)
movl 0x48(%rbx), %eax
movq 0x4c9bb(%rip), %rcx     # 0x64aa0
movl %eax, 0x8(%rcx)
movq $0x0, 0x10(%rcx)
movq 0x40(%rbx), %rax
movq %rax, 0x18(%rcx)
jmp 0x17ac9
movl $0xc, %edi
callq 0x58ff
movl $0x4, %edi
callq 0x3110
movl $0x22b8, (%rax)         # imm = 0x22B8
movq 0xbe62(%rip), %rsi      # 0x23f80
movq %rax, %rdi
xorl %edx, %edx
callq 0x33f0
leaq 0x556b(%rip), %rdi      # 0x1d69a
leaq 0x553e(%rip), %rsi      # 0x1d674
leaq 0x556a(%rip), %rcx      # 0x1d6a7
movl $0x2d9, %edx            # imm = 0x2D9
callq 0x3170
movl $0x29, %edi
jmp 0x18102