pike.git/ src/ operators.c

2001-02-20

2001-02-20 15:59:51 by Henrik Grubbström (Grubba) <grubba@grubba.org>

• 3611420a8d6bdffcb0742c5ad3d4250f2c6f6e5e (55 lines) (+15/-40) ^{[ Show | Annotate ]}
  Branch: 7.9

Made push_type_int{,_backwards}() static.
Introduced push_int_type() and push_object_type{,_backwards}().

Rev: src/builtin_functions.c:1.344
Rev: src/encode.c:1.82
Rev: src/language.yacc:1.225
Rev: src/operators.c:1.125
Rev: src/pike_types.c:1.148
Rev: src/pike_types.h:1.49
Rev: src/svalue.c:1.94

6:   /**/   #include "global.h"   #include <math.h> - RCSID("$Id: operators.c,v 1.124 2001/02/20 13:02:12 grubba Exp $"); + RCSID("$Id: operators.c,v 1.125 2001/02/20 15:59:49 grubba Exp $");   #include "interpret.h"   #include "svalue.h"   #include "multiset.h"
1091:    SIMPLE_BAD_ARG_ERROR("`&", 1, "type");    }    type_stack_mark(); -  push_type_int(p->id); -  push_type(0); -  push_type(T_OBJECT); +  push_object_type(0, p->id);    free_svalue(sp - 2);    sp[-2].u.string = pop_unfinished_type();    sp[-2].type = T_TYPE;
1107:    SIMPLE_BAD_ARG_ERROR("`&", 2, "type");    }    type_stack_mark(); -  push_type_int(p->id); -  push_type(0); -  push_type(T_OBJECT); +  push_object_type(0, p->id);    free_svalue(sp - 1);    sp[-1].u.string = pop_unfinished_type();    sp[-1].type = T_TYPE;
1210:    SIMPLE_BAD_ARG_ERROR("`&", 1, "type");    }    type_stack_mark(); -  push_type_int(p->id); -  push_type(0); -  push_type(T_OBJECT); +  push_object_type(0, p->id);    a = pop_unfinished_type();       p = program_from_svalue(sp - 1);
1221:    SIMPLE_BAD_ARG_ERROR("`&", 2, "type");    }    type_stack_mark(); -  push_type_int(p->id); -  push_type(0); -  push_type(T_OBJECT); +  push_object_type(0, p->id);    b = pop_unfinished_type();       t = and_pike_types(a, b);
1438:    SIMPLE_BAD_ARG_ERROR("`|", 1, "type");    }    type_stack_mark(); -  push_type_int(p->id); -  push_type(0); -  push_type(T_OBJECT); +  push_object_type(0, p->id);    free_svalue(sp - 2);    sp[-2].u.string = pop_unfinished_type();    sp[-2].type = T_TYPE;
1452:    SIMPLE_BAD_ARG_ERROR("`|", 2, "type");    }    type_stack_mark(); -  push_type_int(p->id); -  push_type(0); -  push_type(T_OBJECT); +  push_object_type(0, p->id);    free_svalue(sp - 1);    sp[-1].u.string = pop_unfinished_type();    sp[-1].type = T_TYPE;
1527:    SIMPLE_BAD_ARG_ERROR("`|", 1, "type");    }    type_stack_mark(); -  push_type_int(p->id); -  push_type(0); -  push_type(T_OBJECT); +  push_object_type(0, p->id);    a = pop_unfinished_type();       p = program_from_svalue(sp - 1);
1538:    SIMPLE_BAD_ARG_ERROR("`|", 2, "type");    }    type_stack_mark(); -  push_type_int(p->id); -  push_type(0); -  push_type(T_OBJECT); +  push_object_type(0, p->id);    b = pop_unfinished_type();       t = or_pike_types(a, b, 0);
1656:    SIMPLE_BAD_ARG_ERROR("`^", 1, "type");    }    type_stack_mark(); -  push_type_int(p->id); -  push_type(0); -  push_type(T_OBJECT); +  push_object_type(0, p->id);    free_svalue(sp - 2);    sp[-2].u.string = pop_unfinished_type();    sp[-2].type = T_TYPE;
1670:    SIMPLE_BAD_ARG_ERROR("`^", 2, "type");    }    type_stack_mark(); -  push_type_int(p->id); -  push_type(0); -  push_type(T_OBJECT); +  push_object_type(0, p->id);    free_svalue(sp - 1);    sp[-1].u.string = pop_unfinished_type();    sp[-1].type = T_TYPE;
1732:    SIMPLE_BAD_ARG_ERROR("`^", 2, "type");    }    type_stack_mark(); -  push_type_int(p->id); -  push_type(0); -  push_type(T_OBJECT); +  push_object_type(0, p->id);    pop_stack();    push_string(pop_unfinished_type());    sp[-1].type = T_TYPE;
1748:    SIMPLE_BAD_ARG_ERROR("`^", 1, "type");    }    type_stack_mark(); -  push_type_int(p->id); -  push_type(0); -  push_type(T_OBJECT); +  push_object_type(0, p->id);    pop_stack();    push_string(pop_unfinished_type());    sp[-1].type = T_TYPE;
2872:    PIKE_ERROR("`~", "Bad argument.\n", sp, 1);    }    type_stack_mark(); -  push_type_int(p->id); -  push_type(0); -  push_type(T_OBJECT); +  push_object_type(0, p->id);    push_type(T_NOT);    pop_stack();    push_string(pop_unfinished_type());