program.c (175a4d10428e1c2f26f1426003757daf25d4726f) program.c (76238846ad3e9e271a3d1f792f72beab727fd153)
1/*
2 * *****************************************************************************
3 *
4 * SPDX-License-Identifier: BSD-2-Clause
5 *
6 * Copyright (c) 2018-2023 Gavin D. Howard and contributors.
7 *
8 * Redistribution and use in source and binary forms, with or without

--- 2689 unchanged lines hidden (view full) ---

2698 // Make sure the instruction is valid.
2699#if DC_ENABLED
2700 assert((inst >= BC_INST_LINE_LENGTH && inst <= BC_INST_LEADING_ZERO) ||
2701 (BC_IS_DC && inst == BC_INST_EXTENDED_REGISTERS));
2702#else // DC_ENABLED
2703 assert(inst >= BC_INST_LINE_LENGTH && inst <= BC_INST_LEADING_ZERO);
2704#endif // DC_ENABLED
2705
1/*
2 * *****************************************************************************
3 *
4 * SPDX-License-Identifier: BSD-2-Clause
5 *
6 * Copyright (c) 2018-2023 Gavin D. Howard and contributors.
7 *
8 * Redistribution and use in source and binary forms, with or without

--- 2689 unchanged lines hidden (view full) ---

2698 // Make sure the instruction is valid.
2699#if DC_ENABLED
2700 assert((inst >= BC_INST_LINE_LENGTH && inst <= BC_INST_LEADING_ZERO) ||
2701 (BC_IS_DC && inst == BC_INST_EXTENDED_REGISTERS));
2702#else // DC_ENABLED
2703 assert(inst >= BC_INST_LINE_LENGTH && inst <= BC_INST_LEADING_ZERO);
2704#endif // DC_ENABLED
2705
2706 if (inst == BC_INST_LINE_LENGTH) val = (BcBigDig) vm->line_len;
2706 if (inst == BC_INST_LINE_LENGTH)
2707 {
2708 val = (BcBigDig) vm->line_len;
2709 }
2707#if BC_ENABLED
2710#if BC_ENABLED
2708 else if (inst == BC_INST_GLOBAL_STACKS) val = (BC_G != 0);
2711 else if (inst == BC_INST_GLOBAL_STACKS)
2712 {
2713 val = (BC_G != 0);
2714 }
2709#endif // BC_ENABLED
2710#if DC_ENABLED
2715#endif // BC_ENABLED
2716#if DC_ENABLED
2711 else if (inst == BC_INST_EXTENDED_REGISTERS) val = (DC_X != 0);
2717 else if (inst == BC_INST_EXTENDED_REGISTERS)
2718 {
2719 val = (DC_X != 0);
2720 }
2712#endif // DC_ENABLED
2713 else val = (BC_Z != 0);
2714
2715 // Push the global.
2716 bc_program_pushBigdig(p, val, BC_RESULT_TEMP);
2717}
2718
2719#if BC_ENABLE_EXTRA_MATH

--- 1116 unchanged lines hidden ---
2721#endif // DC_ENABLED
2722 else val = (BC_Z != 0);
2723
2724 // Push the global.
2725 bc_program_pushBigdig(p, val, BC_RESULT_TEMP);
2726}
2727
2728#if BC_ENABLE_EXTRA_MATH

--- 1116 unchanged lines hidden ---