Branch: Tag:

2001-02-20

2001-02-20 13:02:12 by Henrik Grubbström (Grubba) <grubba@grubba.org>

Various f_cast()-related fixes.

Rev: src/interpret_functions.h:1.47
Rev: src/module_support.c:1.40
Rev: src/modules/Gmp/mpz_glue.c:1.88
Rev: src/modules/files/file.c:1.212
Rev: src/opcodes.c:1.100
Rev: src/operators.c:1.124

4:   ||| See the files COPYING and DISCLAIMER for more information.   \*/   #include "global.h" - RCSID("$Id: mpz_glue.c,v 1.87 2001/02/04 11:40:35 hubbe Exp $"); + RCSID("$Id: mpz_glue.c,v 1.88 2001/02/20 13:02:12 grubba Exp $");   #include "gmp_machine.h"      #if defined(HAVE_GMP2_GMP_H) && defined(HAVE_LIBGMP2)
1228:    struct object *res = NULL;    if (args != 1)    Pike_error("Wrong number of arguments to Gmp.mpz->`<<.\n"); -  ref_push_string(int_type_string); +  ref_push_type_value(int_type_string);    stack_swap();    f_cast();    if(sp[-1].u.integer < 0)
1244:    struct object *res = NULL;    if (args != 1)    Pike_error("Wrong number of arguments to Gmp.mpz->`>>.\n"); -  ref_push_string(int_type_string); +  ref_push_type_value(int_type_string);    stack_swap();    f_cast();    if (sp[-1].u.integer < 0)