OpenAD/Open64Dox/bittab_8c_source.html

00001 /*
00002
00003   Copyright (C) 2000, 2001 Silicon Graphics, Inc.  All Rights Reserved.
00004
00005   This program is free software; you can redistribute it and/or modify it
00006   under the terms of version 2.1 of the GNU Lesser General Public License
00007   as published by the Free Software Foundation.
00008
00009   This program is distributed in the hope that it would be useful, but
00010   WITHOUT ANY WARRANTY; without even the implied warranty of
00011   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
00012
00013   Further, this software is distributed without any warranty that it is
00014   free of the rightful claim of any third person regarding infringement
00015   or the like.  Any license provided herein, whether implied or
00016   otherwise, applies only to this software file.  Patent licenses, if
00017   any, provided herein do not apply to combinations of this program with
00018   other software, or any other product whatsoever.
00019
00020   You should have received a copy of the GNU Lesser General Public
00021   License along with this program; if not, write the Free Software
00022   Foundation, Inc., 59 Temple Place - Suite 330, Boston MA 02111-1307,
00023   USA.
00024
00025   Contact information:  Silicon Graphics, Inc., 1600 Amphitheatre Pky,
00026   Mountain View, CA 94043, or:
00027
00028   http://www.sgi.com
00029
00030   For further information regarding this notice, see:
00031
00032   http://oss.sgi.com/projects/GenInfo/NoticeExplan
00033
00034 */
00035
00036
00037 /*  $Header: /m_home/m_utkej/Argonne/cvs2svn/cvs/Open64/osprey1.0/libF77/bittab.c,v 1.1.1.1 2002-05-22 20:09:11 dsystem Exp $ */
00038 /*        All Rights Reserved   */
00039
00040 /*      THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF AT&T     */
00041 /*      actual or intended publication of such source code.     */
00042
00043 /* mask[k] asserts right most k bits of a long. When used as a mask
00044  * (i.e. A & mask[k]) the bits to the left of the k bits are cleared.
00045  */
00046
00047 #include <cmplrs/host.h>
00048
00049 int32 F77mask[33] = {
00050         0x0,
00051         0x1, 0x3, 0x7, 0xf,
00052         0x1f, 0x3f, 0x7f, 0xff,
00053         0x1ff, 0x3ff, 0x7ff, 0xfff,
00054         0x1fff, 0x3fff, 0x7fff, 0xffff,
00055         0x1ffff, 0x3ffff, 0x7ffff, 0xfffff,
00056         0x1fffff, 0x3fffff, 0x7fffff, 0xffffff,
00057         0x1ffffff, 0x3ffffff, 0x7ffffff, 0xfffffff,
00058         0x1fffffff, 0x3fffffff, 0x7fffffff, 0xffffffff
00059         };
00060
00061 int64 F77llmask[65] = {
00062         0x0,
00063         0x1, 0x3, 0x7, 0xf,
00064         0x1f, 0x3f, 0x7f, 0xff,
00065         0x1ff, 0x3ff, 0x7ff, 0xfff,
00066         0x1fff, 0x3fff, 0x7fff, 0xffff,
00067         0x1ffff, 0x3ffff, 0x7ffff, 0xfffff,
00068         0x1fffff, 0x3fffff, 0x7fffff, 0xffffff,
00069         0x1ffffff, 0x3ffffff, 0x7ffffff, 0xfffffff,
00070         0x1fffffff, 0x3fffffff, 0x7fffffff, 0xffffffff,
00071         0x1ffffffff, 0x3ffffffff, 0x7ffffffff, 0xfffffffff,
00072         0x1fffffffff, 0x3fffffffff, 0x7fffffffff, 0xffffffffff,
00073         0x1ffffffffff, 0x3ffffffffff, 0x7ffffffffff, 0xfffffffffff,
00074         0x1fffffffffff, 0x3fffffffffff, 0x7fffffffffff, 0xffffffffffff,
00075         0x1ffffffffffff, 0x3ffffffffffff, 0x7ffffffffffff, 0xfffffffffffff,
00076         0x1fffffffffffff, 0x3fffffffffffff, 0x7fffffffffffff, 0xffffffffffffff,
00077         0x1ffffffffffffff, 0x3ffffffffffffff, 0x7ffffffffffffff, 0xfffffffffffffff,
00078         0x1fffffffffffffff, 0x3fffffffffffffff, 0x7fffffffffffffff, 0xffffffffffffffff
00079         };
00080
00081
00082 /* zmask[k] asserts k+1 right most bits. */
00083
00084 int32 *F77zmask = &F77mask[1];
00085 int64 *F77llzmask = &F77llmask[1];