gnu.h

Go to the documentation of this file.

/*--------------------------------------------------------------------------------------------
 * /
 * / apeNEXT/non-apeNext macros and functions for nlcc/g++
 * /
 * / $Id: gnu.h,v 1.5 2005/10/27 20:04:44 morinl Exp $
 * /
 * / #include <gnu.h>
 * /
 * / IMPLEMENTATION for APEnext: done, tested        (gnu.h)                [completed yes]
 * /
 * / Notes:
 * /           Definition of macros and functions for consistent use with g++, 
 * /           except for apeNEXT specific cases.
 * /           gnu_init() should be called a the beginning of main().
 * / Author:   
 * /           Olaf Kaczmarek (okacz@physik.uni-bielefeld.de) 
 * /---------------------------------------------------------------------------------------------*/
 
#ifndef _GNU_H_
#define _GNU_H_

#include <nlibc.h>

#if defined(__NLCC__) && defined(apenext)

#define complex(a,b) {a,b}
#define vector(a,b) {a,b}

#else

#include <complex.h>
#include <inttypes.h>
#include <stdio.h>
#include <stdlib.h>
#include <fpu_control.h>

#define complex double_complex
#define float double
#define int int64_t

typedef struct { double lo; double hi; } vector;

void write_int(int y)
{
  if(y>=0xffffffffLL || y<0)
    printf("0x%llx \n",(int)y);
  else
    printf("%lld  \n",(int)y);
}

#define write_double(y) printf("%1.15e \n",y)
#define write_float(y) printf("%1.15e \n",y)
#define write_complex(y) printf("(%1.15e,%1.15e) \n",real(y),imag(y))
#define write_vector(y) printf("(%1.15e,%1.15e)\n",y.lo,y.hi)
#define write_string(y) printf("%s",y)

#ifndef __HAS_MAIN
extern void write_double_array(double *y, int x);
#else
#if !defined(__cflow_processed) || defined(_uses_write_double_array_time_h)
void write_double_array(double *y, int x)
{
  int i; 

  for(i=0;i<x;i++)
    {
      printf("%1.15e ",*y);
      y++;
    }
  printf("\n");
}
#endif
#endif // __HAS_MAIN

#ifndef __HAS_MAIN
extern void write_int_array(int *y, int x);
#else
#if !defined(__cflow_processed) || defined(_uses_write_int_array_time_h)
void write_int_array(int *y, int x)
{
  int i; 

  for(i=0;i<x;i++)
    {
      if(*y>=0xffffffffLL || *y<0)
        printf("0x%llx ",(int)*y);
      else
        printf("%lld  ",(int)*y);
      y++;
    }
  printf("\n");
}
#endif
#endif // __HAS_MAIN

#ifndef __HAS_MAIN
extern void write_complex_array(complex *y, int x);
#else
#if !defined(__cflow_processed) || defined(_uses_write_complex_array_time_h)
void write_complex_array(complex *y, int x)
{
  int i; 

  for(i=0;i<x;i++)
    {
      printf("(%1.15e,%1.15e) ",real(*y),imag(*y));
      y++;
    }
  printf("\n");
}
#endif
#endif // __HAS_MAIN

#ifndef __HAS_MAIN
extern void write_vector_array(vector *y, int x);
#else
#if !defined(__cflow_processed) || defined(_uses_write_vector_array_time_h)
void write_vector_array(vector *y, int x)
{
  int i; 

  for(i=0;i<x;i++)
    {
      printf("(%1.15e,%1.15e)",y->lo,y->hi);
      y++;
    }
  printf("\n");
}
#endif
#endif // __HAS_MAIN

#if defined(__GNUC__) && defined(__i386__)
static void __attribute__ ((constructor))
gnu_init()
{
        fpu_control_t cw;
        _FPU_GETCW(cw);
        cw &= ~(_FPU_EXTENDED);
        cw |= _FPU_DOUBLE;
        _FPU_SETCW(cw);
  printf("here\n");
}
#endif

#endif


#endif // _GNU_H_

---