diff options
| author | Andrew Pinski <pinskia@physics.uc.edu> | 2004-10-05 02:31:10 +0000 |
|---|---|---|
| committer | Andrew Pinski <pinskia@gcc.gnu.org> | 2004-10-04 19:31:10 -0700 |
| commit | 1ee3acfb089cae88daccf2f7b2e5286d42439ef4 (patch) | |
| tree | 70889374144bd056067c6c63c4160e879e7f5855 /libgfortran/intrinsics/mvbits.c | |
| parent | cfd51eaf34fe68e6e3d9f2d4e78a6db4dce7976a (diff) | |
| download | gcc-1ee3acfb089cae88daccf2f7b2e5286d42439ef4.zip gcc-1ee3acfb089cae88daccf2f7b2e5286d42439ef4.tar.gz gcc-1ee3acfb089cae88daccf2f7b2e5286d42439ef4.tar.bz2 | |
mvbits.c: Commit the file.
2004-10-04 Andrew Pinski <pinskia@physics.uc.edu>
* intrinsics/mvbits.c: Commit the file.
From-SVN: r88541
Diffstat (limited to 'libgfortran/intrinsics/mvbits.c')
| -rw-r--r-- | libgfortran/intrinsics/mvbits.c | 63 |
1 files changed, 63 insertions, 0 deletions
diff --git a/libgfortran/intrinsics/mvbits.c b/libgfortran/intrinsics/mvbits.c new file mode 100644 index 0000000..683b9b2 --- /dev/null +++ b/libgfortran/intrinsics/mvbits.c @@ -0,0 +1,63 @@ +/* Implementation of the MVBITS intrinsic + Copyright (C) 2004 Free Software Foundation, Inc. + Contributed by Tobias Schlüter + +This file is part of the GNU Fortran 95 runtime library (libgfortran). + +Libgfortran is free software; you can redistribute it and/or +modify it under the terms of the GNU Lesser General Public +License as published by the Free Software Foundation; either +version 2.1 of the License, or (at your option) any later version. + +Libgfortran 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 Lesser General Public License for more details. + +You should have received a copy of the GNU Lesser General Public +License along with libgfortran; see the file COPYING.LIB. If not, +write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, +Boston, MA 02111-1307, USA. */ + +/* TODO: This should be replaced by a compiler builtin. */ + +#ifndef SUB_NAME +#include <libgfortran.h> +#endif + +#ifdef SUB_NAME +/* MVBITS copies LEN bits starting at bit position FROMPOS from FROM + into TO, starting at bit position TOPOS. */ + +void +SUB_NAME (const TYPE *from, const GFC_INTEGER_4 *frompos, + const GFC_INTEGER_4 *len, TYPE *to, const GFC_INTEGER_4 *topos) +{ + TYPE oldbits, newbits, lenmask; + + lenmask = (*len == sizeof (TYPE)*8) ? ~(TYPE)0 : (1 << *len) - 1; + newbits = (((UTYPE)(*from) >> *frompos) & lenmask) << *topos; + oldbits = *to & (~(lenmask << *topos)); + + *to = newbits | oldbits; +} +#endif + +#ifndef SUB_NAME +# define TYPE GFC_INTEGER_4 +# define UTYPE GFC_UINTEGER_4 +# define SUB_NAME prefix (mvbits_i4) +# include "mvbits.c" +# undef SUB_NAME +# undef TYPE +# undef UTYPE + +# define TYPE GFC_INTEGER_8 +# define UTYPE GFC_UINTEGER_8 +# define SUB_NAME prefix (mvbits_i8) +# include "mvbits.c" +# undef SUB_NAME +# undef TYPE +# undef UTYPE +#endif + |