pike.git/ src/ language.yacc

2003-01-26

2003-01-26 11:09:01 by Mirar (Pontus Hagland) <pike@sort.mirar.org>

• 69aa4bd9c5673583664fecd1b83f5bf008111c49 (19 lines) (+10/-9) ^{[ Show | Annotate ]}
  Branch: 7.9

Some more work to get INT_TYPE long long to work:
use INT_TYPE instead of INT32 when we use/make the Pike int type
Use PRINTPIKEINT when we sprintf-format it

Rev: src/builtin.cmod:1.109
Rev: src/builtin_functions.c:1.464
Rev: src/encode.c:1.162
Rev: src/global.h:1.78
Rev: src/language.yacc:1.313
Rev: src/las.c:1.322
Rev: src/las.h:1.60
Rev: src/pike_types.c:1.205
Rev: src/pike_types.h:1.84
Rev: src/threads.c:1.198

2:   || This file is part of Pike. For copyright information see COPYRIGHT.   || Pike is distributed under GPL, LGPL and MPL. See the file COPYING   || for more information. - || $Id: language.yacc,v 1.312 2003/01/13 15:04:59 grubba Exp $ + || $Id: language.yacc,v 1.313 2003/01/26 11:09:00 mirar Exp $   */      %pure_parser
113:   /* This is the grammar definition of Pike. */      #include "global.h" - RCSID("$Id: language.yacc,v 1.312 2003/01/13 15:04:59 grubba Exp $"); + RCSID("$Id: language.yacc,v 1.313 2003/01/26 11:09:00 mirar Exp $");   #ifdef HAVE_MEMORY_H   #include <memory.h>   #endif
1316:      number_or_maxint: /* Empty */    { -  $$ = mkintnode(MAX_INT32); +  $$ = mkintnode(MAX_INT_TYPE);    }    | TOK_NUMBER    | '-' TOK_NUMBER
1333:      number_or_minint: /* Empty */    { -  $$ = mkintnode(MIN_INT32); +  $$ = mkintnode(MIN_INT_TYPE);    }    | TOK_NUMBER    | '-' TOK_NUMBER
1357:      opt_int_range: /* Empty */    { -  push_int_type(MIN_INT32, MAX_INT32); +  push_int_type(MIN_INT_TYPE, MAX_INT_TYPE);    }    | '(' number_or_minint expected_dot_dot number_or_maxint ')'    { -  INT32 min = MIN_INT32; -  INT32 max = MAX_INT32; +  INT_TYPE min = MIN_INT_TYPE; +  INT_TYPE max = MAX_INT_TYPE;       /* FIXME: Check that $4 is >= $2. */    if($4->token == F_CONSTANT) {
1372:    } else if (is_bignum_object_in_svalue(&$4->u.sval)) {    push_int(0);    if (is_lt(&$4->u.sval, Pike_sp-1)) { -  max = MIN_INT32; +  max = MIN_INT_TYPE;    }    pop_stack();   #endif /* AUTO_BIGNUM */
1386:    } else if (is_bignum_object_in_svalue(&$2->u.sval)) {    push_int(0);    if (is_lt(Pike_sp-1, &$2->u.sval)) { -  min = MAX_INT32; +  min = MAX_INT_TYPE;    }    pop_stack();   #endif /* AUTO_BIGNUM */