pike.git/ src/ operators.c

1997-08-30

1997-08-30 18:36:28 by Henrik Grubbström (Grubba) <grubba@grubba.org>

• be478cedfef66680490ddcbc1a4ef1f5f8039e5f (33 lines) (+17/-16) ^{[ Show | Annotate ]}
  Branch: 7.9

Fixed prototypes almost everywhere.

Rev: src/acconfig.h:1.9
Rev: src/array.c:1.12
Rev: src/array.h:1.4
Rev: src/backend.c:1.15
Rev: src/backend.h:1.3
Rev: src/builtin_functions.c:1.41
Rev: src/builtin_functions.h:1.4
Rev: src/callback.c:1.9
Rev: src/callback.h:1.4
Rev: src/constants.c:1.12
Rev: src/constants.h:1.5
Rev: src/docode.c:1.20
Rev: src/docode.h:1.3
Rev: src/dynamic_load.c:1.19
Rev: src/dynamic_load.h:1.2
Rev: src/error.c:1.8
Rev: src/error.h:1.6
Rev: src/gc.c:1.12
Rev: src/gc.h:1.10
Rev: src/hashtable.c:1.3
Rev: src/hashtable.h:1.4
Rev: src/interpret.c:1.45
Rev: src/interpret.h:1.12
Rev: src/language.yacc:1.46
Rev: src/las.c:1.36
Rev: src/las.h:1.8
Rev: src/lex.c:1.26
Rev: src/lex.h:1.5
Rev: src/main.c:1.23
Rev: src/mapping.c:1.21
Rev: src/mapping.h:1.4
Rev: src/modules/Gdbm/gdbmmod.c:1.4
Rev: src/modules/Gmp/mpz_glue.c:1.20
Rev: src/modules/Image/image.c:1.36
Rev: src/modules/Image/polyfill.c:1.5
Rev: src/modules/Mysql/mysql.c:1.6
Rev: src/modules/Pipe/pipe.c:1.11
Rev: src/modules/Regexp/glue.c:1.7
Rev: src/modules/Regexp/pike_regexp.c:1.5
Rev: src/modules/Ssleay/ssleay.c:1.7
Rev: src/modules/Yp/yp.c:1.8
Rev: src/modules/_Crypto/lib/desQuick.c:1.3
Rev: src/modules/call_out/call_out.c:1.13
Rev: src/modules/files/efuns.c:1.33
Rev: src/modules/files/file.c:1.51
Rev: src/modules/files/file.h:1.5
Rev: src/modules/files/socket.c:1.14
Rev: src/modules/math/math.c:1.5
Rev: src/modules/spider/accesseddb.c:1.10
Rev: src/modules/spider/dumudp.c:1.14
Rev: src/modules/spider/spider.c:1.39
Rev: src/modules/spider/streamed_parser.c:1.7
Rev: src/modules/spider/streamed_parser.h:1.2
Rev: src/multiset.c:1.7
Rev: src/multiset.h:1.3
Rev: src/object.c:1.21
Rev: src/object.h:1.11
Rev: src/opcodes.c:1.8
Rev: src/opcodes.h:1.3
Rev: src/operators.c:1.16
Rev: src/operators.h:1.3
Rev: src/peep.c:1.15
Rev: src/peep.h:1.3
Rev: src/pike_types.c:1.25
Rev: src/pike_types.h:1.5
Rev: src/program.c:1.37
Rev: src/program.h:1.18
Rev: src/rusage.c:1.8
Rev: src/rusage.h:1.2
Rev: src/signal_handler.c:1.14
Rev: src/signal_handler.h:1.3
Rev: src/stralloc.c:1.17
Rev: src/stralloc.h:1.9
Rev: src/svalue.c:1.14
Rev: src/threads.c:1.24
Rev: src/threads.h:1.12

5:   \*/   #include <math.h>   #include "global.h" - RCSID("$Id: operators.c,v 1.15 1997/05/19 23:31:04 hubbe Exp $"); + RCSID("$Id: operators.c,v 1.16 1997/08/30 18:35:48 grubba Exp $");   #include "interpret.h"   #include "svalue.h"   #include "multiset.h"
333:    return 0;   }    - static int float_promote() + static int float_promote(void)   {    if(sp[-2].type==T_INT)    {
350:    return sp[-2].type == sp[-1].type;   }    - void o_subtract() + void o_subtract(void)   {    if (sp[-2].type != sp[-1].type &&    !float_promote() &&
449:    return 0;   }    - void o_and() + void o_and(void)   {    if(sp[-1].type != sp[-2].type &&    sp[-2].type != T_OBJECT)
585:    }   }    - void o_or() + void o_or(void)   {    if(sp[-1].type != sp[-2].type &&    sp[-2].type != T_OBJECT)
686:   }       - void o_xor() + void o_xor(void)   {    if(sp[-1].type != sp[-2].type &&    sp[-2].type != T_OBJECT)
786:    }   }    - void o_lsh() + void o_lsh(void)   {    if(sp[-2].type != T_INT)    {
821:    return 0;   }    - void o_rsh() + void o_rsh(void)   {    if(sp[-2].type != T_INT)    {
857:         #define TWO_TYPES(X,Y) (((X)<<8)|(Y)) - void o_multiply() + void o_multiply(void)   {    switch(TWO_TYPES(sp[-2].type,sp[-1].type))    {
950:    }   }    - void o_divide() + void o_divide(void)   {    if(sp[-2].type!=sp[-1].type &&    !float_promote() &&
1028:    return 0;   }    - void o_mod() + void o_mod(void)   {    if(sp[-2].type != sp[-1].type &&    !float_promote() &&
1096:    return 0;   }    - void o_not() + void o_not(void)   {    switch(sp[-1].type)    {
1140:    return 0;   }    - void o_compl() + void o_compl(void)   {    switch(sp[-1].type)    {
1192:    return 0;   }    - void o_negate() + void o_negate(void)   {    switch(sp[-1].type)    {
1213:    }   }    - void o_range() + void o_range(void)   {    INT32 from,to;   
1339:    return 1;   }    - void init_operators() + void init_operators(void)   {    add_efun2("`[]",f_index,    "function(string,int:int)|function(object,string:mixed)|function(array,int:mixed)|function(mapping,mixed:mixed)|function(multiset,mixed:int)|function(string,int,int:string)|function(array,int,int:array)",OPT_TRY_OPTIMIZE,0,0);