tocariimaa/pila
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

always print stack length

Browse source
This commit is contained in:
tocariimaa 2025-02-04 15:07:07 -03:00
parent 31eba14753
commit 399ef3ab48
1 changed files with 9 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
pila.c
View file

@ -303,17 +303,18 @@ print_value(RpnState *st, Value val, bool reader_fmt)
void void
stack_contents_nat(RpnState *st) stack_contents_nat(RpnState *st)
{ {
printf("<%lu> ", st->sp);
if (st->sp == 0) { if (st->sp == 0) {
puts("<empty stack>");
} else {
printf("<%lu> ", st->sp);
for (isize i = 0; i < st->sp; ++i) {
Value val = st->data_stack[i];
print_value(st, val, true);
putchar(' ');
}
putchar('\n'); putchar('\n');
return;
} }
for (isize i = 0; i < st->sp; ++i) {
Value val = st->data_stack[i];
print_value(st, val, true);
putchar(' ');
}
putchar('\n');
} }
void void