Mail Archives: djgpp-workers/2003/09/28/12:56:50
--part1_1ad.1a156e05.2ca86cc4_boundary
Content-Type: multipart/alternative;
boundary="part1_1ad.1a156e05.2ca86cc4_alt_boundary"
--part1_1ad.1a156e05.2ca86cc4_alt_boundary
Content-Type: text/plain; charset="US-ASCII"
Content-Transfer-Encoding: 7bit
Rich Dawe:
In a message dated 9/28/2003 8:01:27 AM Eastern Standard Time,
rich AT phekda DOT freeserve DOT co DOT uk writes:
>
> * keepthis.h? Build broken, until I have that file.
>
>
That is a work in progress, too. It is appended. Please forgive the
oversight. Eventually, keepthis.h will become part of genmathv.h and will no longer
be needed.
The code in ../tgen is being modified continuously because I am writing and
testing new functions of type double from C99 -- stuff like round(), llround(),
llrint() and trunc().
KB Williams
--part1_1ad.1a156e05.2ca86cc4_alt_boundary
Content-Type: text/html; charset="US-ASCII"
Content-Transfer-Encoding: quoted-printable
<HTML><FONT FACE=3Darial,helvetica><FONT SIZE=3D3 FAMILY=3D"SERIF" FACE=3D"=
Georgia" LANG=3D"0">Rich Dawe:<BR>
<BR>
In a message dated 9/28/2003 8:01:27 AM Eastern Standard Time, rich AT phekda DOT f=
reeserve.co.uk writes:<BR>
<BR>
<BLOCKQUOTE TYPE=3DCITE style=3D"BORDER-LEFT: #0000ff 2px solid; MARGIN-LEFT=
: 5px; MARGIN-RIGHT: 0px; PADDING-LEFT: 5px"></FONT><FONT COLOR=3D"#000000"=
style=3D"BACKGROUND-COLOR: #ffffff" SIZE=3D2 FAMILY=3D"SANSSERIF" FACE=3D"A=
rial" LANG=3D"0"><BR>
* keepthis.h? Build broken, until I have that file.<BR>
<BR>
</BLOCKQUOTE><BR>
</FONT><FONT COLOR=3D"#000000" style=3D"BACKGROUND-COLOR: #ffffff" SIZE=3D3=
FAMILY=3D"SERIF" FACE=3D"Georgia" LANG=3D"0"><BR>
That is a work in progress, too. It is appended. Please forgive=20=
the oversight. Eventually, keepthis.h will become part of genmathv.h a=
nd will no longer be needed.<BR>
<BR>
The code in ../tgen is being modified continuously because I am writing and=20=
testing new functions of type double from C99 -- stuff like round(), llround=
(), llrint() and trunc().<BR>
<BR>
<BR>
KB Williams</FONT></HTML>
--part1_1ad.1a156e05.2ca86cc4_alt_boundary--
--part1_1ad.1a156e05.2ca86cc4_boundary
Content-Type: text/plain; name="keepthis.h"
Content-Transfer-Encoding: quoted-printable
Content-Disposition: inline; filename="keepthis.h"
# if defined WRITE_DOUBLE_VECTORS
# =09if defined USE_WRITE_2_VECTOR || defined USE_WRITE_3_VECTOR
#=09=09if defined USE_WRITE_2_VECTOR
// -----------------------------------------------------------------
// Write2VectorDbl - Writes next one-parameter test vector to stdout
// -----------------------------------------------------------------
static=09void
Write2VectorDbl(int MeasBit, double ArgY, double ArgX, double Exp, int ErrEx=
p)
{
ULLONG Argument1Bits, Argument2Bits;
ULLONG ExpectedBits;
MapDblToInt(ArgY, Argument1Bits);
MapDblToInt(ArgX, Argument2Bits);
MapDblToInt(Exp, ExpectedBits);
printf("{%d, %d, 0,__LINE__, 0x%016Lx, 0x%016Lx, 0x%016Lx, },"
=09=09"\t/* %+.4E%s=3DF(%+8.4g,%+8.4g) */\n", MeasBit, ErrExp,
=09=09ExpectedBits, Argument1Bits, Argument2Bits,
=09=09Exp, (isinf(Exp) || isnan(Exp)) ? " " : "",
=09=09ArgY, ArgX);
=09=09fflush(NULL);
}
#=09=09endif // End USE_WRITE_2_VECTOR / WRITE_DOUBLE_VECTORS
#=09=09if defined USE_WRITE_3_VECTOR
#=09=09endif // End USE_WRITE_3_VECTOR / WRITE_DOUBLE_VECTORS
# else // End USE_WRITE_2_VECTOR / WRITE_DOUBLE_VECTORS
// ----------------------------------------------------------------
// WriteVectorDbl - Writes next one-parameter test vector to stdout
// ----------------------------------------------------------------
static=09void
WriteVectorDbl(int MeasBit, double Arg, double Exp, int ErrExp)
{
ULLONG ArgumentBits;
ULLONG ExpectedBits;
MapDblToInt(Arg, ArgumentBits);
MapDblToInt(Exp, ExpectedBits);
printf("{%d, %d, 0,__LINE__, 0x%016Lx, 0x%016Lx, },"
=09=09"\t/* %+.4E%s=3DF(%+8.4g) */\n", MeasBit, ErrExp,
=09=09ExpectedBits, ArgumentBits,
=09=09Exp, (isinf(Exp) || isnan(Exp)) ? " " : "",
=09=09Arg);
=09=09fflush(NULL);
}
#=09endif=09// End else part of USE_WRITE_2_VECTOR / WRITE_DOUBLE_VECTORS
#=09if defined WRITE_DBL_RND_VECTOR
// -------------------------------------------------------------------------
// WriteVectorDblRnd - Writes to stdout test vectors with rounding mode for
//=09=09=09functions with one parameter of type double
// ------------------------------------------------------------------------
static=09void
WriteVectorDblRnd(int MeasBit, double Arg, double Exp, int ErrExp, int RndMo=
de)
{
ULLONG ArgumentBits;
ULLONG ExpectedBits;
MapDblToInt(Arg, ArgumentBits);
MapDblToInt(Exp, ExpectedBits);
printf("{%d, %d, 0x%04x,__LINE__, 0x%016Lx, 0x%016Lx, },"
=09=09"\t/* %+.4lE%s=3DF(%+.8lg) */\n", MeasBit, ErrExp, RndMode,
=09=09ExpectedBits, ArgumentBits,
=09=09Exp, (isinf(Exp) || isnan(Exp)) ? " " : "",
=09=09Arg);
=09=09fflush(NULL);
}
#=09endif // WRITE_DBL_RND_VECTOR
# endif
# if defined WRITE_FLOAT_VECTORS
# =09if defined USE_WRITE_2_VECTOR || defined USE_WRITE_3_VECTOR
#=09=09if defined USE_WRITE_2_VECTOR
// -----------------------------------------------------------------
// Write2VectorFlt - Writes next one-parameter test vector to stdout
// -----------------------------------------------------------------
static=09void
Write2VectorFlt(int MeasBit, float ArgY, float ArgX, float Exp, int ErrExp)
{
ULONG Argument1Bits, Argument2Bits;
ULLONG ExpectedBits;
MapFltToInt(ArgY, Argument1Bits);
MapFltToInt(ArgX, Argument2Bits);
MapFltToInt(Exp, ExpectedBits);
printf("{%d, %d, 0,__LINE__, 0x%016Lx, 0x%08lx, 0x%08lx, },"
=09=09"\t/* %+.4E%s=3DF(%+8.4g,%+8.4g) */\n", MeasBit, ErrExp,
=09=09ExpectedBits, Argument1Bits, Argument2Bits,
=09=09Exp, (isinf(Exp) || isnan(Exp)) ? " " : "",
=09=09ArgY, ArgX);
=09=09fflush(NULL);
}
#=09=09endif // End USE_WRITE_2_VECTOR / WRITE_FLOAT_VECTORS
#=09=09if defined USE_WRITE_3_VECTOR
#=09=09endif // End USE_WRITE_3_VECTOR / WRITE_FLOAT_VECTORS
# else // End USE_WRITE_2_VECTOR / WRITE_FLOAT_VECTORS
// ----------------------------------------------------------------
// WriteVectorFlt - Writes next one-parameter test vector to stdout
// ----------------------------------------------------------------
static=09void
WriteVectorFlt(int MeasBit, float Arg, float Exp, int ErrExp)
{
ULONG ArgumentBits;
ULLONG ExpectedBits;
MapFltToInt(Arg, ArgumentBits);
MapFltToInt(Exp, ExpectedBits);
printf("{%d, %d, 0,__LINE__, 0x%016Lx, 0x%08lx, },"
=09=09"\t/* %+.4E%s=3DF(%+8.4g) */\n", MeasBit, ErrExp,
=09=09ExpectedBits, ArgumentBits,
=09=09Exp, (isinf(Exp) || isnan(Exp)) ? " " : "",
=09=09Arg);
=09=09fflush(NULL);
}
#=09endif
# endif
--part1_1ad.1a156e05.2ca86cc4_boundary--
- Raw text -