mirror of
https://git.do.srb2.org/STJr/SRB2.git
synced 2024-11-22 12:31:32 +00:00
466 lines
22 KiB
C
466 lines
22 KiB
C
/*
|
|
Copyright (C) 1997-2023 Sam Lantinga <slouken@libsdl.org>
|
|
|
|
This software is provided 'as-is', without any express or implied
|
|
warranty. In no event will the authors be held liable for any damages
|
|
arising from the use of this software.
|
|
|
|
Permission is granted to anyone to use this software for any purpose,
|
|
including commercial applications, and to alter it and redistribute it
|
|
freely.
|
|
*/
|
|
|
|
#include <stdio.h>
|
|
|
|
#include "SDL.h"
|
|
|
|
/*
|
|
* Watcom C flags these as Warning 201: "Unreachable code" if you just
|
|
* compare them directly, so we push it through a function to keep the
|
|
* compiler quiet. --ryan.
|
|
*/
|
|
static int
|
|
badsize(size_t sizeoftype, size_t hardcodetype)
|
|
{
|
|
return sizeoftype != hardcodetype;
|
|
}
|
|
|
|
SDL_COMPILE_TIME_ASSERT(SDL_MAX_SINT8, SDL_MAX_SINT8 == 127);
|
|
SDL_COMPILE_TIME_ASSERT(SDL_MIN_SINT8, SDL_MIN_SINT8 == -128);
|
|
SDL_COMPILE_TIME_ASSERT(SDL_MAX_UINT8, SDL_MAX_UINT8 == 255);
|
|
SDL_COMPILE_TIME_ASSERT(SDL_MIN_UINT8, SDL_MIN_UINT8 == 0);
|
|
|
|
SDL_COMPILE_TIME_ASSERT(SDL_MAX_SINT16, SDL_MAX_SINT16 == 32767);
|
|
SDL_COMPILE_TIME_ASSERT(SDL_MIN_SINT16, SDL_MIN_SINT16 == -32768);
|
|
SDL_COMPILE_TIME_ASSERT(SDL_MAX_UINT16, SDL_MAX_UINT16 == 65535);
|
|
SDL_COMPILE_TIME_ASSERT(SDL_MIN_UINT16, SDL_MIN_UINT16 == 0);
|
|
|
|
SDL_COMPILE_TIME_ASSERT(SDL_MAX_SINT32, SDL_MAX_SINT32 == 2147483647);
|
|
SDL_COMPILE_TIME_ASSERT(SDL_MIN_SINT32, SDL_MIN_SINT32 == ~0x7fffffff); /* Instead of -2147483648, which is treated as unsigned by some compilers */
|
|
SDL_COMPILE_TIME_ASSERT(SDL_MAX_UINT32, SDL_MAX_UINT32 == 4294967295u);
|
|
SDL_COMPILE_TIME_ASSERT(SDL_MIN_UINT32, SDL_MIN_UINT32 == 0);
|
|
|
|
SDL_COMPILE_TIME_ASSERT(SDL_MAX_SINT64, SDL_MAX_SINT64 == 9223372036854775807ll);
|
|
SDL_COMPILE_TIME_ASSERT(SDL_MIN_SINT64, SDL_MIN_SINT64 == ~0x7fffffffffffffffll); /* Instead of -9223372036854775808, which is treated as unsigned by compilers */
|
|
SDL_COMPILE_TIME_ASSERT(SDL_MAX_UINT64, SDL_MAX_UINT64 == 18446744073709551615ull);
|
|
SDL_COMPILE_TIME_ASSERT(SDL_MIN_UINT64, SDL_MIN_UINT64 == 0);
|
|
|
|
int TestTypes(SDL_bool verbose)
|
|
{
|
|
int error = 0;
|
|
|
|
if (badsize(sizeof(Uint8), 1)) {
|
|
if (verbose) {
|
|
SDL_Log("sizeof(Uint8) != 1, instead = %u\n", (unsigned int)sizeof(Uint8));
|
|
}
|
|
++error;
|
|
}
|
|
if (badsize(sizeof(Uint16), 2)) {
|
|
if (verbose) {
|
|
SDL_Log("sizeof(Uint16) != 2, instead = %u\n", (unsigned int)sizeof(Uint16));
|
|
}
|
|
++error;
|
|
}
|
|
if (badsize(sizeof(Uint32), 4)) {
|
|
if (verbose) {
|
|
SDL_Log("sizeof(Uint32) != 4, instead = %u\n", (unsigned int)sizeof(Uint32));
|
|
}
|
|
++error;
|
|
}
|
|
if (badsize(sizeof(Uint64), 8)) {
|
|
if (verbose) {
|
|
SDL_Log("sizeof(Uint64) != 8, instead = %u\n", (unsigned int)sizeof(Uint64));
|
|
}
|
|
++error;
|
|
}
|
|
if (verbose && !error) {
|
|
SDL_Log("All data types are the expected size.\n");
|
|
}
|
|
|
|
return error ? 1 : 0;
|
|
}
|
|
|
|
int TestEndian(SDL_bool verbose)
|
|
{
|
|
int error = 0;
|
|
Uint16 value = 0x1234;
|
|
int real_byteorder;
|
|
int real_floatwordorder = 0;
|
|
Uint16 value16 = 0xCDAB;
|
|
Uint16 swapped16 = 0xABCD;
|
|
Uint32 value32 = 0xEFBEADDE;
|
|
Uint32 swapped32 = 0xDEADBEEF;
|
|
Uint64 value64, swapped64;
|
|
|
|
union
|
|
{
|
|
double d;
|
|
Uint32 ui32[2];
|
|
} value_double;
|
|
|
|
value64 = 0xEFBEADDE;
|
|
value64 <<= 32;
|
|
value64 |= 0xCDAB3412;
|
|
swapped64 = 0x1234ABCD;
|
|
swapped64 <<= 32;
|
|
swapped64 |= 0xDEADBEEF;
|
|
value_double.d = 3.141593;
|
|
|
|
if (verbose) {
|
|
SDL_Log("Detected a %s endian machine.\n",
|
|
(SDL_BYTEORDER == SDL_LIL_ENDIAN) ? "little" : "big");
|
|
}
|
|
if ((*((char *)&value) >> 4) == 0x1) {
|
|
real_byteorder = SDL_BIG_ENDIAN;
|
|
} else {
|
|
real_byteorder = SDL_LIL_ENDIAN;
|
|
}
|
|
if (real_byteorder != SDL_BYTEORDER) {
|
|
if (verbose) {
|
|
SDL_Log("Actually a %s endian machine!\n",
|
|
(real_byteorder == SDL_LIL_ENDIAN) ? "little" : "big");
|
|
}
|
|
++error;
|
|
}
|
|
if (verbose) {
|
|
SDL_Log("Detected a %s endian float word order machine.\n",
|
|
(SDL_FLOATWORDORDER == SDL_LIL_ENDIAN) ? "little" : "big");
|
|
}
|
|
if (value_double.ui32[0] == 0x82c2bd7f && value_double.ui32[1] == 0x400921fb) {
|
|
real_floatwordorder = SDL_LIL_ENDIAN;
|
|
} else if (value_double.ui32[0] == 0x400921fb && value_double.ui32[1] == 0x82c2bd7f) {
|
|
real_floatwordorder = SDL_BIG_ENDIAN;
|
|
}
|
|
if (real_floatwordorder != SDL_FLOATWORDORDER) {
|
|
if (verbose) {
|
|
SDL_Log("Actually a %s endian float word order machine!\n",
|
|
(real_floatwordorder == SDL_LIL_ENDIAN) ? "little" : (real_floatwordorder == SDL_BIG_ENDIAN) ? "big"
|
|
: "unknown");
|
|
}
|
|
++error;
|
|
}
|
|
if (verbose) {
|
|
SDL_Log("Value 16 = 0x%X, swapped = 0x%X\n", value16,
|
|
SDL_Swap16(value16));
|
|
}
|
|
if (SDL_Swap16(value16) != swapped16) {
|
|
if (verbose) {
|
|
SDL_Log("16 bit value swapped incorrectly!\n");
|
|
}
|
|
++error;
|
|
}
|
|
if (verbose) {
|
|
SDL_Log("Value 32 = 0x%" SDL_PRIX32 ", swapped = 0x%" SDL_PRIX32 "\n",
|
|
value32,
|
|
SDL_Swap32(value32));
|
|
}
|
|
if (SDL_Swap32(value32) != swapped32) {
|
|
if (verbose) {
|
|
SDL_Log("32 bit value swapped incorrectly!\n");
|
|
}
|
|
++error;
|
|
}
|
|
if (verbose) {
|
|
SDL_Log("Value 64 = 0x%" SDL_PRIX64 ", swapped = 0x%" SDL_PRIX64 "\n", value64,
|
|
SDL_Swap64(value64));
|
|
}
|
|
if (SDL_Swap64(value64) != swapped64) {
|
|
if (verbose) {
|
|
SDL_Log("64 bit value swapped incorrectly!\n");
|
|
}
|
|
++error;
|
|
}
|
|
return error ? 1 : 0;
|
|
}
|
|
|
|
static int TST_allmul(void *a, void *b, int arg, void *result, void *expected)
|
|
{
|
|
(*(long long *)result) = ((*(long long *)a) * (*(long long *)b));
|
|
return (*(long long *)result) == (*(long long *)expected);
|
|
}
|
|
|
|
static int TST_alldiv(void *a, void *b, int arg, void *result, void *expected)
|
|
{
|
|
(*(long long *)result) = ((*(long long *)a) / (*(long long *)b));
|
|
return (*(long long *)result) == (*(long long *)expected);
|
|
}
|
|
|
|
static int TST_allrem(void *a, void *b, int arg, void *result, void *expected)
|
|
{
|
|
(*(long long *)result) = ((*(long long *)a) % (*(long long *)b));
|
|
return (*(long long *)result) == (*(long long *)expected);
|
|
}
|
|
|
|
static int TST_ualldiv(void *a, void *b, int arg, void *result, void *expected)
|
|
{
|
|
(*(unsigned long long *)result) = ((*(unsigned long long *)a) / (*(unsigned long long *)b));
|
|
return (*(unsigned long long *)result) == (*(unsigned long long *)expected);
|
|
}
|
|
|
|
static int TST_uallrem(void *a, void *b, int arg, void *result, void *expected)
|
|
{
|
|
(*(unsigned long long *)result) = ((*(unsigned long long *)a) % (*(unsigned long long *)b));
|
|
return (*(unsigned long long *)result) == (*(unsigned long long *)expected);
|
|
}
|
|
|
|
static int TST_allshl(void *a, void *b, int arg, void *result, void *expected)
|
|
{
|
|
(*(long long *)result) = (*(long long *)a) << arg;
|
|
return (*(long long *)result) == (*(long long *)expected);
|
|
}
|
|
|
|
static int TST_aullshl(void *a, void *b, int arg, void *result, void *expected)
|
|
{
|
|
(*(unsigned long long *)result) = (*(unsigned long long *)a) << arg;
|
|
return (*(unsigned long long *)result) == (*(unsigned long long *)expected);
|
|
}
|
|
|
|
static int TST_allshr(void *a, void *b, int arg, void *result, void *expected)
|
|
{
|
|
(*(long long *)result) = (*(long long *)a) >> arg;
|
|
return (*(long long *)result) == (*(long long *)expected);
|
|
}
|
|
|
|
static int TST_aullshr(void *a, void *b, int arg, void *result, void *expected)
|
|
{
|
|
(*(unsigned long long *)result) = (*(unsigned long long *)a) >> arg;
|
|
return (*(unsigned long long *)result) == (*(unsigned long long *)expected);
|
|
}
|
|
|
|
typedef int (*LL_Intrinsic)(void *a, void *b, int arg, void *result, void *expected);
|
|
|
|
typedef struct
|
|
{
|
|
const char *operation;
|
|
LL_Intrinsic routine;
|
|
unsigned long long a, b;
|
|
int arg;
|
|
unsigned long long expected_result;
|
|
} LL_Test;
|
|
|
|
static LL_Test LL_Tests[] = {
|
|
/* UNDEFINED {"_allshl", &TST_allshl, 0xFFFFFFFFFFFFFFFFll, 0ll, 65, 0x0000000000000000ll}, */
|
|
{ "_allshl", &TST_allshl, 0xFFFFFFFFFFFFFFFFll, 0ll, 1, 0xFFFFFFFFFFFFFFFEll },
|
|
{ "_allshl", &TST_allshl, 0xFFFFFFFFFFFFFFFFll, 0ll, 32, 0xFFFFFFFF00000000ll },
|
|
{ "_allshl", &TST_allshl, 0xFFFFFFFFFFFFFFFFll, 0ll, 33, 0xFFFFFFFE00000000ll },
|
|
{ "_allshl", &TST_allshl, 0xFFFFFFFFFFFFFFFFll, 0ll, 0, 0xFFFFFFFFFFFFFFFFll },
|
|
|
|
{ "_allshr", &TST_allshr, 0xAAAAAAAA55555555ll, 0ll, 63, 0xFFFFFFFFFFFFFFFFll },
|
|
/* UNDEFINED {"_allshr", &TST_allshr, 0xFFFFFFFFFFFFFFFFll, 0ll, 65, 0xFFFFFFFFFFFFFFFFll}, */
|
|
{ "_allshr", &TST_allshr, 0xFFFFFFFFFFFFFFFFll, 0ll, 1, 0xFFFFFFFFFFFFFFFFll },
|
|
{ "_allshr", &TST_allshr, 0xFFFFFFFFFFFFFFFFll, 0ll, 32, 0xFFFFFFFFFFFFFFFFll },
|
|
{ "_allshr", &TST_allshr, 0xFFFFFFFFFFFFFFFFll, 0ll, 33, 0xFFFFFFFFFFFFFFFFll },
|
|
{ "_allshr", &TST_allshr, 0xFFFFFFFFFFFFFFFFll, 0ll, 0, 0xFFFFFFFFFFFFFFFFll },
|
|
/* UNDEFINED {"_allshr", &TST_allshr, 0x5F5F5F5F5F5F5F5Fll, 0ll, 65, 0x0000000000000000ll}, */
|
|
{ "_allshr", &TST_allshr, 0x5F5F5F5F5F5F5F5Fll, 0ll, 1, 0x2FAFAFAFAFAFAFAFll },
|
|
{ "_allshr", &TST_allshr, 0x5F5F5F5F5F5F5F5Fll, 0ll, 32, 0x000000005F5F5F5Fll },
|
|
{ "_allshr", &TST_allshr, 0x5F5F5F5F5F5F5F5Fll, 0ll, 33, 0x000000002FAFAFAFll },
|
|
|
|
/* UNDEFINED {"_aullshl", &TST_aullshl, 0xFFFFFFFFFFFFFFFFll, 0ll, 65, 0x0000000000000000ll}, */
|
|
{ "_aullshl", &TST_aullshl, 0xFFFFFFFFFFFFFFFFll, 0ll, 1, 0xFFFFFFFFFFFFFFFEll },
|
|
{ "_aullshl", &TST_aullshl, 0xFFFFFFFFFFFFFFFFll, 0ll, 32, 0xFFFFFFFF00000000ll },
|
|
{ "_aullshl", &TST_aullshl, 0xFFFFFFFFFFFFFFFFll, 0ll, 33, 0xFFFFFFFE00000000ll },
|
|
{ "_aullshl", &TST_aullshl, 0xFFFFFFFFFFFFFFFFll, 0ll, 0, 0xFFFFFFFFFFFFFFFFll },
|
|
|
|
/* UNDEFINED {"_aullshr", &TST_aullshr, 0xFFFFFFFFFFFFFFFFll, 0ll, 65, 0x0000000000000000ll}, */
|
|
{ "_aullshr", &TST_aullshr, 0xFFFFFFFFFFFFFFFFll, 0ll, 1, 0x7FFFFFFFFFFFFFFFll },
|
|
{ "_aullshr", &TST_aullshr, 0xFFFFFFFFFFFFFFFFll, 0ll, 32, 0x00000000FFFFFFFFll },
|
|
{ "_aullshr", &TST_aullshr, 0xFFFFFFFFFFFFFFFFll, 0ll, 33, 0x000000007FFFFFFFll },
|
|
{ "_aullshr", &TST_aullshr, 0xFFFFFFFFFFFFFFFFll, 0ll, 0, 0xFFFFFFFFFFFFFFFFll },
|
|
|
|
{ "_allmul", &TST_allmul, 0xFFFFFFFFFFFFFFFFll, 0x0000000000000000ll, 0, 0x0000000000000000ll },
|
|
{ "_allmul", &TST_allmul, 0x0000000000000000ll, 0xFFFFFFFFFFFFFFFFll, 0, 0x0000000000000000ll },
|
|
{ "_allmul", &TST_allmul, 0x000000000FFFFFFFll, 0x0000000000000001ll, 0, 0x000000000FFFFFFFll },
|
|
{ "_allmul", &TST_allmul, 0x0000000000000001ll, 0x000000000FFFFFFFll, 0, 0x000000000FFFFFFFll },
|
|
{ "_allmul", &TST_allmul, 0x000000000FFFFFFFll, 0x0000000000000010ll, 0, 0x00000000FFFFFFF0ll },
|
|
{ "_allmul", &TST_allmul, 0x0000000000000010ll, 0x000000000FFFFFFFll, 0, 0x00000000FFFFFFF0ll },
|
|
{ "_allmul", &TST_allmul, 0x000000000FFFFFFFll, 0x0000000000000100ll, 0, 0x0000000FFFFFFF00ll },
|
|
{ "_allmul", &TST_allmul, 0x0000000000000100ll, 0x000000000FFFFFFFll, 0, 0x0000000FFFFFFF00ll },
|
|
{ "_allmul", &TST_allmul, 0x000000000FFFFFFFll, 0x0000000010000000ll, 0, 0x00FFFFFFF0000000ll },
|
|
{ "_allmul", &TST_allmul, 0x0000000010000000ll, 0x000000000FFFFFFFll, 0, 0x00FFFFFFF0000000ll },
|
|
{ "_allmul", &TST_allmul, 0x000000000FFFFFFFll, 0x0000000080000000ll, 0, 0x07FFFFFF80000000ll },
|
|
{ "_allmul", &TST_allmul, 0x0000000080000000ll, 0x000000000FFFFFFFll, 0, 0x07FFFFFF80000000ll },
|
|
{ "_allmul", &TST_allmul, 0xFFFFFFFFFFFFFFFEll, 0x0000000080000000ll, 0, 0xFFFFFFFF00000000ll },
|
|
{ "_allmul", &TST_allmul, 0x0000000080000000ll, 0xFFFFFFFFFFFFFFFEll, 0, 0xFFFFFFFF00000000ll },
|
|
{ "_allmul", &TST_allmul, 0xFFFFFFFFFFFFFFFEll, 0x0000000080000008ll, 0, 0xFFFFFFFEFFFFFFF0ll },
|
|
{ "_allmul", &TST_allmul, 0x0000000080000008ll, 0xFFFFFFFFFFFFFFFEll, 0, 0xFFFFFFFEFFFFFFF0ll },
|
|
{ "_allmul", &TST_allmul, 0x00000000FFFFFFFFll, 0x00000000FFFFFFFFll, 0, 0xFFFFFFFE00000001ll },
|
|
|
|
{ "_alldiv", &TST_alldiv, 0x0000000000000000ll, 0x0000000000000001ll, 0, 0x0000000000000000ll },
|
|
{ "_alldiv", &TST_alldiv, 0x0000000000000000ll, 0xFFFFFFFFFFFFFFFFll, 0, 0x0000000000000000ll },
|
|
{ "_alldiv", &TST_alldiv, 0x0000000000000001ll, 0xFFFFFFFFFFFFFFFFll, 0, 0xFFFFFFFFFFFFFFFFll },
|
|
{ "_alldiv", &TST_alldiv, 0xFFFFFFFFFFFFFFFFll, 0x0000000000000001ll, 0, 0xFFFFFFFFFFFFFFFFll },
|
|
{ "_alldiv", &TST_alldiv, 0x0000000000000001ll, 0xFFFFFFFFFFFFFFFFll, 0, 0xFFFFFFFFFFFFFFFFll },
|
|
{ "_alldiv", &TST_alldiv, 0x0000000000000001ll, 0x0000000000000001ll, 0, 0x0000000000000001ll },
|
|
{ "_alldiv", &TST_alldiv, 0xFFFFFFFFFFFFFFFFll, 0xFFFFFFFFFFFFFFFFll, 0, 0x0000000000000001ll },
|
|
{ "_alldiv", &TST_alldiv, 0x000000000FFFFFFFll, 0x0000000000000001ll, 0, 0x000000000FFFFFFFll },
|
|
{ "_alldiv", &TST_alldiv, 0x0000000FFFFFFFFFll, 0x0000000000000010ll, 0, 0x00000000FFFFFFFFll },
|
|
{ "_alldiv", &TST_alldiv, 0x0000000000000100ll, 0x000000000FFFFFFFll, 0, 0x0000000000000000ll },
|
|
{ "_alldiv", &TST_alldiv, 0x00FFFFFFF0000000ll, 0x0000000010000000ll, 0, 0x000000000FFFFFFFll },
|
|
{ "_alldiv", &TST_alldiv, 0x07FFFFFF80000000ll, 0x0000000080000000ll, 0, 0x000000000FFFFFFFll },
|
|
{ "_alldiv", &TST_alldiv, 0xFFFFFFFFFFFFFFFEll, 0x0000000080000000ll, 0, 0x0000000000000000ll },
|
|
{ "_alldiv", &TST_alldiv, 0xFFFFFFFEFFFFFFF0ll, 0xFFFFFFFFFFFFFFFEll, 0, 0x0000000080000008ll },
|
|
{ "_alldiv", &TST_alldiv, 0x7FFFFFFEFFFFFFF0ll, 0xFFFFFFFFFFFFFFFEll, 0, 0xC000000080000008ll },
|
|
{ "_alldiv", &TST_alldiv, 0x7FFFFFFEFFFFFFF0ll, 0x0000FFFFFFFFFFFEll, 0, 0x0000000000007FFFll },
|
|
{ "_alldiv", &TST_alldiv, 0x7FFFFFFEFFFFFFF0ll, 0x7FFFFFFEFFFFFFF0ll, 0, 0x0000000000000001ll },
|
|
|
|
{ "_allrem", &TST_allrem, 0x0000000000000000ll, 0x0000000000000001ll, 0, 0x0000000000000000ll },
|
|
{ "_allrem", &TST_allrem, 0x0000000000000000ll, 0xFFFFFFFFFFFFFFFFll, 0, 0x0000000000000000ll },
|
|
{ "_allrem", &TST_allrem, 0x0000000000000001ll, 0xFFFFFFFFFFFFFFFFll, 0, 0x0000000000000000ll },
|
|
{ "_allrem", &TST_allrem, 0xFFFFFFFFFFFFFFFFll, 0x0000000000000001ll, 0, 0x0000000000000000ll },
|
|
{ "_allrem", &TST_allrem, 0x0000000000000001ll, 0xFFFFFFFFFFFFFFFFll, 0, 0x0000000000000000ll },
|
|
{ "_allrem", &TST_allrem, 0x0000000000000001ll, 0x0000000000000001ll, 0, 0x0000000000000000ll },
|
|
{ "_allrem", &TST_allrem, 0xFFFFFFFFFFFFFFFFll, 0xFFFFFFFFFFFFFFFFll, 0, 0x0000000000000000ll },
|
|
{ "_allrem", &TST_allrem, 0x000000000FFFFFFFll, 0x0000000000000001ll, 0, 0x0000000000000000ll },
|
|
{ "_allrem", &TST_allrem, 0x0000000FFFFFFFFFll, 0x0000000000000010ll, 0, 0x000000000000000Fll },
|
|
{ "_allrem", &TST_allrem, 0x0000000000000100ll, 0x000000000FFFFFFFll, 0, 0x0000000000000100ll },
|
|
{ "_allrem", &TST_allrem, 0x00FFFFFFF0000000ll, 0x0000000010000000ll, 0, 0x0000000000000000ll },
|
|
{ "_allrem", &TST_allrem, 0x07FFFFFF80000000ll, 0x0000000080000000ll, 0, 0x0000000000000000ll },
|
|
{ "_allrem", &TST_allrem, 0xFFFFFFFFFFFFFFFEll, 0x0000000080000000ll, 0, 0xFFFFFFFFFFFFFFFEll },
|
|
{ "_allrem", &TST_allrem, 0xFFFFFFFEFFFFFFF0ll, 0xFFFFFFFFFFFFFFFEll, 0, 0x0000000000000000ll },
|
|
{ "_allrem", &TST_allrem, 0x7FFFFFFEFFFFFFF0ll, 0xFFFFFFFFFFFFFFFEll, 0, 0x0000000000000000ll },
|
|
{ "_allrem", &TST_allrem, 0x7FFFFFFEFFFFFFF0ll, 0x0000FFFFFFFFFFFEll, 0, 0x0000FFFF0000FFEEll },
|
|
{ "_allrem", &TST_allrem, 0x7FFFFFFEFFFFFFF0ll, 0x7FFFFFFEFFFFFFF0ll, 0, 0x0000000000000000ll },
|
|
|
|
{ "_ualldiv", &TST_ualldiv, 0x0000000000000000ll, 0x0000000000000001ll, 0, 0x0000000000000000ll },
|
|
{ "_ualldiv", &TST_ualldiv, 0x0000000000000000ll, 0xFFFFFFFFFFFFFFFFll, 0, 0x0000000000000000ll },
|
|
{ "_ualldiv", &TST_ualldiv, 0x0000000000000001ll, 0xFFFFFFFFFFFFFFFFll, 0, 0x0000000000000000ll },
|
|
{ "_ualldiv", &TST_ualldiv, 0xFFFFFFFFFFFFFFFFll, 0x0000000000000001ll, 0, 0xFFFFFFFFFFFFFFFFll },
|
|
{ "_ualldiv", &TST_ualldiv, 0x0000000000000001ll, 0xFFFFFFFFFFFFFFFFll, 0, 0x0000000000000000ll },
|
|
{ "_ualldiv", &TST_ualldiv, 0x0000000000000001ll, 0x0000000000000001ll, 0, 0x0000000000000001ll },
|
|
{ "_ualldiv", &TST_ualldiv, 0xFFFFFFFFFFFFFFFFll, 0xFFFFFFFFFFFFFFFFll, 0, 0x0000000000000001ll },
|
|
{ "_ualldiv", &TST_ualldiv, 0x000000000FFFFFFFll, 0x0000000000000001ll, 0, 0x000000000FFFFFFFll },
|
|
{ "_ualldiv", &TST_ualldiv, 0x0000000FFFFFFFFFll, 0x0000000000000010ll, 0, 0x00000000FFFFFFFFll },
|
|
{ "_ualldiv", &TST_ualldiv, 0x0000000000000100ll, 0x000000000FFFFFFFll, 0, 0x0000000000000000ll },
|
|
{ "_ualldiv", &TST_ualldiv, 0x00FFFFFFF0000000ll, 0x0000000010000000ll, 0, 0x000000000FFFFFFFll },
|
|
{ "_ualldiv", &TST_ualldiv, 0x07FFFFFF80000000ll, 0x0000000080000000ll, 0, 0x000000000FFFFFFFll },
|
|
{ "_ualldiv", &TST_ualldiv, 0xFFFFFFFFFFFFFFFEll, 0x0000000080000000ll, 0, 0x00000001FFFFFFFFll },
|
|
{ "_ualldiv", &TST_ualldiv, 0xFFFFFFFEFFFFFFF0ll, 0xFFFFFFFFFFFFFFFEll, 0, 0x0000000000000000ll },
|
|
{ "_ualldiv", &TST_ualldiv, 0x7FFFFFFEFFFFFFF0ll, 0xFFFFFFFFFFFFFFFEll, 0, 0x0000000000000000ll },
|
|
{ "_ualldiv", &TST_ualldiv, 0x7FFFFFFEFFFFFFF0ll, 0x0000FFFFFFFFFFFEll, 0, 0x0000000000007FFFll },
|
|
{ "_ualldiv", &TST_ualldiv, 0x7FFFFFFEFFFFFFF0ll, 0x7FFFFFFEFFFFFFF0ll, 0, 0x0000000000000001ll },
|
|
|
|
{ "_uallrem", &TST_uallrem, 0x0000000000000000ll, 0x0000000000000001ll, 0, 0x0000000000000000ll },
|
|
{ "_uallrem", &TST_uallrem, 0x0000000000000000ll, 0xFFFFFFFFFFFFFFFFll, 0, 0x0000000000000000ll },
|
|
{ "_uallrem", &TST_uallrem, 0x0000000000000001ll, 0xFFFFFFFFFFFFFFFFll, 0, 0x0000000000000001ll },
|
|
{ "_uallrem", &TST_uallrem, 0xFFFFFFFFFFFFFFFFll, 0x0000000000000001ll, 0, 0x0000000000000000ll },
|
|
{ "_uallrem", &TST_uallrem, 0x0000000000000001ll, 0xFFFFFFFFFFFFFFFFll, 0, 0x0000000000000001ll },
|
|
{ "_uallrem", &TST_uallrem, 0x0000000000000001ll, 0x0000000000000001ll, 0, 0x0000000000000000ll },
|
|
{ "_uallrem", &TST_uallrem, 0xFFFFFFFFFFFFFFFFll, 0xFFFFFFFFFFFFFFFFll, 0, 0x0000000000000000ll },
|
|
{ "_uallrem", &TST_uallrem, 0x000000000FFFFFFFll, 0x0000000000000001ll, 0, 0x0000000000000000ll },
|
|
{ "_uallrem", &TST_uallrem, 0x0000000FFFFFFFFFll, 0x0000000000000010ll, 0, 0x000000000000000Fll },
|
|
{ "_uallrem", &TST_uallrem, 0x0000000000000100ll, 0x000000000FFFFFFFll, 0, 0x0000000000000100ll },
|
|
{ "_uallrem", &TST_uallrem, 0x00FFFFFFF0000000ll, 0x0000000010000000ll, 0, 0x0000000000000000ll },
|
|
{ "_uallrem", &TST_uallrem, 0x07FFFFFF80000000ll, 0x0000000080000000ll, 0, 0x0000000000000000ll },
|
|
{ "_uallrem", &TST_uallrem, 0xFFFFFFFFFFFFFFFEll, 0x0000000080000000ll, 0, 0x000000007FFFFFFEll },
|
|
{ "_uallrem", &TST_uallrem, 0xFFFFFFFEFFFFFFF0ll, 0xFFFFFFFFFFFFFFFEll, 0, 0xFFFFFFFEFFFFFFF0ll },
|
|
{ "_uallrem", &TST_uallrem, 0x7FFFFFFEFFFFFFF0ll, 0xFFFFFFFFFFFFFFFEll, 0, 0x7FFFFFFEFFFFFFF0ll },
|
|
{ "_uallrem", &TST_uallrem, 0x7FFFFFFEFFFFFFF0ll, 0x0000FFFFFFFFFFFEll, 0, 0x0000FFFF0000FFEEll },
|
|
{ "_uallrem", &TST_uallrem, 0x7FFFFFFEFFFFFFF0ll, 0x7FFFFFFEFFFFFFF0ll, 0, 0x0000000000000000ll },
|
|
|
|
{ NULL }
|
|
};
|
|
|
|
int Test64Bit(SDL_bool verbose)
|
|
{
|
|
LL_Test *t;
|
|
int failed = 0;
|
|
|
|
for (t = LL_Tests; t->routine != NULL; t++) {
|
|
unsigned long long result = 0;
|
|
unsigned int *al = (unsigned int *)&t->a;
|
|
unsigned int *bl = (unsigned int *)&t->b;
|
|
unsigned int *el = (unsigned int *)&t->expected_result;
|
|
unsigned int *rl = (unsigned int *)&result;
|
|
|
|
if (!t->routine(&t->a, &t->b, t->arg, &result, &t->expected_result)) {
|
|
if (verbose) {
|
|
SDL_Log("%s(0x%08X%08X, 0x%08X%08X, %3d, produced: 0x%08X%08X, expected: 0x%08X%08X\n", t->operation, al[1], al[0], bl[1], bl[0],
|
|
t->arg, rl[1], rl[0], el[1], el[0]);
|
|
}
|
|
++failed;
|
|
}
|
|
}
|
|
if (verbose && (failed == 0)) {
|
|
SDL_Log("All 64bit instrinsic tests passed\n");
|
|
}
|
|
return failed ? 1 : 0;
|
|
}
|
|
|
|
int TestCPUInfo(SDL_bool verbose)
|
|
{
|
|
if (verbose) {
|
|
SDL_Log("CPU count: %d\n", SDL_GetCPUCount());
|
|
SDL_Log("CPU cache line size: %d\n", SDL_GetCPUCacheLineSize());
|
|
SDL_Log("RDTSC %s\n", SDL_HasRDTSC() ? "detected" : "not detected");
|
|
SDL_Log("AltiVec %s\n", SDL_HasAltiVec() ? "detected" : "not detected");
|
|
SDL_Log("MMX %s\n", SDL_HasMMX() ? "detected" : "not detected");
|
|
SDL_Log("3DNow! %s\n", SDL_Has3DNow() ? "detected" : "not detected");
|
|
SDL_Log("SSE %s\n", SDL_HasSSE() ? "detected" : "not detected");
|
|
SDL_Log("SSE2 %s\n", SDL_HasSSE2() ? "detected" : "not detected");
|
|
SDL_Log("SSE3 %s\n", SDL_HasSSE3() ? "detected" : "not detected");
|
|
SDL_Log("SSE4.1 %s\n", SDL_HasSSE41() ? "detected" : "not detected");
|
|
SDL_Log("SSE4.2 %s\n", SDL_HasSSE42() ? "detected" : "not detected");
|
|
SDL_Log("AVX %s\n", SDL_HasAVX() ? "detected" : "not detected");
|
|
SDL_Log("AVX2 %s\n", SDL_HasAVX2() ? "detected" : "not detected");
|
|
SDL_Log("AVX-512F %s\n", SDL_HasAVX512F() ? "detected" : "not detected");
|
|
SDL_Log("ARM SIMD %s\n", SDL_HasARMSIMD() ? "detected" : "not detected");
|
|
SDL_Log("NEON %s\n", SDL_HasNEON() ? "detected" : "not detected");
|
|
SDL_Log("LSX %s\n", SDL_HasLSX() ? "detected" : "not detected");
|
|
SDL_Log("LASX %s\n", SDL_HasLASX() ? "detected" : "not detected");
|
|
SDL_Log("System RAM %d MB\n", SDL_GetSystemRAM());
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
int TestAssertions(SDL_bool verbose)
|
|
{
|
|
SDL_assert(1);
|
|
SDL_assert_release(1);
|
|
SDL_assert_paranoid(1);
|
|
SDL_assert(0 || 1);
|
|
SDL_assert_release(0 || 1);
|
|
SDL_assert_paranoid(0 || 1);
|
|
|
|
#if 0 /* enable this to test assertion failures. */
|
|
SDL_assert_release(1 == 2);
|
|
SDL_assert_release(5 < 4);
|
|
SDL_assert_release(0 && "This is a test");
|
|
#endif
|
|
|
|
{
|
|
const SDL_AssertData *item = SDL_GetAssertionReport();
|
|
while (item) {
|
|
SDL_Log("'%s', %s (%s:%d), triggered %u times, always ignore: %s.\n",
|
|
item->condition, item->function, item->filename,
|
|
item->linenum, item->trigger_count,
|
|
item->always_ignore ? "yes" : "no");
|
|
item = item->next;
|
|
}
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
int main(int argc, char *argv[])
|
|
{
|
|
SDL_bool verbose = SDL_TRUE;
|
|
int status = 0;
|
|
|
|
/* Enable standard application logging */
|
|
SDL_LogSetPriority(SDL_LOG_CATEGORY_APPLICATION, SDL_LOG_PRIORITY_INFO);
|
|
|
|
if (argv[1] && (SDL_strcmp(argv[1], "-q") == 0)) {
|
|
verbose = SDL_FALSE;
|
|
}
|
|
if (verbose) {
|
|
SDL_Log("This system is running %s\n", SDL_GetPlatform());
|
|
}
|
|
|
|
status += TestTypes(verbose);
|
|
status += TestEndian(verbose);
|
|
status += Test64Bit(verbose);
|
|
status += TestCPUInfo(verbose);
|
|
status += TestAssertions(verbose);
|
|
|
|
return status;
|
|
}
|