Branch: Tag:

2001-03-04

2001-03-04 19:27:20 by Mirar (Pontus Hagland) <pike@sort.mirar.org>

more fixes to support INT_TYPE > INT32

Rev: src/acconfig.h:1.81
Rev: src/configure.in:1.495
Rev: src/error.c:1.70
Rev: src/interpret.c:1.188
Rev: src/interpret.h:1.78
Rev: src/modules/Gmp/mpz_glue.c:1.90
Rev: src/modules/Image/colors.c:1.46
Rev: src/modules/sprintf/acconfig.h:1.3
Rev: src/modules/sprintf/configure.in:1.8
Rev: src/modules/sprintf/sprintf.c:1.77
Rev: src/opcodes.c:1.103
Rev: src/operators.c:1.129
Rev: src/svalue.c:1.99

5:   \*/      /* -  * $Id: interpret.h,v 1.77 2001/02/19 23:49:59 grubba Exp $ +  * $Id: interpret.h,v 1.78 2001/03/04 19:27:18 mirar Exp $    */   #ifndef INTERPRET_H   #define INTERPRET_H
146:    pop_n_elems(X); } while (0)      #define push_program(P) do{ struct program *_=(P); debug_malloc_touch(_); Pike_sp->u.program=_; Pike_sp++->type=PIKE_T_PROGRAM; }while(0) - #define push_int(I) do{ INT32 _=(I); Pike_sp->u.integer=_;Pike_sp->type=PIKE_T_INT;Pike_sp++->subtype=NUMBER_NUMBER; }while(0) + #define push_int(I) do{ INT_TYPE _=(I); Pike_sp->u.integer=_;Pike_sp->type=PIKE_T_INT;Pike_sp++->subtype=NUMBER_NUMBER; }while(0)   #define push_mapping(M) do{ struct mapping *_=(M); debug_malloc_touch(_); Pike_sp->u.mapping=_; Pike_sp++->type=PIKE_T_MAPPING; }while(0)   #define push_array(A) do{ struct array *_=(A); debug_malloc_touch(_); Pike_sp->u.array=_ ;Pike_sp++->type=PIKE_T_ARRAY; }while(0)   #define push_multiset(L) do{ struct multiset *_=(L); debug_malloc_touch(_); Pike_sp->u.multiset=_; Pike_sp++->type=PIKE_T_MULTISET; }while(0)