mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-08 19:42:27 +02:00
d0a5bd8d3d
* lib/jit_rewind.c: New file implementing generic functions to "rewind", or rewrite IR code sequences. * include/lightning.h: Add several new codes, that previously were a function call, that would synthesize the operation. Now, there is a code for the operation, and a new flag to know an operation is synthesized. * include/lightning/jit_private.h: Add several new macros to help construct synthesized IR code sequences. * lib/Makefile.am: Update for lib/jit_rewind.c. * lib/jit_disasm.c: Update for a small rework on jit_node_t, so that --enable-devel-disassembler does not need a change in the layout of jit_node_t. * lib/jit_names.c: Update for the new codes. * lib/jit_print.c: Update to print more readable output, and flag synthesized IR code sequences. * lib/jit_aarch64-sz.c, lib/jit_aarch64.c, lib/jit_arm-sz.c, lib/jit_arm.c, lib/jit_x86-sz.c, lib/jit_x86.c: Update for new synthesized IR code sequences. * lib/jit_ppc-cpu.c, lib/jit_ppc-fpu., lib/jit_ppc-sz.c, lib/jit_ppc.c, lib/jit_mips-cpu.c, lib/jit_mips-fpu.c, lib/jit_mips-sz.c, lib/jit_mips.c, lib/jit_s390-fpu.c, lib/jit_s390-sz.c, lib/jit_s390.c: Update for new synthesized IR code sequences and correct bugs in the initial varargs implementation support. * lib/jit_alpha-sz.c, lib/jit_alpha.c, lib/jit_hppa-sz.c, lib/jit_hppa.c, lib/jit_ia64-sz.c, lib/jit_ia64.c, lib/jit_sparc-sz.c, lib/jit_sparc.c: Add generic, untested support for the new synthesized IR code sequences. Known most likely broken right now, and should be corrected once access to these hosts is available. * lib/lightning.c: Update for new IR codes, and add support for not yet existing instructions that change third argument. * size.c: Change to use different tables for LE and BE PowerPC. Correct a wrong endif for x32.
115 lines
2.9 KiB
C
115 lines
2.9 KiB
C
/*
|
|
* Copyright (C) 2013-2015 Free Software Foundation, Inc.
|
|
*
|
|
* This file is part of GNU lightning.
|
|
*
|
|
* GNU lightning is free software; you can redistribute it and/or modify it
|
|
* under the terms of the GNU Lesser General Public License as published
|
|
* by the Free Software Foundation; either version 3, or (at your option)
|
|
* any later version.
|
|
*
|
|
* GNU lightning 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 Lesser General Public
|
|
* License for more details.
|
|
*
|
|
* Authors:
|
|
* Paulo Cesar Pereira de Andrade
|
|
*/
|
|
|
|
#include <lightning.h>
|
|
#include <lightning/jit_private.h>
|
|
#include <stdio.h>
|
|
#include "lib/jit_names.c"
|
|
|
|
jit_int16_t _szs[jit_code_last_code];
|
|
|
|
int
|
|
main(int argc, char *argv[])
|
|
{
|
|
FILE *fp;
|
|
jit_word_t offset;
|
|
int code, size, max;
|
|
|
|
if ((fp = fopen(JIT_SIZE_PATH, "r")) == NULL)
|
|
exit(-1);
|
|
while (fscanf(fp, "%d %d\n", &code, &size) == 2) {
|
|
if (_szs[code] < size)
|
|
_szs[code] = size;
|
|
}
|
|
fclose(fp);
|
|
|
|
max = 0;
|
|
for (offset = 0; offset < jit_code_last_code; offset++)
|
|
if (max < _szs[offset])
|
|
max = _szs[offset];
|
|
|
|
if ((fp = fopen(JIT_SIZE_PATH, "w")) == NULL)
|
|
exit(-1);
|
|
|
|
|
|
#if __X64 || __X32
|
|
# if __X64
|
|
fprintf(fp, "#if __X64\n");
|
|
# if __X64_32
|
|
fprintf(fp, "# if __X64_32\n");
|
|
# else
|
|
fprintf(fp, "# if !__X64_32\n");
|
|
# endif
|
|
# else
|
|
fprintf(fp, "#if __X32\n");
|
|
# endif
|
|
#else
|
|
fprintf(fp, "#if __WORDSIZE == %d\n", __WORDSIZE);
|
|
#endif
|
|
#if defined(__arm__)
|
|
# if defined(__ARM_PCS_VFP)
|
|
fprintf(fp, "#if defined(__ARM_PCS_VFP)\n");
|
|
# else
|
|
fprintf(fp, "#if !defined(__ARM_PCS_VFP)\n");
|
|
# endif
|
|
#elif defined(__mips__)
|
|
# if __WORDSIZE == 32
|
|
# if NEW_ABI
|
|
fprintf(fp, "#if NEW_ABI\n");
|
|
# else
|
|
fprintf(fp, "#if !NEW_ABI\n");
|
|
# endif
|
|
# endif
|
|
#elif defined(__ppc__)
|
|
fprintf(fp, "#if defined(__ppc__)\n");
|
|
#elif defined(__powerpc__)
|
|
fprintf(fp, "#if defined(__powerpc__)\n");
|
|
fprintf(fp, "#if __BYTE_ORDER == %s\n",
|
|
__BYTE_ORDER == __BIG_ENDIAN ? "__BIG_ENDIAN" : "__LITTLE_ENDIAN");
|
|
#endif
|
|
fprintf(fp, "#define JIT_INSTR_MAX %d\n", max);
|
|
for (offset = 0; offset < jit_code_last_code; offset++)
|
|
fprintf(fp, " %d, /* %s */\n", _szs[offset], code_name[offset]);
|
|
#if defined(__arm__)
|
|
fprintf(fp, "#endif /* __ARM_PCS_VFP */\n");
|
|
#elif defined(__mips__)
|
|
# if __WORDSIZE == 32
|
|
fprintf(fp, "#endif /* NEW_ABI */\n");
|
|
# endif
|
|
#elif defined(__ppc__)
|
|
fprintf(fp, "#endif /* __ppc__ */\n");
|
|
#elif defined(__powerpc__)
|
|
fprintf(fp, "#endif /* __BYTE_ORDER */\n");
|
|
fprintf(fp, "#endif /* __powerpc__ */\n");
|
|
#endif
|
|
#if __X64 || __X32
|
|
# if __X64
|
|
fprintf(fp, "# endif /* __X64_32 */\n");
|
|
fprintf(fp, "#endif /* __X64 */\n");
|
|
# else
|
|
fprintf(fp, "#endif /* __X32 */\n");
|
|
# endif
|
|
#else
|
|
fprintf(fp, "#endif /* __WORDSIZE */\n");
|
|
#endif
|
|
|
|
fclose(fp);
|
|
|
|
return (0);
|
|
}
|