mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-27 13:30:31 +02:00
3e5a12f747
Many thanks to Trent Nelson from snakebite.org for giving access to a build farm with several different architectures and operating systems. * check/lightning.c, lib/jit_disasm.c, lib/jit_ppc-cpu.c, lib/jit_ppc-fpu.c, lib/jit_ppc.c, include/lightning.h, include/lightning/jit_ppc.h, include/lightning/jit_private.h: Adapt code to work on 32 bit AIX ppc using gcc. Most changes are basically to adapt the elf64 logic to 32 bit, as it does not use the same convention of 32 bit Darwin ppc. * check/stack.tst: Add a fake memcpy function to the test case if running under AIX, as it is not available to dlsym. * configure.ac: Check for getopt.h header, not available in AIX.
137 lines
3.3 KiB
C
137 lines
3.3 KiB
C
/*
|
|
* Copyright (C) 2012, 2013 Free Software Foundation, Inc.
|
|
*
|
|
* This 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 software 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.
|
|
*
|
|
* Authors:
|
|
* Paulo Cesar Pereira de Andrade
|
|
*/
|
|
|
|
#ifndef _jit_ppc_h
|
|
#define _jit_ppc_h
|
|
|
|
#define JIT_HASH_CONSTS 1
|
|
#define JIT_NUM_OPERANDS 3
|
|
|
|
/*
|
|
* Types
|
|
*/
|
|
typedef enum {
|
|
#define jit_arg_reg_p(i) ((i) >= 0 && (i) < 8)
|
|
#define jit_r(i) (_R11 + (i))
|
|
#define jit_r_num() 3
|
|
#if __ppc__
|
|
# define jit_v(i) (_R30 - (i))
|
|
# define jit_v_num() 17
|
|
#else
|
|
# define jit_v(i) (_R27 - (i))
|
|
# define jit_v_num() 14
|
|
#endif
|
|
#define jit_arg_f_reg_p(i) ((i) >= 0 && (i) < 13)
|
|
#define jit_f(i) (_F14 + (i))
|
|
#define jit_f_num() 6
|
|
_R0,
|
|
#if __ppc__
|
|
# define JIT_R0 _R11
|
|
# define JIT_R1 _R12
|
|
# define JIT_R2 _R13
|
|
#else
|
|
# define JIT_R0 _R28
|
|
# define JIT_R1 _R29
|
|
# define JIT_R2 _R30
|
|
#endif
|
|
_R11, _R12, _R13, _R2,
|
|
#define JIT_V0 jit_v(0)
|
|
#define JIT_V1 jit_v(1)
|
|
#define JIT_V2 jit_v(2)
|
|
#define JIT_V3 jit_v(3)
|
|
#define JIT_V4 jit_v(4)
|
|
#define JIT_V5 jit_v(5)
|
|
#define JIT_V6 jit_v(6)
|
|
#define JIT_V7 jit_v(7)
|
|
#define JIT_V8 jit_v(8)
|
|
#define JIT_V9 jit_v(9)
|
|
#define JIT_V10 jit_v(10)
|
|
#define JIT_V11 jit_v(11)
|
|
#define JIT_V12 jit_v(12)
|
|
#define JIT_V13 jit_v(13)
|
|
#if __ppc__
|
|
# define JIT_V14 jit_v(14)
|
|
# define JIT_V15 jit_v(15)
|
|
# define JIT_V16 jit_v(16)
|
|
#endif
|
|
_R14, _R15, _R16, _R17, _R18, _R19, _R20, _R21,
|
|
_R22, _R23, _R24, _R25, _R26, _R27, _R28, _R29,
|
|
_R30,
|
|
_R1,
|
|
#define JIT_FP _R31
|
|
_R31,
|
|
#define JIT_RA0 _R3
|
|
#define JIT_RA1 _R4
|
|
#define JIT_RA2 _R5
|
|
#define JIT_RA3 _R6
|
|
#define JIT_RA4 _R7
|
|
#define JIT_RA5 _R8
|
|
#define JIT_RA6 _R9
|
|
#define JIT_RA7 _R10
|
|
_R10, _R9, _R8, _R7, _R6, _R5, _R4, _R3,
|
|
_F0,
|
|
#define JIT_FS0 _F14
|
|
#define JIT_FS1 _F15
|
|
#define JIT_FS2 _F16
|
|
#define JIT_FS3 _F17
|
|
#define JIT_FS4 _F18
|
|
#define JIT_FS5 _F19
|
|
#define JIT_FS6 _F20
|
|
#define JIT_FS7 _F21
|
|
#define JIT_FS8 _F22
|
|
#define JIT_FS9 _F23
|
|
#define JIT_FS10 _F24
|
|
#define JIT_FS11 _F25
|
|
#define JIT_FS12 _F26
|
|
#define JIT_FS13 _F27
|
|
#define JIT_FS14 _F28
|
|
#define JIT_FS15 _F29
|
|
#define JIT_FS16 _F30
|
|
#define JIT_FS17 _F31
|
|
_F14, _F15, _F16, _F17, _F18, _F19, _F20, _F21,
|
|
#define JIT_F0 _F14
|
|
#define JIT_F1 _F15
|
|
#define JIT_F2 _F16
|
|
#define JIT_F3 _F17
|
|
#define JIT_F4 _F18
|
|
#define JIT_F5 _F19
|
|
/* FIXME _F20-_F31 not (easily) accesible and only _F14-_F21
|
|
* saved/restored (if used) */
|
|
_F22, _F23, _F24, _F25, _F26, _F27, _F28, _F29,
|
|
_F30, _F31,
|
|
#define JIT_FA0 _F1
|
|
#define JIT_FA1 _F2
|
|
#define JIT_FA2 _F3
|
|
#define JIT_FA3 _F4
|
|
#define JIT_FA4 _F5
|
|
#define JIT_FA5 _F6
|
|
#define JIT_FA6 _F7
|
|
#define JIT_FA7 _F8
|
|
#define JIT_FA8 _F9
|
|
#define JIT_FA9 _F10
|
|
#define JIT_FA10 _F11
|
|
#define JIT_FA11 _F12
|
|
#define JIT_FA12 _F13
|
|
_F13, _F12, _F11, _F10, _F9, _F8, _F7, _F6,
|
|
_F5, _F4, _F3, _F2, _F1,
|
|
_NOREG,
|
|
#define JIT_NOREG _NOREG
|
|
} jit_reg_t;
|
|
|
|
typedef jit_int64_t jit_regset_t;
|
|
|
|
#endif /* _jit_ppc_h */
|