forked from OSchip/llvm-project
30 lines
586 B
C
30 lines
586 B
C
/*
|
|
* Copyright 2014 Ecole Normale Superieure
|
|
*
|
|
* Use of this software is governed by the MIT license
|
|
*
|
|
* Written by Sven Verdoolaege,
|
|
* Ecole Normale Superieure, 45 rue d'Ulm, 75230 Paris, France
|
|
*/
|
|
|
|
#include <isl_multi_macro.h>
|
|
|
|
/* Given f, return floor(f).
|
|
*/
|
|
__isl_give MULTI(BASE) *FN(MULTI(BASE),floor)(__isl_take MULTI(BASE) *multi)
|
|
{
|
|
int i;
|
|
|
|
multi = FN(MULTI(BASE),cow)(multi);
|
|
if (!multi)
|
|
return NULL;
|
|
|
|
for (i = 0; i < multi->n; ++i) {
|
|
multi->p[i] = FN(EL,floor)(multi->p[i]);
|
|
if (!multi->p[i])
|
|
return FN(MULTI(BASE),free)(multi);
|
|
}
|
|
|
|
return multi;
|
|
}
|