aboutsummaryrefslogtreecommitdiff
path: root/sim/d10v/endian.c
blob: e9fce7d69c4e76c99c812bc5c938f4e97a50b209 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
/* If we're being compiled as a .c file, rather than being included in
   d10v_sim.h, then ENDIAN_INLINE won't be defined yet.  */

#ifndef ENDIAN_INLINE
#define NO_ENDIAN_INLINE
#include "d10v_sim.h"
#define ENDIAN_INLINE
#endif

ENDIAN_INLINE uint16
get_word (uint8 *x)
{
#if (defined(__i386__) || defined(__i486__) || defined(__i586__) || defined(__i686__)) && defined(__GNUC__)

  unsigned short word = *(unsigned short *)x;
  __asm__ ("xchgb %b0,%h0" : "=q" (word) : "0" (word));
  return word;

#elif defined(WORDS_BIGENDIAN)
  /* It is safe to do this on big endian hosts, since the d10v requires that words be
     aligned on 16-bit boundaries.  */
  return *(uint16 *)x;

#else
  return ((uint16)x[0]<<8) + x[1];
#endif
}

ENDIAN_INLINE uint32
get_longword (uint8 *x)
{
#if (defined(__i486__) || defined(__i586__) || defined(__i686__)) && defined(__GNUC__) && defined(USE_BSWAP)

  unsigned int long_word = *(unsigned *)x;
  __asm__ ("bswap %0" : "=r" (long_word) : "0" (long_word));
  return long_word;

#elif (defined(__i386__) || defined(__i486__) || defined(__i586__) || defined(__i686__)) && defined(__GNUC__)

  unsigned int long_word = *(unsigned *)x;
  __asm__("xchgb %b0,%h0\n\t"		/* swap lower bytes	*/
	  "rorl $16,%0\n\t"		/* swap words		*/
	  "xchgb %b0,%h0"		/* swap higher bytes	*/
	  :"=q" (long_word)
	  : "0" (long_word));

  return long_word;

#elif (defined(_POWER) && defined(_AIX)) || (defined(__PPC__) && defined(__BIG_ENDIAN__))
  /* Power & PowerPC computers in big endian mode can handle unaligned loads&stores */
  return *(uint32 *)x;

#elif defined(WORDS_BIGENDIAN)
  /* long words must be aligned on at least 16-bit boundaries, so this should be safe.  */
  return (((uint32) *(uint16 *)x)<<16) | ((uint32) *(uint16 *)(x+2));

#else
  return ((uint32)x[0]<<24) + ((uint32)x[1]<<16) + ((uint32)x[2]<<8) + ((uint32)x[3]);
#endif
}

ENDIAN_INLINE int64
get_longlong (uint8 *x)
{
  uint32 top = get_longword (x);
  uint32 bottom = get_longword (x+4);
  return (((int64)top)<<32) | (int64)bottom;
}

ENDIAN_INLINE void
write_word (uint8 *addr, uint16 data)
{
#if (defined(__i386__) || defined(__i486__) || defined(__i586__) || defined(__i686__)) && defined(__GNUC__)

  __asm__ ("xchgb %b0,%h0" : "=q" (data) : "0" (data));
  *(uint16 *)addr = data;

#elif defined(WORDS_BIGENDIAN)
  /* It is safe to do this on big endian hosts, since the d10v requires that words be
     aligned on 16-bit boundaries.  */
  *(uint16 *)addr = data;

#else
  addr[0] = (data >> 8) & 0xff;
  addr[1] = data & 0xff;
#endif
}

ENDIAN_INLINE void
write_longword (uint8 *addr, uint32 data)
{
#if (defined(__i486__) || defined(__i586__) || defined(__i686__)) && defined(__GNUC__) && defined(USE_BSWAP)

  __asm__ ("bswap %0" : "=r" (data) : "0" (data));
  *(uint32 *)addr = data;

#elif (defined(__i386__) || defined(__i486__) || defined(__i586__) || defined(__i686__)) && defined(__GNUC__)

  __asm__("xchgb %b0,%h0\n\t"		/* swap lower bytes	*/
	  "rorl $16,%0\n\t"		/* swap words		*/
	  "xchgb %b0,%h0"		/* swap higher bytes	*/
	  :"=q" (data)
	  : "0" (data));

  *(uint32 *)addr = data;

#elif (defined(_POWER) && defined(_AIX)) || (defined(__PPC__) && defined(__BIG_ENDIAN__))
  /* Power & PowerPC computers in big endian mode can handle unaligned loads&stores */
  *(uint32 *)addr = data;

#elif defined(WORDS_BIGENDIAN)
  *(uint16 *)addr = (uint16)(data >> 16);
  *(uint16 *)(addr + 2) = (uint16)data;

#else
  addr[0] = (data >> 24) & 0xff;
  addr[1] = (data >> 16) & 0xff;
  addr[2] = (data >> 8) & 0xff;
  addr[3] = data & 0xff;
#endif
}

ENDIAN_INLINE void
write_longlong (uint8 *addr, int64 data)
{
  write_longword (addr, (uint32)(data >> 32));
  write_longword (addr+4, (uint32)data);
}