sam.littlewood@quantel.com wrote:
Has anyone a fix for this rather curious bug? - it seems subranges, packed records and VAR arguments conspire to make the compiler throw a bogus error!?
Now I have one. One single line. Well hidden. It took me much longer than I had expected, sorry. Peter -- Peter Gerwinski, Essen, Germany, http://home.pages.de/~Peter.Gerwinski/ Maintainer GNU Pascal - http://home.pages.de/~GNU-Pascal/ - gpc-980830 PGP key on request - 6C 94 45 BE 28 A4 96 - 0E CC E9 12 47 25 82 75 Fight the SPAM and UBE! - http://spam.abuse.net/ - http://maps.vix.com/ 8< --------------------------------------------------------------------- --- gpc-old/p/types.c Mon Nov 2 00:28:41 1998 +++ gpc/p/types.c Mon Nov 16 21:45:01 1998 @@ -1414,11 +1426,10 @@ { max_bits++; check >>= 1; } } - TREE_UNSIGNED (type) = 1; return build_int_2 (min_bits > max_bits ? min_bits : max_bits, 0); } else { int min_bits = 0, max_bits = 0;