Added some C support

1990-09-14 14:37:26 +00:00
parent 4900ad0743
commit 5f592dd6bd
12 changed files with 520 additions and 27 deletions
--- a/util/grind/tree.c
+++ b/util/grind/tree.c
@@ -214,7 +214,7 @@ print_node(p, top_level)
 	fprintf(db_out, currlang->decint_fmt, p->t_ival);
 	break;
  case OP_STRING:
-	(*currlang->printstring)(p->t_sval);
+	(*currlang->printstring)(p->t_sval, strlen(p->t_sval));
 	break;
  case OP_REAL:
 	fprintf(db_out, currlang->real_fmt, p->t_fval);