← Back to branch summary

~ubuntu-branches/ubuntu/trusty/cloog/trusty

« back to all changes in this revision

Viewing changes to osl/source/vector.c

  • Committer: Package Import Robot
  • Author(s): Matthias Klose
  • Date: 2013-10-17 15:54:24 UTC
  • mfrom: (3.1.5 sid)
  • Revision ID: package-import@ubuntu.com-20131017155424-3q1gw7yhddylfkpj
Tags: 0.18.1-1
http://bugs.debian.org/711681
http://bugs.debian.org/719957
* New upstream version.
* Add a comment to build-depend on libpod-latex-perl | perl (<< 5.17.0),
  when the documentation is built. Closes: #711681.
* Use dh_autotools-dev to update config.{sub,guess}. Closes: #719957.

Show diffs side-by-side

added added

removed removed

Lines of Context:
osl/source/vector.c
108
108
    fprintf(file, "[ ");
109
109
 
110
110
    for (j = 0; j < vector->size; j++) {
111
 
      osl_int_print(file, vector->precision, vector->v, j);
 
111
      osl_int_print(file, vector->precision, vector->v[j]);
112
112
      fprintf(file, " ");
113
113
    }
114
114
 
165
165
    vector->v = NULL;
166
166
  }
167
167
  else {
168
 
    OSL_malloc(vector->v, void *, size * osl_int_sizeof(precision));
 
168
    OSL_malloc(vector->v, osl_int_t*, size * sizeof(osl_int_t));
169
169
    for (i = 0; i < size; i++)
170
 
      osl_int_init_set_si(precision, vector->v, i, 0);
 
170
      osl_int_init_set_si(precision, &vector->v[i], 0);
171
171
  }
172
172
  return vector;
173
173
}
200
200
  if (vector != NULL) {
201
201
    if (vector->v != NULL) {
202
202
      for (i = 0; i < vector->size; i++)
203
 
        osl_int_clear(vector->precision, vector->v, i);
 
203
        osl_int_clear(vector->precision, &vector->v[i]);
204
204
 
205
205
      free(vector->v);
206
206
    }
235
235
 
236
236
  result = osl_vector_pmalloc(precision, vector->size);
237
237
  for (i = 0; i < vector->size; i++)
238
 
    osl_int_assign(precision, result->v, i, vector->v, i);
239
 
  osl_int_add_si(precision, result->v, last, vector->v, last, scalar);
 
238
    osl_int_assign(precision, &result->v[i], vector->v[i]);
 
239
  osl_int_add_si(precision, &result->v[last], vector->v[last], scalar);
240
240
 
241
241
  return result;
242
242
}
261
261
 
262
262
  v3 = osl_vector_pmalloc(v1->precision, v1->size);
263
263
  for (i = 0; i < v1->size; i++)
264
 
    osl_int_add(v1->precision, v3->v, i, v1->v, i, v2->v, i);
 
264
    osl_int_add(v1->precision, &v3->v[i], v1->v[i], v2->v[i]);
265
265
 
266
266
  return v3;
267
267
}
286
286
 
287
287
  v3 = osl_vector_pmalloc(v1->precision, v1->size);
288
288
  for (i = 0; i < v1->size; i++)
289
 
    osl_int_sub(v1->precision, v3->v, i, v1->v, i, v2->v, i);
 
289
    osl_int_sub(v1->precision, &v3->v[i], v1->v[i], v2->v[i]);
290
290
 
291
291
  return v3;
292
292
}
303
303
void osl_vector_tag_inequality(osl_vector_p vector) {
304
304
  if ((vector == NULL) || (vector->size < 1))
305
305
    OSL_error("vector cannot be tagged");
306
 
  osl_int_set_si(vector->precision, vector->v, 0, 1);
 
306
  osl_int_set_si(vector->precision, &vector->v[0], 1);
307
307
}
308
308
 
309
309
 
318
318
void osl_vector_tag_equality(osl_vector_p vector) {
319
319
  if ((vector == NULL) || (vector->size < 1))
320
320
    OSL_error("vector cannot be tagged");
321
 
  osl_int_set_si(vector->precision, vector->v, 0, 0);
 
321
  osl_int_set_si(vector->precision, &vector->v[0], 0);
322
322
}
323
323
 
324
324
 
340
340
    return 0;
341
341
 
342
342
  for (i = 0; i < v1->size; i++)
343
 
    if (osl_int_ne(v1->precision, v1->v, i, v2->v, i))
 
343
    if (osl_int_ne(v1->precision, v1->v[i], v2->v[i]))
344
344
      return 0;
345
345
 
346
346
  return 1;
360
360
  osl_vector_p result = osl_vector_pmalloc(v->precision, v->size);
361
361
  
362
362
  for (i = 0; i < v->size; i++)
363
 
    osl_int_mul_si(v->precision, result->v, i, v->v, i, scalar);
 
363
    osl_int_mul_si(v->precision, &result->v[i], v->v[i], scalar);
364
364
 
365
365
  return result;
366
366
}
380
380
    return 0;
381
381
 
382
382
  for (i = 0; i < vector->size - 1; i++)
383
 
    if (!osl_int_zero(vector->precision, vector->v, i))
 
383
    if (!osl_int_zero(vector->precision, vector->v[i]))
384
384
      return 0;
385
385
  return 1;
386
386
}