Open64 (mfef90, whirl2f, and IR tools): osprey1.0/libF77/bittab.c Source File

Go to the documentation of this file.
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];