opcodeqint.h

Go to the documentation of this file.

/*
    Copyright (C) 1998-2000 by Andrew Zabolotny
  
    This library is free software; you can redistribute it and/or
    modify it under the terms of the GNU Library General Public
    License as published by the Free Software Foundation; either
    version 2 of the License, or (at your option) any later version.
  
    This library 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
    Library General Public License for more details.
  
    You should have received a copy of the GNU Library General Public
    License along with this library; if not, write to the Free
    Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*/

#ifndef __QINT_H__
#define __QINT_H__

#if defined (CS_IEEE_DOUBLE_FORMAT)

#ifdef CS_BIG_ENDIAN
#  define CS_LOWER_WORD_BYTE    4
#else
#  define CS_LOWER_WORD_BYTE    0
#endif

#define CS_LONG_AT_BYTE(x,b)    *(long *)(((char *)&x) + b)

#define FIST_MAGIC_QINT   (65536.0 * 65536.0 * 16.0)


#ifdef CS_QINT_WORKAROUND
static inline long QInt (double inval)
{
  union { double dtemp; long result; } x;

  x.dtemp = FIST_MAGIC_QINT + inval;
  x.result = CS_LONG_AT_BYTE (x.dtemp, 2);
  return x.result < 0 ? (x.result >> 1) + 1 : x.result;
}
#else
static inline long QInt (double inval)
{
  double dtemp = FIST_MAGIC_QINT + inval;
  // Note that on both low-endian (x86) and big-endian (m68k) we have
  // to shift by two bytes. So no need for an #ifdef.
  long result = CS_LONG_AT_BYTE (dtemp, 2);
  return result < 0 ? (result >> 1) + 1 : result;
}
#endif

#define FIST_MAGIC_QROUND (((65536.0 * 65536.0 * 16.0) + (65536.0 * 0.5)) * 65536.0)

static inline long QRound (double inval)
{
  double dtemp = FIST_MAGIC_QROUND + inval;
  return CS_LONG_AT_BYTE (dtemp, CS_LOWER_WORD_BYTE) - 0x80000000;
}

#define FIST_MAGIC_QINT8 (((65536.0 * 16.0) + 0.5) * 65536.0 * 256.0)

inline long QInt8 (float inval)
{
  double dtemp = FIST_MAGIC_QINT8 + inval;
  return CS_LONG_AT_BYTE (dtemp, CS_LOWER_WORD_BYTE) - 0x80000000;
}

#define FIST_MAGIC_QINT16 (((65536.0 * 16.0) + 0.5) * 65536.0)

inline long QInt16 (float inval)
{
  double dtemp = FIST_MAGIC_QINT16 + inval;
  return CS_LONG_AT_BYTE (dtemp, CS_LOWER_WORD_BYTE) - 0x80000000;
}

#define FIST_MAGIC_QINT24 (((65536.0 * 16.0) + 0.5) * 256.0)

inline long QInt24 (float inval)
{
  double dtemp = FIST_MAGIC_QINT24 + inval;
  return CS_LONG_AT_BYTE (dtemp, CS_LOWER_WORD_BYTE) - 0x80000000;
}
    
#else /* not CS_IEEE_DOUBLE_FORMAT */

#define QRound(x) (int ((x) + ((x < 0) ? -0.5 : +0.5)))
#define QInt(x)   (int (x))
#define QInt8(x)  (int ((x)*256.))
#define QInt16(x) (int ((x)*65536.))
#define QInt24(x) (int ((x)*16777216.))

#endif /* CS_IEEE_DOUBLE_FORMAT */

#endif // __QINT_H__