usr.bin/dc/bcode.c

1022

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

usr.bin/dc/bcode.c

1042

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

usr.bin/dc/bcode.c

1067

r->scale = bmachine.scale;

usr.bin/dc/bcode.c

1105

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

usr.bin/dc/bcode.c

1111

normalize(b, scale + bmachine.scale);

usr.bin/dc/bcode.c

1142

rdiv->scale = bmachine.scale;

usr.bin/dc/bcode.c

1143

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

usr.bin/dc/bcode.c

1150

normalize(b, scale + bmachine.scale);

usr.bin/dc/bcode.c

1200

rscale = bmachine.scale;

usr.bin/dc/bcode.c

1207

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

usr.bin/dc/bcode.c

1304

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

usr.bin/dc/bcode.c

1523

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

usr.bin/dc/bcode.c

1551

if (bmachine.readsp < 2)

usr.bin/dc/bcode.c

1554

bmachine.readsp--;

usr.bin/dc/bcode.c

1556

bmachine.readsp--;

usr.bin/dc/bcode.c

1572

else if (bmachine.readsp < i)

usr.bin/dc/bcode.c

1577

bmachine.readsp--;

usr.bin/dc/bcode.c

1594

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

usr.bin/dc/bcode.c

1599

bmachine.readsp--;

usr.bin/dc/bcode.c

1634

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

usr.bin/dc/bcode.c

1662

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

usr.bin/dc/bcode.c

1663

bmachine.ibase));

usr.bin/dc/bcode.c

1669

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

usr.bin/dc/bcode.c

1678

if (bmachine.readsp > 0) {

usr.bin/dc/bcode.c

1683

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

usr.bin/dc/bcode.c

1688

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

usr.bin/dc/bcode.c

1689

size_t newsz = bmachine.readstack_sz * 2;

usr.bin/dc/bcode.c

1690

struct source *stack = bmachine.readstack;

usr.bin/dc/bcode.c

1694

bmachine.readstack_sz = newsz;

usr.bin/dc/bcode.c

1695

bmachine.readstack = stack;

usr.bin/dc/bcode.c

1697

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

usr.bin/dc/bcode.c

1731

if (bmachine.readsp == 0)

usr.bin/dc/bcode.c

1734

bmachine.readsp--;

usr.bin/dc/bcode.c

1737

if (bmachine.interrupted) {

usr.bin/dc/bcode.c

1738

if (bmachine.readsp > 0) {

usr.bin/dc/bcode.c

1740

bmachine.readsp--;

usr.bin/dc/bcode.c

1743

bmachine.interrupted = false;

usr.bin/dc/bcode.c

1747

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

usr.bin/dc/bcode.c

1748

bmachine.obase);

usr.bin/dc/bcode.c

1749

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

usr.bin/dc/bcode.c

1758

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

usr.bin/dc/bcode.c

1759

bmachine.obase);

usr.bin/dc/bcode.c

1760

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

usr.bin/dc/bcode.c

228

bmachine.interrupted = true;

usr.bin/dc/bcode.c

236

bmachine.extended_regs = extended_registers;

usr.bin/dc/bcode.c

237

bmachine.reg_array_size = bmachine.extended_regs ?

usr.bin/dc/bcode.c

240

bmachine.reg = calloc(bmachine.reg_array_size,

usr.bin/dc/bcode.c

241

sizeof(bmachine.reg[0]));

usr.bin/dc/bcode.c

242

if (bmachine.reg == NULL)

usr.bin/dc/bcode.c

250

stack_init(&bmachine.stack);

usr.bin/dc/bcode.c

252

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

usr.bin/dc/bcode.c

253

stack_init(&bmachine.reg[i]);

usr.bin/dc/bcode.c

255

bmachine.readstack_sz = READSTACK_SIZE;

usr.bin/dc/bcode.c

256

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

usr.bin/dc/bcode.c

257

bmachine.readstack_sz);

usr.bin/dc/bcode.c

258

if (bmachine.readstack == NULL)

usr.bin/dc/bcode.c

260

bmachine.obase = bmachine.ibase = 10;

usr.bin/dc/bcode.c

267

return bmachine.scale;

usr.bin/dc/bcode.c

274

bmachine.readsp = 0;

usr.bin/dc/bcode.c

275

bmachine.readstack[0] = *src;

usr.bin/dc/bcode.c

281

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

usr.bin/dc/bcode.c

289

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

usr.bin/dc/bcode.c

297

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

usr.bin/dc/bcode.c

305

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

usr.bin/dc/bcode.c

442

stack_pushnumber(&bmachine.stack, n);

usr.bin/dc/bcode.c

448

stack_pushstring(&bmachine.stack, string);

usr.bin/dc/bcode.c

454

stack_push(&bmachine.stack, v);

usr.bin/dc/bcode.c

460

return stack_tos(&bmachine.stack);

usr.bin/dc/bcode.c

466

return stack_pop(&bmachine.stack);

usr.bin/dc/bcode.c

472

return stack_popnumber(&bmachine.stack);

usr.bin/dc/bcode.c

478

return stack_popstring(&bmachine.stack);

usr.bin/dc/bcode.c

484

stack_clear(&bmachine.stack);

usr.bin/dc/bcode.c

490

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

usr.bin/dc/bcode.c

498

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

usr.bin/dc/bcode.c

510

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

usr.bin/dc/bcode.c

546

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

usr.bin/dc/bcode.c

55

static struct bmachine bmachine;

usr.bin/dc/bcode.c

555

stack_dup(&bmachine.stack);

usr.bin/dc/bcode.c

561

stack_swap(&bmachine.stack);

usr.bin/dc/bcode.c

578

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

usr.bin/dc/bcode.c

595

bmachine.scale = (u_int)scale;

usr.bin/dc/bcode.c

609

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

usr.bin/dc/bcode.c

623

bmachine.obase = (u_int)base;

usr.bin/dc/bcode.c

636

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

usr.bin/dc/bcode.c

650

bmachine.ibase = (u_int)base;

usr.bin/dc/bcode.c

664

i = stack_size(&bmachine.stack);

usr.bin/dc/bcode.c

783

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

usr.bin/dc/bcode.c

792

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

usr.bin/dc/bcode.c

808

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

usr.bin/dc/bcode.c

830

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

usr.bin/dc/bcode.c

843

stack = &bmachine.reg[idx];

usr.bin/dc/bcode.c

867

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

usr.bin/dc/bcode.c

891

stack = &bmachine.reg[reg];

usr.bin/dc/bcode.c

932

stack = &bmachine.reg[reg];

usr.bin/dc/bcode.c

942

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