2 * Copyright (C) 1995-2008 University of Karlsruhe. All right reserved.
4 * This file is part of libFirm.
6 * This file may be distributed and/or modified under the terms of the
7 * GNU General Public License version 2 as published by the Free Software
8 * Foundation and appearing in the file LICENSE.GPL included in the
9 * packaging of this file.
11 * Licensees holding valid libFirm Professional Edition licenses may use
12 * this file in accordance with the libFirm Commercial License.
13 * Agreement provided with the Software.
15 * This file is provided AS IS with NO WARRANTY OF ANY KIND, INCLUDING THE
16 * WARRANTY OF DESIGN, MERCHANTABILITY AND FITNESS FOR A PARTICULAR
24 * @author Sebastian Buchwald
31 #include "adt/array.h"
35 num pbqp_add(num x, num y)
39 if (x == INF_COSTS || y == INF_COSTS) return INF_COSTS;
43 #if !KAPS_USE_UNSIGNED
44 /* No positive overflow. */
45 assert(x < 0 || y < 0 || res >= x);
46 assert(x < 0 || y < 0 || res >= y);
49 /* No negative overflow. */
50 assert(x > 0 || y > 0 || res <= x);
51 assert(x > 0 || y > 0 || res <= y);
53 /* Result is not infinity.*/
54 assert(res < INF_COSTS);
59 vector_t *vector_alloc(pbqp_t *pbqp, unsigned length)
61 vector_t *vec = (vector_t*)obstack_alloc(&pbqp->obstack, sizeof(*vec) + sizeof(*vec->entries) * length);
65 memset(vec->entries, 0, sizeof(*vec->entries) * length);
70 vector_t *vector_copy(pbqp_t *pbqp, vector_t *v)
72 unsigned len = v->len;
73 vector_t *copy = (vector_t*)obstack_copy(&pbqp->obstack, v, sizeof(*copy) + sizeof(*copy->entries) * len);
79 void vector_add(vector_t *sum, vector_t *summand)
84 assert(sum->len == summand->len);
88 for (i = 0; i < len; ++i) {
89 sum->entries[i].data = pbqp_add(sum->entries[i].data,
90 summand->entries[i].data);
94 void vector_set(vector_t *vec, unsigned index, num value)
96 assert(index < vec->len);
97 vec->entries[index].data = value;
100 #if KAPS_ENABLE_VECTOR_NAMES
101 void vector_set_description(vector_t *vec, unsigned index, const char *name)
103 assert(index < vec->len);
104 vec->entries[index].name = name;
108 void vector_add_value(vector_t *vec, num value)
115 for (index = 0; index < len; ++index) {
116 vec->entries[index].data = pbqp_add(vec->entries[index].data, value);
120 void vector_add_matrix_col(vector_t *vec, pbqp_matrix_t *mat, unsigned col_index)
125 assert(vec->len == mat->rows);
126 assert(col_index < mat->cols);
130 for (index = 0; index < len; ++index) {
131 vec->entries[index].data = pbqp_add(vec->entries[index].data, mat->entries[index * mat->cols + col_index]);
135 void vector_add_matrix_row(vector_t *vec, pbqp_matrix_t *mat, unsigned row_index)
140 assert(vec->len == mat->cols);
141 assert(row_index < mat->rows);
145 for (index = 0; index < len; ++index) {
146 vec->entries[index].data = pbqp_add(vec->entries[index].data,
147 mat->entries[row_index * mat->cols + index]);
151 num vector_get_min(vector_t *vec)
160 for (index = 0; index < len; ++index) {
161 num elem = vec->entries[index].data;
171 unsigned vector_get_min_index(vector_t *vec)
175 unsigned min_index = 0;
181 for (index = 0; index < len; ++index) {
182 num elem = vec->entries[index].data;