PN_INT 153 core/ast.c PN_INT(potion_source_lineno(P, cl, self))); PN_INT 71 core/compile.c int c = PN_INT(v); comma=0; PN_INT 114 core/compile.c pn_printf(P, out, ") %ld registers\n", PN_INT(t->stack)); PN_INT 117 core/compile.c v = PN_TUPLE_AT(t->values, PN_INT(v)); PN_INT 185 core/compile.c if (reg >= PN_INT(f->stack)) \ PN_INT 383 core/compile.c if (PN_INT(k) >= ASM_TPL_IMM || PN_INT(k) < 0) { PN_INT 386 core/compile.c DBG_c("values %ld => %d\n", PN_INT(k), (int)num); PN_INT 390 core/compile.c num = PN_INT(k); PN_INT 392 core/compile.c DBG_c("gettuple %d %d %s[%ld]\n", reg, num, PN_STR_PTR(tpl), PN_INT(k)); PN_INT 460 core/compile.c PN_STR_PTR(fname), PN_INT(num), AS_STR(rhs)); PN_INT 72 core/file.c file->fd = PN_INT(fd); PN_INT 99 core/file.c n = PN_INT(n); PN_INT 26 core/internal.c struct PNData *obj = PN_ALLOC_N(PN_TUSER, struct PNData, PN_INT(len)); PN_INT 247 core/internal.c PN_INT(e->line), PN_INT(e->chr), PN_STR_PTR(e->excerpt)); PN_INT 355 core/internal.c printf(" %ld INT\n", PN_INT(*start)); PN_INT 164 core/mt19937ar.c init_genrand(PN_INT(seed)); PN_INT 51 core/number.c return PN_NUM(PN_INT(self) math_op PN_INT(num)); \ PN_INT 56 core/number.c return PN_NUM(PN_INT(self) math_op PN_INT(num)); PN_INT 100 core/number.c return PN_NUM(PN_INT(self) % PN_INT(num)); PN_INT 111 core/number.c return PN_NUM(~PN_INT(self)); PN_INT 121 core/number.c return PN_NUM(PN_INT(self) << PN_INT(num)); PN_INT 131 core/number.c return PN_NUM(PN_INT(self) >> PN_INT(num)); PN_INT 166 core/number.c return PN_NUM(~PN_INT(self)); PN_INT 174 core/number.c return PN_NUM(PN_INT(self) << PN_INT(num)); PN_INT 182 core/number.c return PN_NUM(PN_INT(self) >> PN_INT(num)); PN_INT 189 core/number.c sprintf(ints, "%ld", PN_INT(self)); PN_INT 204 core/number.c return potion_double(P, (double)PN_INT(self)); PN_INT 255 core/number.c sprintf(ints, "%ld", PN_INT(self)); PN_INT 283 core/number.c long i, j = PN_INT(self); PN_INT 300 core/number.c long i, s = 1, j = PN_INT(self), k = PN_INT(end); PN_INT 318 core/number.c long i, j = PN_INT(end), k = PN_INT(step); PN_INT 324 core/number.c for (i = PN_INT(self); i <= j; i += k) { PN_INT 334 core/number.c char c = PN_INT(self); PN_INT 368 core/number.c return PN_NUM(labs(PN_INT(self))); PN_INT 375 core/number.c return PN_NUM(labs(PN_INT(self))); PN_INT 403 core/number.c n1 = PN_INT(self); PN_INT 404 core/number.c n2 = PN_IS_INT(n) ? PN_INT(n) : PN_INT(potion_send(PN_number, n)); PN_INT 434 core/number.c n1 = PN_INT(self); PN_INT 435 core/number.c n2 = PN_INT(n); PN_INT 58 core/potion.c PN_INT(potion_gc_fixed(P, 0, 0)), PN_INT(potion_gc_actual(P, 0, 0)), PN_INT 59 core/potion.c PN_INT(potion_gc_reserved(P, 0, 0))); PN_INT 133 core/potion.c PN_INT(potion_gc_fixed(P, 0, 0)), PN_INT(potion_gc_actual(P, 0, 0)), PN_INT 134 core/potion.c PN_INT(potion_gc_reserved(P, 0, 0)), P->mem->time * 1000, P->mem->pass, PN_INT 144 core/potion.c PN_INT(potion_gc_fixed(P, 0, 0)), PN_INT(potion_gc_actual(P, 0, 0)), PN_INT 145 core/potion.c PN_INT(potion_gc_reserved(P, 0, 0)), P->mem->time * 1000, P->mem->pass, PN_INT 206 core/potion.h #define PN_DBL(num) (PN_IS_INT(num) ? (double)PN_INT(num) : ((struct PNDouble *)num)->value) PN_INT 221 core/string.c int i = PN_INT(index); PN_INT 253 core/string.c PN_INT(potion_str_slice_index(start, len, 0))); PN_INT 261 core/string.c PN_INT(potion_str_slice_index(start+end, len, len))); PN_INT 264 core/string.c PN_INT(potion_str_slice_index(end, len, len))); PN_INT 300 core/string.c start = PN_INT(index); PN_INT 303 core/string.c start = PN_INT(potion_str_slice_index(index, len, 0)); // supports s(-1) PN_INT 320 core/string.c if (len == PN_STR_LEN(self) && PN_INT(index) < len) { PN_INT 321 core/string.c return PN_NUM(str[PN_INT(index)]); PN_INT 326 core/string.c &str[potion_utf8char_offset(str, PN_INT(index))])); PN_INT 464 core/string.c index = PN_INT(index); PN_INT 180 core/table.c DBG_vt("%d:%ld ", i, PN_INT(v)); PN_INT 311 core/table.c long i = PN_INT(index), len = PN_TUPLE_LEN(self); PN_INT 355 core/table.c i = PN_INT(start); PN_INT 361 core/table.c long e = PN_INT(end); PN_INT 469 core/table.c long i = PN_INT(key), len = PN_TUPLE_LEN(self); PN_INT 563 core/table.c PN_SIZE i = PN_INT(index); PN_INT 584 core/table.c PN_SIZE i = PN_INT(index); PN_INT 671 core/table.c if (PN_INT(c->method(P, cl, cmp, GET(i), pivot)) > 0) PN_INT 736 core/table.c while (j > 0 && PN_INT(c->method(P, cl, cmp, GET(j-1), GET(j))) > 0) { PN_INT 818 core/table.c return potion_tuple_with_size(P, PN_INT(size)); PN_INT 443 core/vm-x86.c int argx = 0, regs = PN_INT(f->stack); PN_INT 1011 core/vm-x86.c ? PN_INT(PN_TUPLE_AT(sig,1)) : 0); PN_INT 183 core/vm.c ? PN_INT(PN_TUPLE_AT(s,1)) : 0); PN_INT 208 core/vm.c PN_TUPLE_AT(ivars, i) = PN_TUPLE_AT(proto->values, PN_INT(v)); PN_INT 253 core/vm.c regs = PN_INT(f->stack); PN_INT 371 core/vm.c reg[op.a] = PN_NUM(PN_INT(reg[op.a]) oper PN_INT(reg[op.b])); \ PN_INT 384 core/vm.c if (__builtin_##ov##_overflow(PN_INT(reg[op.a]), PN_INT(reg[op.b]), (long*)&val) \ PN_INT 385 core/vm.c || ((long)val > PN_INT(LONG_MAX)) \ PN_INT 386 core/vm.c || ((long)val < PN_INT(LONG_MIN))) \ PN_INT 576 core/vm.c regs = (struct PNTuple *) potion_tuple_with_size(P, PN_INT(f->stack)); PN_INT 577 core/vm.c for (i=0; i < PN_INT(f->stack); i++) { regs->set[i] = reg[i]; } PN_INT 727 core/vm.c long i = op.b & ASM_TPL_IMM ? PN_INT(reg[op.b - ASM_TPL_IMM]) : op.b; PN_INT 750 core/vm.c CASE(POW, reg[op.a] = PN_NUM((int)pow((double)PN_INT(reg[op.a]), PN_INT 751 core/vm.c (double)PN_INT(reg[op.b])))) PN_INT 757 core/vm.c CASE(CMP, reg[op.a] = PN_NUM(PN_INT(reg[op.b]) - PN_INT(reg[op.a]))) PN_INT 777 core/vm.c reg[op.a] = PN_IS_INT(reg[op.b]) ? PN_NUM(~PN_INT(reg[op.b])) : potion_obj_bitn(P, reg[op.b])) PN_INT 823 core/vm.c : potion_type_default(PN_INT(PN_TUPLE_AT(s,1))); PN_INT 828 core/vm.c } else if (((reg - stack) + PN_INT(f->stack) + f->upvalsize + f->localsize + 8) >= STACK_MAX) { PN_INT 848 core/vm.c : potion_type_default(PN_INT(PN_TUPLE_AT(s,1))); PN_INT 849 core/vm.c f->stack = PN_NUM(PN_INT(f->stack)+1); PN_INT 855 core/vm.c current = reg + PN_INT(f->stack) + 2; PN_INT 891 core/vm.c reg = current - (PN_INT(f->stack) + 2); PN_INT 311 lib/aio.c if (!uv_udp_set_multicast_ttl(udp, PN_INT(value))) PN_INT 316 lib/aio.c if (!uv_udp_set_ttl(udp, PN_INT(value))) PN_INT 327 lib/aio.c (uv_membership)PN_INT(PN_TUPLE_AT(t, 2)))) //0 or 1 PN_INT 790 lib/aio.c int r = uv_run(l, mode ? (uv_run_mode)PN_INT(mode) : UV_RUN_DEFAULT); PN_INT 814 lib/aio.c int r = uv_tcp_open(&handle->r, PN_INT(sock)); PN_INT 822 lib/aio.c int r = uv_tcp_nodelay(&handle->r, enable == PN_TRUE ? PN_INT(1) : PN_INT(0)); PN_INT 831 lib/aio.c int r = uv_tcp_keepalive(&handle->r, enable == PN_TRUE ? PN_INT(1) : PN_INT(0), PN_INT(delay)); PN_INT 839 lib/aio.c int r = uv_tcp_simultaneous_accepts(&handle->r, enable == PN_TRUE ? PN_INT(1) : PN_INT(0)); PN_INT 850 lib/aio.c if (uv_ip4_addr(PN_STR_PTR(addr), PN_INT(port), &ip4)) { PN_INT 852 lib/aio.c if (uv_ip6_addr(PN_STR_PTR(addr), PN_INT(port), &ip6)) PN_INT 869 lib/aio.c if (uv_ip6_addr(PN_STR_PTR(addr), PN_INT(port), &ip6)) PN_INT 898 lib/aio.c if (uv_ip4_addr(PN_STR_PTR(addr), PN_INT(port), &ip4)) { PN_INT 900 lib/aio.c if (uv_ip6_addr(PN_STR_PTR(addr), PN_INT(port), &ip6)) PN_INT 920 lib/aio.c if (uv_ip6_addr(PN_STR_PTR(addr), PN_INT(port), &ip6)) PN_INT 933 lib/aio.c int r = uv_udp_open(&handle->r, PN_INT(sockfd)); PN_INT 944 lib/aio.c if (uv_ip4_addr(PN_STR_PTR(addr), PN_INT(port), &ip4)) { PN_INT 946 lib/aio.c if (uv_ip6_addr(PN_STR_PTR(addr), PN_INT(port), &ip6)) PN_INT 949 lib/aio.c int r = uv_udp_bind(&handle->r, (const struct sockaddr*) &ip6, PN_INT(flags)); PN_INT 953 lib/aio.c int r = uv_udp_bind(&handle->r, (const struct sockaddr*) &ip4, PN_INT(flags)); PN_INT 964 lib/aio.c if (uv_ip6_addr(PN_STR_PTR(addr), PN_INT(port), &ip6)) PN_INT 966 lib/aio.c int r = uv_udp_bind(&handle->r, (const struct sockaddr*) &ip6, PN_INT(flags)); PN_INT 1042 lib/aio.c if (uv_ip4_addr(PN_STR_PTR(addr), PN_INT(port), &ip4)) PN_INT 1062 lib/aio.c if (uv_ip6_addr(PN_STR_PTR(addr), PN_INT(port), &ip6)) PN_INT 1180 lib/aio.c int r = uv_tty_set_mode(&handle->h, PN_INT(mode)); PN_INT 1204 lib/aio.c uv_handle_type r = uv_guess_handle(PN_INT(file)); PN_INT 1213 lib/aio.c int r = uv_pipe_open(&handle->r, PN_INT(file)); PN_INT 1240 lib/aio.c uv_pipe_pending_instances(&handle->r, PN_INT(count)); PN_INT 1267 lib/aio.c int r = uv_write(&request->r, &stm->r, &bufs, PN_INT(bufcnt), write_cb); PN_INT 1276 lib/aio.c int r = uv_listen(&request->r, PN_INT(backlog), connection_cb); PN_INT 1337 lib/aio.c int r = uv_write2(&request->r, &stm->r, &bufs, PN_INT(bufcnt), &handle->r, write_cb); PN_INT 1391 lib/aio.c int r = uv_timer_start(&handle->r, timer_cb, PN_INT(timeout), PN_INT(repeat)); PN_INT 1429 lib/aio.c uv_timer_set_repeat(&handle->r, PN_INT(repeat)); PN_INT 1476 lib/aio.c int r = uv_signal_start(&handle->r, signal_cb, PN_INT(signum)); PN_INT 1572 lib/aio.c int r = uv_process_kill(&handle->h, PN_INT(signum)); PN_INT 1581 lib/aio.c return PN_NUM(uv_kill(PN_INT(pid), PN_INT(signum))); PN_INT 1601 lib/aio.c int r = uv_fs_close(l, &req->r, PN_INT(fd), fs_cb); PN_INT 1616 lib/aio.c int r = uv_fs_open(l, &req->r, PN_STR_PTR(path), PN_INT(flags), PN_INT(mode), fs_cb); PN_INT 1639 lib/aio.c int r = uv_fs_read(l, &req->r, (uv_file)PN_INT(fd), PN_INT 1640 lib/aio.c &bufs, PN_INT(nbufs), (int64_t)PN_INT(offset), fs_cb); PN_INT 1659 lib/aio.c int r = uv_fs_write(l, &req->r, PN_INT(fd), &bufs, PN_INT(nbufs), PN_INT(offset), fs_cb); PN_INT 1685 lib/aio.c int r = uv_fs_mkdir(l, &req->r, PN_STR_PTR(path), PN_INT(mode), fs_cb); PN_INT 1723 lib/aio.c int r = uv_fs_scandir(l, &req->r, PN_STR_PTR(path), PN_INT(flags), fs_cb); PN_INT 1760 lib/aio.c int r = uv_fs_fstat(l, &req->r, PN_INT(fd), fs_cb); PN_INT 1787 lib/aio.c int r = uv_fs_fsync(l, &req->r, PN_INT(fd), fs_cb); PN_INT 1799 lib/aio.c int r = uv_fs_fdatasync(l, &req->r, PN_INT(fd), fs_cb); PN_INT 75 lib/buffile.c if (!(file = fdopen(PN_INT(fd), PN_STR_PTR(modestr)))) PN_INT 155 lib/buffile.c int r = fread(PN_STR_PTR(buf), PN_INT(size), PN_INT(nitems), self->file); PN_INT 156 lib/buffile.c if (r < PN_INT(nitems)) PN_INT 167 lib/buffile.c if (!size && (!nitems || PN_INT(nitems) == 1)) { PN_INT 177 lib/buffile.c int r = fwrite(PN_STR_PTR(buf), PN_INT(size), PN_INT(nitems), self->file); PN_INT 178 lib/buffile.c if (r < PN_INT(nitems)) PN_INT 187 lib/buffile.c return PN_NUM(fputc(PN_INT(byte), self->file)); PN_INT 213 lib/buffile.c if (fseek(self->file, PN_INT(offset), PN_INT(whence))) PN_INT 35 test/api/potion-test.c CuAssert(T, "zero isn't zero", PN_INT(zero) == 0); PN_INT 39 test/api/potion-test.c 490 == PN_INT(potion_send(zero, potion_str(P, "+"), num))); PN_INT 44 test/api/potion-test.c CuAssert(T, "positive numbers invalid", PN_INT(pos) == 10891); PN_INT 48 test/api/potion-test.c 11381 == PN_INT(potion_send(pos, potion_str(P, "+"), num))); PN_INT 53 test/api/potion-test.c CuAssert(T, "negative numbers invalid", PN_INT(neg) == -4343); PN_INT 57 test/api/potion-test.c -3853 == PN_INT(potion_send(neg, potion_str(P, "+"), num))); PN_INT 69 test/api/potion-test.c 6 == PN_INT(potion_send(PN_string, potion_str(P, "length")))); PN_INT 77 test/api/potion-test.c 0, PN_INT(potion_send(empty, potion_str(P, "length")))); PN_INT 88 test/api/potion-test.c 3, PN_INT(potion_send(tup, potion_str(P, "length")))); PN_INT 95 test/api/potion-test.c CuAssertIntEquals(T, "len=2", 2, PN_INT(PN_TUPLE_LEN(sig))); PN_INT 104 test/api/potion-test.c PN_INT(PN_TUPLE_AT(sig,1))); PN_INT 108 test/api/potion-test.c PN_INT(PN_TUPLE_AT(sig,3))); PN_INT 157 test/api/potion-test.c CuAssertIntEquals(T, "cl arity f2", 2, PN_INT(potion_closure_arity(P,0,p2))); PN_INT 172 test/api/potion-test.c CuAssertIntEquals(T, "calling closure as c func", 8, PN_INT(num)); PN_INT 177 test/api/potion-test.c CuAssertIntEquals(T, "calling closure as c func (opt)", 8, PN_INT(num)); PN_INT 179 test/api/potion-test.c CuAssertIntEquals(T, "optional num = 0", 3, PN_INT(num)); PN_INT 184 test/api/potion-test.c CuAssertIntEquals(T, "calling closure as c func (default)", 8, PN_INT(num)); PN_INT 186 test/api/potion-test.c CuAssertIntEquals(T, "default num = 1", 4, PN_INT(num)); PN_INT 194 test/api/potion-test.c CuAssertIntEquals(T, "calling closure as c func (jit)", 8, PN_INT(num)); PN_INT 202 test/api/potion-test.c CuAssertIntEquals(T, "calling closure as c func (jit+opt)", 8, PN_INT(num)); PN_INT 210 test/api/potion-test.c CuAssertIntEquals(T, "calling closure as c func (jit+default)", 8, PN_INT(num));