pike.git / src / las.c

version» Context lines:

pike.git/src/las.c:751: Inside #if defined(PIKE_DEBUG)
   Pike_fatal("Attempt to create an F_CONSTANT-node with mknode()!\n");    case F_LOCAL:    Pike_fatal("Attempt to create an F_LOCAL-node with mknode()!\n");    case F_TRAMPOLINE:    Pike_fatal("Attempt to create an F_TRAMPOLINE-node with mknode()!\n");    case F_EXTERNAL:    Pike_fatal("Attempt to create an F_EXTERNAL-node with mknode()!\n");    case F_GET_SET:    Pike_fatal("Attempt to create an F_GET_SET-node with mknode()!\n");   #endif /* PIKE_DEBUG */ +  + #define OPERNODE(X,Y) case X: return mkopernode(("`" #Y), a, b ) +  OPERNODE(F_LT,<); +  OPERNODE(F_GT,>); +  OPERNODE(F_LE,<=); +  OPERNODE(F_GE,>=); +  OPERNODE(F_EQ,==); +  OPERNODE(F_NE,!=); +  OPERNODE(F_ADD,+); +  OPERNODE(F_SUBTRACT,-); +  OPERNODE(F_DIVIDE,/); +  OPERNODE(F_MULTIPLY,*); +  OPERNODE(F_MOD,%); +  OPERNODE(F_LSH,<<); +  OPERNODE(F_RSH,>>); +  OPERNODE(F_OR,|); +  OPERNODE(F_AND,&); +  OPERNODE(F_XOR,^); +  OPERNODE(F_NOT,!); +  OPERNODE(F_COMPL,~); + #if 0 +  OPERNODE(F_NEGATE,-); + #endif + #undef OPERNODE    }       check_tree(a,0);    check_tree(b,0);       res = mkemptynode();    _CAR(res) = dmalloc_touch(node *, a);    _CDR(res) = dmalloc_touch(node *, b);    if(a) {    a->parent = res;