Lines Matching refs:ALISP_OBJ_INTEGER
168 alisp_set_type(p, ALISP_OBJ_INTEGER); in free_object()
335 list_for_each(pos, &instance->used_objs_list[in & ALISP_OBJ_PAIR_HASH_MASK][ALISP_OBJ_INTEGER]) { in search_object_integer()
388 obj = new_object(instance, ALISP_OBJ_INTEGER); in new_integer()
390 …st_add(&obj->list, &instance->used_objs_list[value & ALISP_OBJ_PAIR_HASH_MASK][ALISP_OBJ_INTEGER]); in new_integer()
1020 case ALISP_OBJ_INTEGER: return "integer"; in obj_type_str()
1144 int type = ALISP_OBJ_INTEGER; in F_add()
1148 if (alisp_compare_type(p1, ALISP_OBJ_INTEGER)) { in F_add()
1167 if (type == ALISP_OBJ_INTEGER) { in F_add()
1223 int type = ALISP_OBJ_INTEGER; in F_sub()
1227 if (alisp_compare_type(p1, ALISP_OBJ_INTEGER)) { in F_sub()
1237 if (type == ALISP_OBJ_INTEGER) { in F_sub()
1254 if (type == ALISP_OBJ_INTEGER) { in F_sub()
1269 int type = ALISP_OBJ_INTEGER; in F_mul()
1273 if (alisp_compare_type(p1, ALISP_OBJ_INTEGER)) { in F_mul()
1290 if (type == ALISP_OBJ_INTEGER) { in F_mul()
1305 int type = ALISP_OBJ_INTEGER; in F_div()
1309 if (alisp_compare_type(p1, ALISP_OBJ_INTEGER)) { in F_div()
1326 if (type == ALISP_OBJ_INTEGER) { in F_div()
1349 if (type == ALISP_OBJ_INTEGER) { in F_div()
1369 if (alisp_compare_type(p1, ALISP_OBJ_INTEGER) && in F_mod()
1370 alisp_compare_type(p2, ALISP_OBJ_INTEGER)) { in F_mod()
1377 } else if ((alisp_compare_type(p1, ALISP_OBJ_INTEGER) || in F_mod()
1379 (alisp_compare_type(p2, ALISP_OBJ_INTEGER) || in F_mod()
1382 f1 = alisp_compare_type(p1, ALISP_OBJ_INTEGER) ? p1->value.i : p1->value.f; in F_mod()
1383 f2 = alisp_compare_type(p2, ALISP_OBJ_INTEGER) ? p2->value.i : p2->value.f; in F_mod()
1416 if (alisp_compare_type(p1, ALISP_OBJ_INTEGER) && in F_lt()
1417 alisp_compare_type(p2, ALISP_OBJ_INTEGER)) { in F_lt()
1424 } else if ((alisp_compare_type(p1, ALISP_OBJ_INTEGER) || in F_lt()
1426 (alisp_compare_type(p2, ALISP_OBJ_INTEGER) || in F_lt()
1429 f1 = alisp_compare_type(p1, ALISP_OBJ_INTEGER) ? p1->value.i : p1->value.f; in F_lt()
1430 f2 = alisp_compare_type(p2, ALISP_OBJ_INTEGER) ? p2->value.i : p2->value.f; in F_lt()
1455 if (alisp_compare_type(p1, ALISP_OBJ_INTEGER) && in F_gt()
1456 alisp_compare_type(p2, ALISP_OBJ_INTEGER)) { in F_gt()
1463 } else if ((alisp_compare_type(p1, ALISP_OBJ_INTEGER) || in F_gt()
1465 (alisp_compare_type(p2, ALISP_OBJ_INTEGER) || in F_gt()
1468 f1 = alisp_compare_type(p1, ALISP_OBJ_INTEGER) ? p1->value.i : p1->value.f; in F_gt()
1469 f2 = alisp_compare_type(p2, ALISP_OBJ_INTEGER) ? p2->value.i : p2->value.f; in F_gt()
1494 if (alisp_compare_type(p1, ALISP_OBJ_INTEGER) && in F_le()
1495 alisp_compare_type(p2, ALISP_OBJ_INTEGER)) { in F_le()
1502 } else if ((alisp_compare_type(p1, ALISP_OBJ_INTEGER) || in F_le()
1504 (alisp_compare_type(p2, ALISP_OBJ_INTEGER) || in F_le()
1507 f1 = alisp_compare_type(p1, ALISP_OBJ_INTEGER) ? p1->value.i : p1->value.f; in F_le()
1508 f2 = alisp_compare_type(p2, ALISP_OBJ_INTEGER) ? p2->value.i : p2->value.f; in F_le()
1533 if (alisp_compare_type(p1, ALISP_OBJ_INTEGER) && in F_ge()
1534 alisp_compare_type(p2, ALISP_OBJ_INTEGER)) { in F_ge()
1541 } else if ((alisp_compare_type(p1, ALISP_OBJ_INTEGER) || in F_ge()
1543 (alisp_compare_type(p2, ALISP_OBJ_INTEGER) || in F_ge()
1546 f1 = alisp_compare_type(p1, ALISP_OBJ_INTEGER) ? p1->value.i : p1->value.f; in F_ge()
1547 f2 = alisp_compare_type(p2, ALISP_OBJ_INTEGER) ? p2->value.i : p2->value.f; in F_ge()
1572 if (alisp_compare_type(p1, ALISP_OBJ_INTEGER) && in F_numeq()
1573 alisp_compare_type(p2, ALISP_OBJ_INTEGER)) { in F_numeq()
1580 } else if ((alisp_compare_type(p1, ALISP_OBJ_INTEGER) || in F_numeq()
1582 (alisp_compare_type(p2, ALISP_OBJ_INTEGER) || in F_numeq()
1585 f1 = alisp_compare_type(p1, ALISP_OBJ_INTEGER) ? p1->value.i : p1->value.f; in F_numeq()
1586 f2 = alisp_compare_type(p2, ALISP_OBJ_INTEGER) ? p2->value.i : p2->value.f; in F_numeq()
1687 case ALISP_OBJ_INTEGER: in princ_object()
1742 case ALISP_OBJ_INTEGER: in F_atom()
1836 case ALISP_OBJ_INTEGER: in equal()
2438 if (alisp_compare_type(p, ALISP_OBJ_INTEGER)) in F_string_to_integer()
2462 if (alisp_compare_type(p, ALISP_OBJ_INTEGER)) { in F_string_to_float()
2498 if (!alisp_compare_type(p, ALISP_OBJ_INTEGER)) { in format_parse_char()
2511 if (!alisp_compare_type(p, ALISP_OBJ_INTEGER) && in format_parse_integer()
2532 if (!alisp_compare_type(p, ALISP_OBJ_INTEGER) && in format_parse_float()
2677 if (alisp_compare_type(p[1], ALISP_OBJ_INTEGER)) { in F_compare_strings()
2682 if (alisp_compare_type(p[2], ALISP_OBJ_INTEGER)) { in F_compare_strings()
2693 !alisp_compare_type(p[4], ALISP_OBJ_INTEGER)) { in F_compare_strings()
2699 !alisp_compare_type(p[5], ALISP_OBJ_INTEGER)) { in F_compare_strings()
2851 if (!alisp_compare_type(p1, ALISP_OBJ_INTEGER)) { in F_nth()
3125 case ALISP_OBJ_INTEGER: in eval()
3467 if (alisp_compare_type(seq, ALISP_OBJ_INTEGER)) in alsa_lisp_seq_integer()