Return to main.c CVS log | Up to [gforth] / gforth / engine |
version 1.79, 2002/12/19 20:43:26 | version 1.80, 2002/12/19 23:22:19 |
---|---|
Line 893 void compile_prim1(Cell *start) | Line 893 void compile_prim1(Cell *start) |
Label compile_prim(Label prim) | Label compile_prim(Label prim) |
{ | { |
Cell x=(Cell)prim; | Cell x=(Cell)prim; |
assert(0); | |
compile_prim1(&x); | compile_prim1(&x); |
return (Label)x; | return (Label)x; |
} | } |