1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
/*
* arith.h
*
* $Id$
*
* This file is part of the OpenLink Software Virtuoso Open-Source (VOS)
* project.
*
* Copyright (C) 1998-2018 OpenLink Software
*
* This project is free software; you can redistribute it and/or modify it
* under the terms of the GNU General Public License as published by the
* Free Software Foundation; only version 2 of the License, dated June 1991.
*
* This program is distributed in the hope that it will be useful, but
* WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* General Public License for more details.
*
* You should have received a copy of the GNU General Public License along
* with this program; if not, write to the Free Software Foundation, Inc.,
* 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
*
*/
#ifndef _WI_ARITH_H
#define _WI_ARITH_H
#include <math.h>
#include <float.h>
int n_coerce (caddr_t n1, caddr_t n2, dtp_t dtp1, dtp_t dtp2, dtp_t * out_dtp);
dtp_t dv_ext_to_num (dtp_t * place, caddr_t to);
int cmp_dv_box (caddr_t dv, caddr_t box);
int cmp_double (double x1, double x2, double epsilon);
extern int cmp_boxes (ccaddr_t box1, ccaddr_t box2, collation_t *collation1, collation_t *collation2);
extern int cmp_boxes_safe (ccaddr_t box1, ccaddr_t box2, collation_t *collation1, collation_t *collation2);
extern int bool_bop_boxes (int bop, ccaddr_t box1, ccaddr_t box2, collation_t *collation1, collation_t *collation2);
caddr_t box_add (ccaddr_t l, ccaddr_t r, caddr_t * qst, state_slot_t * target);
caddr_t box_sub (ccaddr_t l, ccaddr_t r, caddr_t * qst, state_slot_t * target);
caddr_t box_div (ccaddr_t l, ccaddr_t r, caddr_t * qst, state_slot_t * target);
caddr_t box_mpy (ccaddr_t l, ccaddr_t r, caddr_t * qst, state_slot_t * target);
caddr_t box_mod (ccaddr_t l, ccaddr_t r, caddr_t * qst, state_slot_t * target);
caddr_t box_identity (ccaddr_t arg, ccaddr_t ignore, caddr_t * qst, state_slot_t * target);
#ifndef _WI_STRLIKE_H
#include "strlike.h"
#endif
int numeric_compare_dvc (numeric_t x, numeric_t y);
int dv_num_compare (numeric_t dn1, numeric_t dn2, dtp_t dtp1, dtp_t dtp2);
#define MAX_INT_DOUBLE ((((int64)1) << 53) - 1)
#define MIN_INT_DOUBLE (-(((int64)1)<<53) + 1)
void dc_add_int (instruction_t * ins, caddr_t * inst);
void dc_add_int_1 (instruction_t * ins, caddr_t * inst);
int dc_cmp_int (instruction_t * ins, caddr_t * inst, db_buf_t bits);
int dc_cmp_int_1 (instruction_t * ins, caddr_t * inst);
void dc_asg_64_1 (instruction_t * ins, caddr_t * inst);
void dc_asg_64 (instruction_t * ins, caddr_t * inst);
#define ARTM_VEC_LEN 256
typedef void (*artm_vec_f) (int64* res, int64 * l, int64* r, int n);
extern artm_vec_f vec_adds[3];
extern artm_vec_f vec_subs[3];
extern artm_vec_f vec_mpys[3];
extern artm_vec_f vec_divs[3];
int artm_vec (caddr_t * inst, instruction_t * ins, artm_vec_f * ops);
int cmp_vec (caddr_t * inst, instruction_t * ins, dtp_t * set_mask, dtp_t * res_bits);
#define CMP_VEC_NA 3 /* vec cmp not applicable, do items one by one */
#endif /* _WI_ARITH_H */
|
