Hi, Ian! Hi, everybody! Ian Thurlbeck wrote:
The following code core dumps during the set 'in' operation: [...] Any suggestions ? Of course I can always use the workaround.
This example program reproduces a long-known bug in a well-isolated form which enabled me to fix it eventually. (-: Patch enclosed. Thanks for tracking it down, 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/ --- setop.c.orig Sun Jul 26 21:47:29 1998 +++ setop.c Tue Dec 8 02:06:05 1998 @@ -182,13 +182,15 @@ static tree setop_rlo (lo0) tree lo0; { tree lo = CONV_INT (lo0); - return fold (build (MINUS_EXPR, integer_type_node, - lo, fold (build (TRUNC_MOD_EXPR, integer_type_node, - lo, WORD_IN_BITS)))); + tree result = fold (build (MINUS_EXPR, integer_type_node, + lo, fold (build (TRUNC_MOD_EXPR, integer_type_node, + lo, WORD_IN_BITS)))); + STRIP_NOPS (result); + return result; } /* Return the size of the set (number of elements it can have) */ /* unused */