127 lines
2.9 KiB
Plaintext
127 lines
2.9 KiB
Plaintext
/* ACC -- Automatic Compiler Configuration
|
|
|
|
Copyright (C) 1996-2004 Markus Franz Xaver Johannes Oberhumer
|
|
All Rights Reserved.
|
|
|
|
This software is a copyrighted work licensed under the terms of
|
|
the GNU General Public License. Please consult the file "ACC_LICENSE"
|
|
for details.
|
|
|
|
Markus F.X.J. Oberhumer
|
|
<markus@oberhumer.com>
|
|
http://www.oberhumer.com/
|
|
*/
|
|
|
|
|
|
/*************************************************************************
|
|
//
|
|
**************************************************************************/
|
|
|
|
#if !defined(__ACCCHKR_FUNCNAME)
|
|
# define __ACCCHKR_FUNCNAME(f) accchkr_ ## f
|
|
#endif
|
|
|
|
|
|
|
|
#if !defined(ACCCHKR_ASSERT)
|
|
|
|
#if 0 || defined(ACCCHKR_CONFIG_DEBUG)
|
|
|
|
#include <stdio.h>
|
|
static int __ACCCHKR_FUNCNAME(assert_fail)(const char* s, unsigned l)
|
|
{
|
|
fprintf(stderr, "ACCCHKR assertion failed in line %u: `%s'\n", l, s);
|
|
return 0;
|
|
}
|
|
#define ACCCHKR_ASSERT(expr) ((expr) ? 1 : __ACCCHKR_FUNCNAME(assert_fail)(#expr,__LINE__))
|
|
|
|
#else
|
|
|
|
#define ACCCHKR_ASSERT(expr) ((expr) ? 1 : 0)
|
|
|
|
#endif
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/* avoid inlining */
|
|
static int __ACCCHKR_FUNCNAME(schedule_insns_bug)(void);
|
|
static int __ACCCHKR_FUNCNAME(strength_reduce_bug)(int*);
|
|
|
|
|
|
/*************************************************************************
|
|
// main entry
|
|
**************************************************************************/
|
|
|
|
static int __ACCCHKR_FUNCNAME(check)(int r)
|
|
{
|
|
#if defined(ACC_ENDIAN_BIG_ENDIAN)
|
|
{
|
|
union { long l; unsigned char c[sizeof(long)]; } u;
|
|
u.l = 0; u.c[sizeof(long)-1] = 0x80;
|
|
r &= ACCCHKR_ASSERT(u.l == 128);
|
|
u.l = 0; u.c[0] = 0x80;
|
|
r &= ACCCHKR_ASSERT(u.l < 0);
|
|
ACC_UNUSED(u);
|
|
}
|
|
#endif
|
|
#if defined(ACC_ENDIAN_LITTLE_ENDIAN)
|
|
{
|
|
union { long l; unsigned char c[sizeof(long)]; } u;
|
|
u.l = 0; u.c[0] = 0x80;
|
|
r &= ACCCHKR_ASSERT(u.l == 128);
|
|
u.l = 0; u.c[sizeof(long)-1] = 0x80;
|
|
r &= ACCCHKR_ASSERT(u.l < 0);
|
|
ACC_UNUSED(u);
|
|
}
|
|
#endif
|
|
|
|
/* check for the gcc schedule-insns optimization bug */
|
|
if (r == 1)
|
|
{
|
|
r &= ACCCHKR_ASSERT(!__ACCCHKR_FUNCNAME(schedule_insns_bug()));
|
|
}
|
|
|
|
/* check for the gcc strength-reduce optimization bug */
|
|
if (r == 1)
|
|
{
|
|
static int x[3];
|
|
static unsigned xn = 3;
|
|
register unsigned j;
|
|
|
|
for (j = 0; j < xn; j++)
|
|
x[j] = (int)j - 3;
|
|
r &= ACCCHKR_ASSERT(!__ACCCHKR_FUNCNAME(strength_reduce_bug(x)));
|
|
}
|
|
|
|
return r;
|
|
}
|
|
|
|
|
|
/*************************************************************************
|
|
//
|
|
**************************************************************************/
|
|
|
|
static int __ACCCHKR_FUNCNAME(schedule_insns_bug)(void)
|
|
{
|
|
const int a[] = {1, 2, 0}; const int* b;
|
|
b = a; return (*b) ? 0 : 1;
|
|
}
|
|
|
|
|
|
static int __ACCCHKR_FUNCNAME(strength_reduce_bug)(int* x)
|
|
{
|
|
#if 0 && (ACC_CC_DMC || ACC_CC_SYMANTECC || ACC_CC_ZORTECHC)
|
|
ACC_UNUSED(x); return 0;
|
|
#else
|
|
return x[0] != -3 || x[1] != -2 || x[2] != -1;
|
|
#endif
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
vi:ts=4:et
|
|
*/
|