From a94e7b877a1346212f03a95f6ab2bc7823dbd0f8 Mon Sep 17 00:00:00 2001 From: ceriel Date: Wed, 24 Oct 1990 16:46:46 +0000 Subject: [PATCH] corrected subrange handling: char type was not recognized --- util/grind/dbx_string.g | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/util/grind/dbx_string.g b/util/grind/dbx_string.g index 5ce2258c6..4a181b666 100644 --- a/util/grind/dbx_string.g +++ b/util/grind/dbx_string.g @@ -314,6 +314,7 @@ type(p_type *ptp; int *type_index; p_symbol sy;) long ic1, ic2; int A_used = 0; int tclass; + int tp_index[2]; char *str; } : @@ -355,7 +356,7 @@ type(p_type *ptp; int *type_index; p_symbol sy;) * integer_const. * Upperbound -1 means unsigned int or unsigned long. */ - 'r' type_name(&t1, (p_symbol) 0) ';' + 'r' type_index(tp_index) ';' [ 'A' integer_const(&ic1) { A_used = 1; } | integer_const(&ic1) ] @@ -365,7 +366,7 @@ type(p_type *ptp; int *type_index; p_symbol sy;) ] { if (tp != *ptp) free_type(tp); tp = subrange_type(A_used, - last_index, + tp_index, ic1, ic2, type_index); -- 2.34.1