Re: GPC BUG: Enum variable cannot be used in set iteration for loop

-- Peter Gerwinski, Essen, Germany, http://home.pages.de/~Peter.Gerwinski/ Maintainer GNU Pascal - http://home.pages.de/~GNU-Pascal/ - gpc-19990118 PGP key on request - 6C 94 45 BE 28 A4 96 - 0E CC E9 12 47 25 82 75 *** Vote against SPAM! ********* http://www.politik-digital.de/spam/ *** --- parse.y.orig Sun Jun 13 10:56:02 1999 +++ parse.y Thu Jun 17 00:28:11 1999 @@ -4744,8 +4744,8 @@ set_domain = TYPE_DOMAIN (TREE_TYPE ($4)); else set_domain = TREE_TYPE ($4); - for_l_bound = TYPE_MIN_VALUE (set_domain); - for_u_bound = TYPE_MAX_VALUE (set_domain); + for_l_bound = convert (TREE_TYPE (TREE_TYPE ($4)), TYPE_MIN_VALUE (set_domain)); + for_u_bound = convert (TREE_TYPE (TREE_TYPE ($4)), TYPE_MAX_VALUE (set_domain)); $<ttype>$ = for_u_bound; set_var = make_new_variable ("for_set", TREE_TYPE ($4)); expand_expr_stmt (build_modify_expr (set_var,