mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-02 21:10:27 +02:00
7a1c455237
2012-12-02 Paulo Andrade <pcpa@gnu.org> * tests/Makefile.am, tests/3to2.c, tests/3to2.ok, tests/add.c, tests/add.ok, tests/allocai.c, tests/allocai.ok, tests/bp.c, tests/bp.ok, tests/divi.c, tests/divi.ok, tests/fib.c, tests/fib.ok, tests/fibdelay.c, tests/fibdelay.ok, tests/fibit.c, tests/fibit.ok, tests/funcfp.c, tests/funcfp.ok, tests/incr.c, tests/incr.ok, tests/ldst.c, tests/ldst.ok, tests/ldxi.c, tests/ldxi.ok, tests/modi.c, tests/modi.ok, tests/movi.c, tests/movi.ok, tests/printf.c, tests/printf.ok, tests/printf2.c, tests/printf2.ok, tests/ret.c, tests/ret.ok, tests/rpn.c, tests/rpn.ok, tests/rpnfp.c, tests/rpnfp.ok, tests/sete.c, tests/sete.ok, tests/testfp.c, tests/testfp.ok, tests-run-test: Removed previous test suite, in favor of a newer one in the check subdirectory. * check/3to2.ok, check/3to2.tst, check/add.ok, check/add.tst, check/allocai.ok, check/allocai.tst, check/bp.ok, check/bp.tst, check/divi.ok, check/divi.tst, check/fib.ok, check/fib.tst: New sample input for the new test program, loosely matching several of the previous test cases. * check/Makefile.am: New test suite makefile. * check/check.sh, check/run-test: New wrapper files for the new test suite. * check/lightning.c: New file. The main driver of the new test suite, that compiles to a parser of a very simple assembly like language, generates jit and executes it. * check/all.tst: New file. A generic debug and sample test file with a directive to prevent it from being executed, and useful to read disassembly of all possible instructions, using a fixed set of registers. * include/Makefile.am, include/lightning.h, include/lightning/Makefile.am, include/lightning/jit_arm.h, include/lightning/jit_mips.h, include/lightning/jit_ppc.h, include/lightning/jit_private.h, include/lightning/jit_x86.h, lib/Makefile.am, lib/jit_disasm.c, lib/jit_print.c, lib/jit_x86-cpu.c, lib/jit_x86-sse.c, lib/jit_x86-x87.c, lib/jit_x86.c, lib/lightning.c: New files. These files are written from scratch, only by <pcpa@gnu.org>, and have now copyright assignment to the FSF. This is the core of the new lightning rework. Previously it was integrated in code with a garbage collector and several custom types like vectors and hash tables, so this first code merge with lightning converts that code into a library extracting only the jit bits, and at first only for x86_64 GNU/Linux. * lightning.h, m4/lightning.m4: Removed. These are no longer required in the new lightning code. .gitignore, Makefile.am, configure.ac: Update for the new lightning code.
98 lines
2.4 KiB
C
98 lines
2.4 KiB
C
/*
|
|
* Copyright (C) 2012 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_mips_h
|
|
#define _jit_mips_h
|
|
|
|
#define JIT_HASH_CONSTS 1
|
|
#define JIT_NUM_OPERANDS 3
|
|
|
|
/*
|
|
* Types
|
|
*/
|
|
#define JIT_RET _V0
|
|
#define JIT_FRET _F0
|
|
#define JIT_SP _SP
|
|
#define JIT_FP _FP
|
|
typedef enum {
|
|
#define jit_arg_reg_p(i) ((i) >= 0 && (i) < 4)
|
|
#define jit_r(i) (_V0 + (i))
|
|
#define jit_r_num() 12
|
|
#define jit_v(i) (_S0 + (i))
|
|
#define jit_r_num() 8
|
|
#define jit_arg_reg_p(i) ((i) >= 0 && (i) < 4)
|
|
#define jit_f(i) (_F0 + (i))
|
|
#define jit_f_num() 14
|
|
_AT,
|
|
#define JIT_R0 _V0
|
|
#define JIT_R1 _V1
|
|
#define JIT_R2 _T0
|
|
#define JIT_R3 _T1
|
|
#define JIT_R4 _T2
|
|
#define JIT_R5 _T3
|
|
#define JIT_R6 _T4
|
|
#define JIT_R7 _T5
|
|
#define JIT_R8 _T6
|
|
#define JIT_R9 _T7
|
|
#define JIT_R10 _T8
|
|
#define JIT_R11 _T9 /* must point to PIC function */
|
|
_V0, _V1, _T0, _T1, _T2, _T3, _T4, _T5, _T6, _T7, _T8, _T9,
|
|
#define JIT_V0 _S0
|
|
#define JIT_V1 _S1
|
|
#define JIT_V2 _S2
|
|
#define JIT_V3 _S3
|
|
#define JIT_V4 _S4
|
|
#define JIT_V5 _S5
|
|
#define JIT_V6 _S6
|
|
#define JIT_V7 _S7
|
|
_S0, _S1, _S2, _S3, _S4, _S5, _S6, _S7,
|
|
_ZERO, _K0, _K1, _RA,
|
|
_GP, /* FIXME use to point to jit data */
|
|
_SP, _FP,
|
|
# define JIT_RA0 _A0
|
|
# define JIT_RA1 _A1
|
|
# define JIT_RA2 _A2
|
|
# define JIT_RA3 _A3
|
|
_A3, _A2, _A1, _A0,
|
|
|
|
#define JIT_F0 _F0
|
|
#define JIT_F1 _F2
|
|
#define JIT_F2 _F4
|
|
#define JIT_F3 _F6
|
|
#define JIT_F4 _F8
|
|
#define JIT_F5 _F10
|
|
_F0, _F2, _F4, _F6, _F8, _F10,
|
|
/* callee save float registers */
|
|
#define JIT_FS0 _F16
|
|
#define JIT_FS1 _F18
|
|
#define JIT_FS2 _F20
|
|
#define JIT_FS3 _F22
|
|
#define JIT_FS4 _F24
|
|
#define JIT_FS5 _F26
|
|
#define JIT_FS6 _F28
|
|
#define JIT_FS7 _F30
|
|
_F16, _F18, _F20, _F22, _F24, _F26, _F28, _F30,
|
|
#define JIT_FA0 _F12
|
|
#define JIT_FA1 _F14
|
|
_F12, _F14,
|
|
#define JIT_NOREG _NOREG
|
|
_NOREG,
|
|
} jit_reg_t;
|
|
|
|
typedef jit_int64_t jit_regset_t;
|
|
|
|
#endif /* _jit_mips_h */
|