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
|
/*
This is the machine-specific part for the AMD64 (ne x86-64) architecture.
Copyright (C) 1995,1996,1997,1998,2000,2003,2004,2005,2006,2007,2008 Free Software Foundation, Inc.
This file is part of Gforth.
Gforth is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
as published by the Free Software Foundation, either version 3
of the License, or (at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, see http://www.gnu.org/licenses/.
*/
#if !defined(USE_TOS) && !defined(USE_NO_TOS)
#define USE_TOS
#endif
#ifndef USE_FTOS
#ifndef USE_NO_FTOS
#if 1 || defined(FORCE_REG)
#define USE_FTOS
#else
#define USE_NO_FTOS
#endif
#endif
#endif
#ifdef FORCE_LL
#if (__GNUC__<4 || (__GNUC==4 && __GNUC_MINOR__ < 2))
#define BUGGY_LL_D2F /* to float not possible */
#define BUGGY_LL_F2D /* from float not possible */
#endif
#define BUGGY_LL_SIZE /* long long "too short", so we use something else */
#endif
#define ASM_SM_SLASH_REM(d1lo, d1hi, n1, n2, n3) \
asm("idivq %4": "=a"(n3),"=d"(n2) : "a"(d1lo),"d"(d1hi),"g"(n1):"cc");
#define ASM_UM_SLASH_MOD(d1lo, d1hi, n1, n2, n3) \
asm("divq %4": "=a"(n3),"=d"(n2) : "a"(d1lo),"d"(d1hi),"g"(n1):"cc");
#include "../generic/machine.h"
/* The architecture requires hardware consistency */
#define FLUSH_ICACHE(addr,size)
/* globals are accessed in a PC-relative way and therefore make
primitives that access them nonrelocatable. If GLOBALS_NONRELOC is
defined, the engine accesses these variables through a local. */
/* #define GLOBALS_NONRELOC 1 */
/* The effect of GLOBALS_NONRELOC is as follows (gcc-4.2.0):
3GHz Xeon 5160 2.2GHz Athlon 64 X2
sieve bubble matrix fib sieve bubble matrix fib GLOBALS_NONRELOC
0.304 0.412 0.200 0.668 0.608 0.720 0.396 0.792 defined
0.284 0.388 0.176 0.472 0.588 0.760 0.860 0.884 undefined
The problem seems to be that the local is in memory, even with
explicit register allocation and efforts to stop coalescing.
*/
/* code padding */
#define CODE_ALIGNMENT 16
#define CODE_PADDING {0x66, 0x66, 0x66, 0x90, 0x66, 0x66, 0x66, 0x90, \
0x66, 0x66, 0x66, 0x90, 0x66, 0x66, 0x66, 0x90}
#define MAX_PADDING 4
/* results for various maxpaddings:
3GHz Xeon 5160 2.2GHz Athlon 64 X2
sieve bubble matrix fib padding sieve bubble matrix fib
0.132 0.216 0.072 0.228 0 0.260 0.300 0.108 0.344
0.132 0.216 0.072 0.228 1 0.268 0.300 0.112 0.344
0.132 0.216 0.072 0.248 2 0.256 0.300 0.108 0.344
0.136 0.216 0.072 0.248 3 0.252 0.300 0.108 0.344
0.132 0.220 0.072 0.240 4 0.252 0.300 0.112 0.340
0.136 0.216 0.072 0.248 5 0.252 0.300 0.108 0.344
0.132 0.216 0.072 0.244 6 0.256 0.300 0.108 0.344
0.132 0.216 0.072 0.244 7 0.264 0.300 0.108 0.344
0.136 0.216 0.072 0.244 8 0.268 0.296 0.108 0.340
*/
#if defined(FORCE_REG) && !defined(DOUBLY_INDIRECT) && !defined(VM_PROFILING)
#define RPREG asm("%r13")
#define FPREG asm("%r12")
#define TOSREG asm("%r14")
#define SPREG asm("%r15")
#define IPREG asm("%rbx")
#if 0
#define LPREG asm("%rbp") /* doesn't work now */
#endif
#define FTOSREG asm("%xmm8")
#endif
#define GOTO_ALIGN asm(".p2align 4,,7");
|
