8 Dec
1998
8 Dec
'98
1:33 a.m.
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 */