-int mpscalbnf(struct t *t)
-{
- t->dy = 0;
- setupfenv(t->r);
- t->y = scalbnf(t->x, t->i);
- t->e = getexcept();
- return 0;
-}
-
-int mpscalbnl(struct t *t)
-{
- t->dy = 0;
- setupfenv(t->r);
- t->y = scalbnl(t->x, t->i);
- t->e = getexcept();
- return 0;
-}
-
-int mpscalbln(struct t *t)
-{
- t->dy = 0;
- setupfenv(t->r);
- t->y = scalbln(t->x, t->i);
- t->e = getexcept();
- return 0;
-}
-
-int mpscalblnf(struct t *t)
-{
- t->dy = 0;
- setupfenv(t->r);
- t->y = scalblnf(t->x, t->i);
- t->e = getexcept();
- return 0;
-}
-
-int mpscalblnl(struct t *t)
-{
- t->dy = 0;
- setupfenv(t->r);
- t->y = scalblnl(t->x, t->i);
- t->e = getexcept();
- return 0;
-}