> We are pleased to announce the availability of two new machines, cfarm215
> and cfarm216. They run the latest Solaris 11.4 SRU (Support Repository
> Update). The first one is based on a recent Intel x86 CPU, while the
> second one is based on a SPARC T8-1 CPU.
Thanks a lot for these machines!
> Basic development packages are installed from the Solaris support
> repository.
Unfortunately, the /opt/developerstudio12.6/bin/cc compiler on these
machines is a bit of a joke^H^H^H^Hjerk. It cannot compile packages that
use GNU obstacks:
In 32-bit mode:
$ cc -c i32.c
"i32.c", line 61: internal compiler error: ir_process_arrloc_tree: bad arrloc
tree
cc: acomp failed for i32.c
In 64-bit mode:
$ cc -m64 -c i64.c
"i64.c", line 61: internal compiler error: ir_process_arrloc_tree: bad arrloc
tree
cc: acomp failed for i64.c
Fortunately gcc is present (and clang as well).
Bruno
typedef int ptrdiff_t;
typedef unsigned int size_t;
typedef unsigned long long uint64_t;
typedef uint64_t uintmax_t;
typedef unsigned long int gl_uintptr_t;
struct _obstack_chunk
{
char *limit;
struct _obstack_chunk *prev;
char contents[];
};
struct obstack
{
size_t chunk_size;
struct _obstack_chunk *chunk;
char *object_base;
char *next_free;
char *chunk_limit;
union
{
size_t i;
void *p;
} temp;
size_t alignment_mask;
union
{
void *(*plain) (size_t);
void *(*extra) (void *, size_t);
} chunkfun;
union
{
void (*plain) (void *);
void (*extra) (void *, void *);
} freefun;
void *extra_arg;
unsigned use_extra_arg : 1;
unsigned maybe_empty_object : 1;
unsigned alloc_failed : 1;
};
extern __attribute__ ( ( __noreturn__ ) ) void (*obstack_alloc_failed_handler) (void);
extern void * call_chunkfun (struct obstack *h, size_t size);
int
_obstack_begin_worker (struct obstack *h,
size_t size, size_t alignment)
{
struct _obstack_chunk *chunk;
if (alignment == 0)
alignment = ( ( _Alignof ( long double ) ) > ( ( ( _Alignof ( uintmax_t ) ) > ( _Alignof ( void * ) ) ? ( _Alignof ( uintmax_t ) ) : ( _Alignof ( void * ) ) ) ) ? ( _Alignof ( long double ) ) : ( ( ( _Alignof ( uintmax_t ) ) > ( _Alignof ( void * ) ) ? ( _Alignof ( uintmax_t ) ) : ( _Alignof ( void * ) ) ) ) );
if (size == 0)
{
int extra = ((((12 + ( ( sizeof ( long double ) ) > ( ( ( sizeof ( uintmax_t ) ) > ( sizeof ( void * ) ) ? ( sizeof ( uintmax_t ) ) : ( sizeof ( void * ) ) ) ) ? ( sizeof ( long double ) ) : ( ( ( sizeof ( uintmax_t ) ) > ( sizeof ( void * ) ) ? ( sizeof ( uintmax_t ) ) : ( sizeof ( void * ) ) ) ) ) - 1) & ~( ( ( sizeof ( long double ) ) > ( ( ( sizeof ( uintmax_t ) ) > ( sizeof ( void * ) ) ? ( sizeof ( uintmax_t ) ) : ( sizeof ( void * ) ) ) ) ? ( sizeof ( long double ) ) : ( ( ( sizeof ( uintmax_t ) ) > ( sizeof ( void * ) ) ? ( sizeof ( uintmax_t ) ) : ( sizeof ( void * ) ) ) ) ) - 1))
+ 4 + ( ( sizeof ( long double ) ) > ( ( ( sizeof ( uintmax_t ) ) > ( sizeof ( void * ) ) ? ( sizeof ( uintmax_t ) ) : ( sizeof ( void * ) ) ) ) ? ( sizeof ( long double ) ) : ( ( ( sizeof ( uintmax_t ) ) > ( sizeof ( void * ) ) ? ( sizeof ( uintmax_t ) ) : ( sizeof ( void * ) ) ) ) ) - 1)
& ~( ( ( sizeof ( long double ) ) > ( ( ( sizeof ( uintmax_t ) ) > ( sizeof ( void * ) ) ? ( sizeof ( uintmax_t ) ) : ( sizeof ( void * ) ) ) ) ? ( sizeof ( long double ) ) : ( ( ( sizeof ( uintmax_t ) ) > ( sizeof ( void * ) ) ? ( sizeof ( uintmax_t ) ) : ( sizeof ( void * ) ) ) ) ) - 1));
size = 4096 - extra;
}
h->chunk_size = size;
h->alignment_mask = alignment - 1;
chunk = h->chunk = call_chunkfun (h, h->chunk_size);
if (!chunk)
(*obstack_alloc_failed_handler) ();
h->next_free = h->object_base = ( sizeof ( ptrdiff_t ) < sizeof ( void * ) ? ( ( char * ) chunk ) + ( ( ( chunk -> contents ) - ( ( char * ) chunk ) + ( alignment - 1 ) ) & ~ ( alignment - 1 ) ) : ( chunk -> contents ) + ( ( - ( gl_uintptr_t ) ( chunk -> contents ) ) & ( alignment - 1 ) ) ) ;
h->chunk_limit = chunk->limit = (char *) chunk + h->chunk_size;
chunk->prev = 0;
h->maybe_empty_object = 0;
h->alloc_failed = 0;
return 1;
}
typedef long ptrdiff_t;
typedef unsigned long size_t;
typedef unsigned long uint64_t;
typedef uint64_t uintmax_t;
typedef unsigned long int gl_uintptr_t;
struct _obstack_chunk
{
char *limit;
struct _obstack_chunk *prev;
char contents[];
};
struct obstack
{
size_t chunk_size;
struct _obstack_chunk *chunk;
char *object_base;
char *next_free;
char *chunk_limit;
union
{
size_t i;
void *p;
} temp;
size_t alignment_mask;
union
{
void *(*plain) (size_t);
void *(*extra) (void *, size_t);
} chunkfun;
union
{
void (*plain) (void *);
void (*extra) (void *, void *);
} freefun;
void *extra_arg;
unsigned use_extra_arg : 1;
unsigned maybe_empty_object : 1;
unsigned alloc_failed : 1;
};
extern __attribute__ ( ( __noreturn__ ) ) void (*obstack_alloc_failed_handler) (void);
extern void * call_chunkfun (struct obstack *h, size_t size);
int
_obstack_begin_worker (struct obstack *h,
size_t size, size_t alignment)
{
struct _obstack_chunk *chunk;
if (alignment == 0)
alignment = ( ( _Alignof ( long double ) ) > ( ( ( _Alignof ( uintmax_t ) ) > ( _Alignof ( void * ) ) ? ( _Alignof ( uintmax_t ) ) : ( _Alignof ( void * ) ) ) ) ? ( _Alignof ( long double ) ) : ( ( ( _Alignof ( uintmax_t ) ) > ( _Alignof ( void * ) ) ? ( _Alignof ( uintmax_t ) ) : ( _Alignof ( void * ) ) ) ) );
if (size == 0)
{
int extra = ((((12 + ( ( sizeof ( long double ) ) > ( ( ( sizeof ( uintmax_t ) ) > ( sizeof ( void * ) ) ? ( sizeof ( uintmax_t ) ) : ( sizeof ( void * ) ) ) ) ? ( sizeof ( long double ) ) : ( ( ( sizeof ( uintmax_t ) ) > ( sizeof ( void * ) ) ? ( sizeof ( uintmax_t ) ) : ( sizeof ( void * ) ) ) ) ) - 1) & ~( ( ( sizeof ( long double ) ) > ( ( ( sizeof ( uintmax_t ) ) > ( sizeof ( void * ) ) ? ( sizeof ( uintmax_t ) ) : ( sizeof ( void * ) ) ) ) ? ( sizeof ( long double ) ) : ( ( ( sizeof ( uintmax_t ) ) > ( sizeof ( void * ) ) ? ( sizeof ( uintmax_t ) ) : ( sizeof ( void * ) ) ) ) ) - 1))
+ 4 + ( ( sizeof ( long double ) ) > ( ( ( sizeof ( uintmax_t ) ) > ( sizeof ( void * ) ) ? ( sizeof ( uintmax_t ) ) : ( sizeof ( void * ) ) ) ) ? ( sizeof ( long double ) ) : ( ( ( sizeof ( uintmax_t ) ) > ( sizeof ( void * ) ) ? ( sizeof ( uintmax_t ) ) : ( sizeof ( void * ) ) ) ) ) - 1)
& ~( ( ( sizeof ( long double ) ) > ( ( ( sizeof ( uintmax_t ) ) > ( sizeof ( void * ) ) ? ( sizeof ( uintmax_t ) ) : ( sizeof ( void * ) ) ) ) ? ( sizeof ( long double ) ) : ( ( ( sizeof ( uintmax_t ) ) > ( sizeof ( void * ) ) ? ( sizeof ( uintmax_t ) ) : ( sizeof ( void * ) ) ) ) ) - 1));
size = 4096 - extra;
}
h->chunk_size = size;
h->alignment_mask = alignment - 1;
chunk = h->chunk = call_chunkfun (h, h->chunk_size);
if (!chunk)
(*obstack_alloc_failed_handler) ();
h->next_free = h->object_base = ( sizeof ( ptrdiff_t ) < sizeof ( void * ) ? ( ( char * ) chunk ) + ( ( ( chunk -> contents ) - ( ( char * ) chunk ) + ( alignment - 1 ) ) & ~ ( alignment - 1 ) ) : ( chunk -> contents ) + ( ( - ( gl_uintptr_t ) ( chunk -> contents ) ) & ( alignment - 1 ) ) ) ;
h->chunk_limit = chunk->limit = (char *) chunk + h->chunk_size;
chunk->prev = 0;
h->maybe_empty_object = 0;
h->alloc_failed = 0;
return 1;
}
_______________________________________________
cfarm-users mailing list
cfarm-users@lists.tetaneutral.net
https://lists.tetaneutral.net/listinfo/cfarm-users
