Emil Jerabek wrote:
the newest GPC release (with 3.2.1 backend) crashes on the program below:
program foo;
var v : 0 .. maxint; d : integer;
begin v := (v mod d) * 32768; end.
(emil24.pas)
--- p/gpc-common.c.orig Thu Feb 13 01:47:31 2003 +++ p/gpc-common.c Thu Feb 13 02:20:54 2003 @@ -1284,7 +1284,9 @@ else temp = build (COND_EXPR, TREE_TYPE (temp), build_pascal_binary_op (LE_EXPR, exp2, integer_zero_node), - build_rts_call (p_ModRangeError, NULL_TREE), + build (COMPOUND_EXPR, TREE_TYPE (temp), + build_rts_call (p_ModRangeError, NULL_TREE), + integer_zero_node), temp); return temp; }
Frank