Commit d53714f2 authored by anton's avatar anton

minor bugfixes

parent 1f428287
......@@ -144,7 +144,7 @@ void print_block(FILE *file, block_count *b)
size_t i,j,k;
for (i=2; i<12; i++)
for (j=0; i+j<b->ninsts; j++) {
for (j=0; i+j<=b->ninsts; j++) {
fprintf(file,"%14lld\t",b->count);
for (k=j; k<i+j; k++)
fprintf(file, "%s ", b->insts[k]);
......
......@@ -1167,7 +1167,7 @@ Variable c-flag
)) <- simple-primitive ( -- )
(( {{ init-combined }}
` = (( white ++ {{ start }} forth-ident {{ end add-prim }} )) ++
` = white ** (( {{ start }} forth-ident {{ end add-prim }} white ** )) ++
nleof {{ process-combined }}
)) <- combined-primitive
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment