usr.bin/dc/bcode.c

1017

if (rscale > bmachine.scale && rscale > ascale && rscale > bscale)

usr.bin/dc/bcode.c

1038

bmul_number(r, a, b, bmachine.scale);

usr.bin/dc/bcode.c

1064

r->scale = bmachine.scale;

usr.bin/dc/bcode.c

1103

r->scale = max(b->scale, a->scale + bmachine.scale);

usr.bin/dc/bcode.c

1109

normalize(b, scale + bmachine.scale);

usr.bin/dc/bcode.c

1141

rdiv->scale = bmachine.scale;

usr.bin/dc/bcode.c

1142

rmod->scale = max(b->scale, a->scale + bmachine.scale);

usr.bin/dc/bcode.c

1149

normalize(b, scale + bmachine.scale);

usr.bin/dc/bcode.c

1199

rscale = bmachine.scale;

usr.bin/dc/bcode.c

1206

m = max(a->scale, bmachine.scale);

usr.bin/dc/bcode.c

1304

scale = max(bmachine.scale, n->scale);

usr.bin/dc/bcode.c

1527

v = stack_tos(&bmachine.reg[index]);

usr.bin/dc/bcode.c

1556

if (bmachine.readsp < 2)

usr.bin/dc/bcode.c

1559

bmachine.readsp--;

usr.bin/dc/bcode.c

1561

bmachine.readsp--;

usr.bin/dc/bcode.c

1577

else if (bmachine.readsp < i)

usr.bin/dc/bcode.c

1582

bmachine.readsp--;

usr.bin/dc/bcode.c

1599

else if (i > 0 && bmachine.readsp < i)

usr.bin/dc/bcode.c

1604

bmachine.readsp--;

usr.bin/dc/bcode.c

1639

free(read_string(&bmachine.readstack[bmachine.readsp]));

usr.bin/dc/bcode.c

1667

push_number(readnumber(&bmachine.readstack[bmachine.readsp],

usr.bin/dc/bcode.c

1668

bmachine.ibase));

usr.bin/dc/bcode.c

1674

int ch = bmachine.readstack[bmachine.readsp].lastchar;

usr.bin/dc/bcode.c

1683

if (bmachine.readsp > 0) {

usr.bin/dc/bcode.c

1688

src_setstring(&bmachine.readstack[bmachine.readsp], p);

usr.bin/dc/bcode.c

1693

if (bmachine.readsp == bmachine.readstack_sz - 1) {

usr.bin/dc/bcode.c

1694

size_t newsz = bmachine.readstack_sz * 2;

usr.bin/dc/bcode.c

1696

stack = realloc(bmachine.readstack, newsz *

usr.bin/dc/bcode.c

1700

bmachine.readstack_sz = newsz;

usr.bin/dc/bcode.c

1701

bmachine.readstack = stack;

usr.bin/dc/bcode.c

1703

src_setstring(&bmachine.readstack[++bmachine.readsp], p);

usr.bin/dc/bcode.c

1738

if (bmachine.readsp == 0)

usr.bin/dc/bcode.c

1741

bmachine.readsp--;

usr.bin/dc/bcode.c

1744

if (bmachine.interrupted) {

usr.bin/dc/bcode.c

1745

if (bmachine.readsp > 0) {

usr.bin/dc/bcode.c

1747

bmachine.readsp--;

usr.bin/dc/bcode.c

1750

bmachine.interrupted = false;

usr.bin/dc/bcode.c

1754

stack_print(stderr, &bmachine.stack, "* ",

usr.bin/dc/bcode.c

1755

bmachine.obase);

usr.bin/dc/bcode.c

1756

fprintf(stderr, "%zd =>\n", bmachine.readsp);

usr.bin/dc/bcode.c

1765

stack_print(stderr, &bmachine.stack, "* ",

usr.bin/dc/bcode.c

1766

bmachine.obase);

usr.bin/dc/bcode.c

1767

fprintf(stderr, "%zd ==\n", bmachine.readsp);

usr.bin/dc/bcode.c

226

bmachine.interrupted = true;

usr.bin/dc/bcode.c

234

bmachine.extended_regs = extended_registers;

usr.bin/dc/bcode.c

235

bmachine.reg_array_size = bmachine.extended_regs ?

usr.bin/dc/bcode.c

238

bmachine.reg = calloc(bmachine.reg_array_size,

usr.bin/dc/bcode.c

239

sizeof(bmachine.reg[0]));

usr.bin/dc/bcode.c

240

if (bmachine.reg == NULL)

usr.bin/dc/bcode.c

248

stack_init(&bmachine.stack);

usr.bin/dc/bcode.c

250

for (i = 0; i < bmachine.reg_array_size; i++)

usr.bin/dc/bcode.c

251

stack_init(&bmachine.reg[i]);

usr.bin/dc/bcode.c

253

bmachine.readstack_sz = READSTACK_SIZE;

usr.bin/dc/bcode.c

254

bmachine.readstack = calloc(sizeof(struct source),

usr.bin/dc/bcode.c

255

bmachine.readstack_sz);

usr.bin/dc/bcode.c

256

if (bmachine.readstack == NULL)

usr.bin/dc/bcode.c

258

bmachine.obase = bmachine.ibase = 10;

usr.bin/dc/bcode.c

265

return bmachine.scale;

usr.bin/dc/bcode.c

272

bmachine.readsp = 0;

usr.bin/dc/bcode.c

273

bmachine.readstack[0] = *src;

usr.bin/dc/bcode.c

279

struct source *src = &bmachine.readstack[bmachine.readsp];

usr.bin/dc/bcode.c

287

struct source *src = &bmachine.readstack[bmachine.readsp];

usr.bin/dc/bcode.c

295

struct source *src = &bmachine.readstack[bmachine.readsp];

usr.bin/dc/bcode.c

303

struct source *src = &bmachine.readstack[bmachine.readsp];

usr.bin/dc/bcode.c

440

stack_pushnumber(&bmachine.stack, n);

usr.bin/dc/bcode.c

446

stack_pushstring(&bmachine.stack, string);

usr.bin/dc/bcode.c

452

stack_push(&bmachine.stack, v);

usr.bin/dc/bcode.c

458

return stack_tos(&bmachine.stack);

usr.bin/dc/bcode.c

464

return stack_pop(&bmachine.stack);

usr.bin/dc/bcode.c

470

return stack_popnumber(&bmachine.stack);

usr.bin/dc/bcode.c

476

return stack_popstring(&bmachine.stack);

usr.bin/dc/bcode.c

482

stack_clear(&bmachine.stack);

usr.bin/dc/bcode.c

488

stack_print(stdout, &bmachine.stack, "", bmachine.obase);

usr.bin/dc/bcode.c

496

print_value(stdout, value, "", bmachine.obase);

usr.bin/dc/bcode.c

532

print_value(stdout, value, "", bmachine.obase);

usr.bin/dc/bcode.c

541

stack_dup(&bmachine.stack);

usr.bin/dc/bcode.c

547

stack_swap(&bmachine.stack);

usr.bin/dc/bcode.c

55

static struct bmachine bmachine;

usr.bin/dc/bcode.c

564

bn_check(BN_set_word(n->number, bmachine.scale));

usr.bin/dc/bcode.c

581

bmachine.scale = (u_int)scale;

usr.bin/dc/bcode.c

595

bn_check(BN_set_word(n->number, bmachine.obase));

usr.bin/dc/bcode.c

609

bmachine.obase = (u_int)base;

usr.bin/dc/bcode.c

622

bn_check(BN_set_word(n->number, bmachine.ibase));

usr.bin/dc/bcode.c

636

bmachine.ibase = (u_int)base;

usr.bin/dc/bcode.c

650

i = stack_size(&bmachine.stack);

usr.bin/dc/bcode.c

769

if (index == 0xff && bmachine.extended_regs) {

usr.bin/dc/bcode.c

778

if (index < 0 || index >= bmachine.reg_array_size) {

usr.bin/dc/bcode.c

794

v = stack_tos(&bmachine.reg[index]);

usr.bin/dc/bcode.c

816

stack_set_tos(&bmachine.reg[index], val);

usr.bin/dc/bcode.c

829

stack = &bmachine.reg[index];

usr.bin/dc/bcode.c

853

stack_push(&bmachine.reg[index], value);

usr.bin/dc/bcode.c

877

stack = &bmachine.reg[reg];

usr.bin/dc/bcode.c

918

stack = &bmachine.reg[reg];

usr.bin/dc/bcode.c

928

push_string(read_string(&bmachine.readstack[bmachine.readsp]));