Branch: Tag:

1998-02-20

1998-02-20 00:51:16 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

cast changed

Rev: src/docode.c:1.31
Rev: src/modules/Gmp/mpz_glue.c:1.30
Rev: src/opcodes.c:1.12

4:   ||| See the files COPYING and DISCLAIMER for more information.   \*/   #include "global.h" - RCSID("$Id: mpz_glue.c,v 1.29 1998/02/11 05:23:44 nisse Exp $"); + RCSID("$Id: mpz_glue.c,v 1.30 1998/02/20 00:51:16 hubbe Exp $");   #include "gmp_machine.h"      #if !defined(HAVE_LIBGMP)
737:    if (args != 1)    error("Wrong number of arguments to Gmp.mpz->`<<.\n");    ref_push_string(int_type_string); +  stack_swap();    f_cast();    if(sp[-1].u.integer < 0)    error("mpz->lsh on negative number.\n");
752:    if (args != 1)    error("Wrong number of arguments to Gmp.mpz->`>>.\n");    ref_push_string(int_type_string); +  stack_swap();    f_cast();    if (sp[-1].u.integer < 0)    error("Gmp.mpz->rsh: Shift count must be positive.\n");