mirror of
https://github.com/mirror/tinycc.git
synced 2024-12-28 04:00:06 +08:00
352e1d0fc4
commit 2a0167a merged alias and asm symbol renaming, but broke
semantics of aliases, see testcase. Basically the difference between
the two is that an asm rename doesn't generate a new symbol, i.e. with
int foo __asm__("bar");
all source reference to 'foo' will be to 'bar', nothing of the name
'foo' will remain in the object file, and for instance reference to
'foo' from other compilation units won't be resolved to this one.
Aliases OTOH create an additional symbol. With:
void target (void) { return; }
void afunc (void) __attribute__((alias("target")));
reference to 'afunc' will remain 'afunc' in the object file. It will
generate two symbols, 'afunc' and 'target' referring to the same entity.
This difference matters if other compilation units make references to
'afunc'.
A side requirement of this is that for alias to work that the target
symbol needs to be defined in the same unit. For TCC we even require a
stricter variant: it must be defined before the alias is created.
Now, with this I merely re-instated the old flow of events before above
commit. It didn't seem useful anymore to place both names in the
asm_label member of attributes, and the asm_label member of Sym now
again only needs the hold the __asm__ rename.
It also follows that tcc_predefs.h can't make use of attribute alias to
e.g. map __builtin_memcpy to __bound_memcpy (simply because the latter
isn't defined in all units), but rather must use __asm__ renaming, which
in turn means that the underscore handling needs to be done by hand.
1822 lines
61 KiB
C
1822 lines
61 KiB
C
/*
|
|
* TCC - Tiny C Compiler
|
|
*
|
|
* Copyright (c) 2001-2004 Fabrice Bellard
|
|
*
|
|
* This library 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 2 of the License, or (at your option) any later version.
|
|
*
|
|
* This library 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.
|
|
*
|
|
* You should have received a copy of the GNU Lesser General Public
|
|
* License along with this library; if not, write to the Free Software
|
|
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
|
*/
|
|
|
|
#ifndef _TCC_H
|
|
#define _TCC_H
|
|
|
|
#define _GNU_SOURCE
|
|
#define _DARWIN_C_SOURCE
|
|
#include "config.h"
|
|
|
|
#include <stdarg.h>
|
|
#include <stdlib.h>
|
|
#include <stdio.h>
|
|
#include <string.h>
|
|
#include <errno.h>
|
|
#include <math.h>
|
|
#include <fcntl.h>
|
|
#include <setjmp.h>
|
|
#include <time.h>
|
|
|
|
#ifndef _WIN32
|
|
# define WIN32_LEAN_AND_MEAN 1
|
|
# include <unistd.h>
|
|
# include <sys/time.h>
|
|
# ifndef CONFIG_TCC_STATIC
|
|
# include <dlfcn.h>
|
|
# endif
|
|
/* XXX: need to define this to use them in non ISOC99 context */
|
|
extern float strtof (const char *__nptr, char **__endptr);
|
|
extern long double strtold (const char *__nptr, char **__endptr);
|
|
#endif
|
|
|
|
#ifdef _WIN32
|
|
# define WIN32_LEAN_AND_MEAN
|
|
# include <windows.h>
|
|
# include <io.h> /* open, close etc. */
|
|
# include <direct.h> /* getcwd */
|
|
# ifdef __GNUC__
|
|
# include <stdint.h>
|
|
# endif
|
|
# define inline __inline
|
|
# define snprintf _snprintf
|
|
# define vsnprintf _vsnprintf
|
|
# ifndef __GNUC__
|
|
# define strtold (long double)strtod
|
|
# define strtof (float)strtod
|
|
# define strtoll _strtoi64
|
|
# define strtoull _strtoui64
|
|
# endif
|
|
# ifdef LIBTCC_AS_DLL
|
|
# define LIBTCCAPI __declspec(dllexport)
|
|
# define PUB_FUNC LIBTCCAPI
|
|
# endif
|
|
# define inp next_inp /* inp is an intrinsic on msvc/mingw */
|
|
# ifdef _MSC_VER
|
|
# pragma warning (disable : 4244) // conversion from 'uint64_t' to 'int', possible loss of data
|
|
# pragma warning (disable : 4267) // conversion from 'size_t' to 'int', possible loss of data
|
|
# pragma warning (disable : 4996) // The POSIX name for this item is deprecated. Instead, use the ISO C and C++ conformant name
|
|
# pragma warning (disable : 4018) // signed/unsigned mismatch
|
|
# pragma warning (disable : 4146) // unary minus operator applied to unsigned type, result still unsigned
|
|
# define ssize_t intptr_t
|
|
# ifdef _X86_
|
|
# define __i386__ 1
|
|
# endif
|
|
# ifdef _AMD64_
|
|
# define __x86_64__ 1
|
|
# endif
|
|
# endif
|
|
# undef CONFIG_TCC_STATIC
|
|
#endif
|
|
|
|
#ifndef O_BINARY
|
|
# define O_BINARY 0
|
|
#endif
|
|
|
|
#ifndef offsetof
|
|
#define offsetof(type, field) ((size_t) &((type *)0)->field)
|
|
#endif
|
|
|
|
#ifndef countof
|
|
#define countof(tab) (sizeof(tab) / sizeof((tab)[0]))
|
|
#endif
|
|
|
|
#ifdef _MSC_VER
|
|
# define NORETURN __declspec(noreturn)
|
|
# define ALIGNED(x) __declspec(align(x))
|
|
# define PRINTF_LIKE(x,y)
|
|
#else
|
|
# define NORETURN __attribute__((noreturn))
|
|
# define ALIGNED(x) __attribute__((aligned(x)))
|
|
# define PRINTF_LIKE(x,y) __attribute__ ((format (printf, (x), (y))))
|
|
#endif
|
|
|
|
/* gnu headers use to #define __attribute__ to empty for non-gcc compilers */
|
|
#ifdef __TINYC__
|
|
# undef __attribute__
|
|
#endif
|
|
|
|
#ifdef _WIN32
|
|
# define IS_DIRSEP(c) (c == '/' || c == '\\')
|
|
# define IS_ABSPATH(p) (IS_DIRSEP(p[0]) || (p[0] && p[1] == ':' && IS_DIRSEP(p[2])))
|
|
# define PATHCMP stricmp
|
|
# define PATHSEP ";"
|
|
#else
|
|
# define IS_DIRSEP(c) (c == '/')
|
|
# define IS_ABSPATH(p) IS_DIRSEP(p[0])
|
|
# define PATHCMP strcmp
|
|
# define PATHSEP ":"
|
|
#endif
|
|
|
|
/* -------------------------------------------- */
|
|
|
|
/* parser debug */
|
|
/* #define PARSE_DEBUG */
|
|
/* preprocessor debug */
|
|
/* #define PP_DEBUG */
|
|
/* include file debug */
|
|
/* #define INC_DEBUG */
|
|
/* memory leak debug (only for single threaded usage) */
|
|
/* #define MEM_DEBUG */
|
|
/* assembler debug */
|
|
/* #define ASM_DEBUG */
|
|
|
|
/* target selection */
|
|
/* #define TCC_TARGET_I386 *//* i386 code generator */
|
|
/* #define TCC_TARGET_X86_64 *//* x86-64 code generator */
|
|
/* #define TCC_TARGET_ARM *//* ARMv4 code generator */
|
|
/* #define TCC_TARGET_ARM64 *//* ARMv8 code generator */
|
|
/* #define TCC_TARGET_C67 *//* TMS320C67xx code generator */
|
|
/* #define TCC_TARGET_RISCV64 *//* risc-v code generator */
|
|
|
|
/* default target is I386 */
|
|
#if !defined(TCC_TARGET_I386) && !defined(TCC_TARGET_ARM) && \
|
|
!defined(TCC_TARGET_ARM64) && !defined(TCC_TARGET_C67) && \
|
|
!defined(TCC_TARGET_X86_64) && !defined(TCC_TARGET_RISCV64)
|
|
# if defined __x86_64__
|
|
# define TCC_TARGET_X86_64
|
|
# elif defined __arm__
|
|
# define TCC_TARGET_ARM
|
|
# define TCC_ARM_EABI
|
|
# define TCC_ARM_VFP
|
|
# define TCC_ARM_HARDFLOAT
|
|
# elif defined __aarch64__
|
|
# define TCC_TARGET_ARM64
|
|
# elif defined __riscv
|
|
# define TCC_TARGET_RISCV64
|
|
# else
|
|
# define TCC_TARGET_I386
|
|
# endif
|
|
# ifdef _WIN32
|
|
# define TCC_TARGET_PE 1
|
|
# endif
|
|
#endif
|
|
|
|
/* only native compiler supports -run */
|
|
#if defined _WIN32 == defined TCC_TARGET_PE
|
|
# if defined __i386__ && defined TCC_TARGET_I386
|
|
# define TCC_IS_NATIVE
|
|
# elif defined __x86_64__ && defined TCC_TARGET_X86_64
|
|
# define TCC_IS_NATIVE
|
|
# elif defined __arm__ && defined TCC_TARGET_ARM
|
|
# define TCC_IS_NATIVE
|
|
# elif defined __aarch64__ && defined TCC_TARGET_ARM64
|
|
# define TCC_IS_NATIVE
|
|
# elif defined __riscv && defined __LP64__ && defined TCC_TARGET_RISCV64
|
|
# define TCC_IS_NATIVE
|
|
# endif
|
|
#endif
|
|
|
|
#if defined TCC_IS_NATIVE && !defined CONFIG_TCCBOOT
|
|
# define CONFIG_TCC_BACKTRACE
|
|
# if (defined TCC_TARGET_I386 || defined TCC_TARGET_X86_64 || \
|
|
defined TCC_TARGET_ARM || defined TCC_TARGET_ARM64 || \
|
|
defined TCC_TARGET_RISCV64) \
|
|
&& !defined TCC_UCLIBC && !defined TCC_MUSL
|
|
# define CONFIG_TCC_BCHECK /* enable bound checking code */
|
|
# endif
|
|
#endif
|
|
|
|
#if defined TCC_TARGET_PE || defined TCC_TARGET_MACHO
|
|
# define ELF_OBJ_ONLY /* create elf .o but native executables */
|
|
#endif
|
|
|
|
/* ------------ path configuration ------------ */
|
|
|
|
#ifndef CONFIG_SYSROOT
|
|
# define CONFIG_SYSROOT ""
|
|
#endif
|
|
#ifndef CONFIG_TCCDIR
|
|
# define CONFIG_TCCDIR "/usr/local/lib/tcc"
|
|
#endif
|
|
#ifndef CONFIG_LDDIR
|
|
# define CONFIG_LDDIR "lib"
|
|
#endif
|
|
#ifdef CONFIG_TRIPLET
|
|
# define USE_TRIPLET(s) s "/" CONFIG_TRIPLET
|
|
# define ALSO_TRIPLET(s) USE_TRIPLET(s) ":" s
|
|
#else
|
|
# define USE_TRIPLET(s) s
|
|
# define ALSO_TRIPLET(s) s
|
|
#endif
|
|
|
|
/* path to find crt1.o, crti.o and crtn.o */
|
|
#ifndef CONFIG_TCC_CRTPREFIX
|
|
# define CONFIG_TCC_CRTPREFIX USE_TRIPLET(CONFIG_SYSROOT "/usr/" CONFIG_LDDIR)
|
|
#endif
|
|
|
|
#ifndef CONFIG_USR_INCLUDE
|
|
# define CONFIG_USR_INCLUDE "/usr/include"
|
|
#endif
|
|
|
|
/* Below: {B} is substituted by CONFIG_TCCDIR (rsp. -B option) */
|
|
|
|
/* system include paths */
|
|
#ifndef CONFIG_TCC_SYSINCLUDEPATHS
|
|
# if defined TCC_TARGET_PE || defined _WIN32
|
|
# define CONFIG_TCC_SYSINCLUDEPATHS "{B}/include"PATHSEP"{B}/include/winapi"
|
|
# else
|
|
# define CONFIG_TCC_SYSINCLUDEPATHS \
|
|
"{B}/include" \
|
|
":" ALSO_TRIPLET(CONFIG_SYSROOT "/usr/local/include") \
|
|
":" ALSO_TRIPLET(CONFIG_SYSROOT CONFIG_USR_INCLUDE)
|
|
# endif
|
|
#endif
|
|
|
|
/* library search paths */
|
|
#ifndef CONFIG_TCC_LIBPATHS
|
|
# ifdef TCC_TARGET_PE
|
|
# define CONFIG_TCC_LIBPATHS "{B}/lib"
|
|
# else
|
|
# define CONFIG_TCC_LIBPATHS \
|
|
ALSO_TRIPLET(CONFIG_SYSROOT "/usr/" CONFIG_LDDIR) \
|
|
":" ALSO_TRIPLET(CONFIG_SYSROOT "/" CONFIG_LDDIR) \
|
|
":" ALSO_TRIPLET(CONFIG_SYSROOT "/usr/local/" CONFIG_LDDIR)
|
|
# endif
|
|
#endif
|
|
|
|
/* name of ELF interpreter */
|
|
#ifndef CONFIG_TCC_ELFINTERP
|
|
# if defined __FreeBSD__
|
|
# define CONFIG_TCC_ELFINTERP "/libexec/ld-elf.so.1"
|
|
# elif defined __FreeBSD_kernel__
|
|
# if defined(TCC_TARGET_X86_64)
|
|
# define CONFIG_TCC_ELFINTERP "/lib/ld-kfreebsd-x86-64.so.1"
|
|
# else
|
|
# define CONFIG_TCC_ELFINTERP "/lib/ld.so.1"
|
|
# endif
|
|
# elif defined __DragonFly__
|
|
# define CONFIG_TCC_ELFINTERP "/usr/libexec/ld-elf.so.2"
|
|
# elif defined __NetBSD__
|
|
# define CONFIG_TCC_ELFINTERP "/usr/libexec/ld.elf_so"
|
|
# elif defined __GNU__
|
|
# define CONFIG_TCC_ELFINTERP "/lib/ld.so"
|
|
# elif defined(TCC_TARGET_PE)
|
|
# define CONFIG_TCC_ELFINTERP "-"
|
|
# elif defined(TCC_UCLIBC)
|
|
# define CONFIG_TCC_ELFINTERP "/lib/ld-uClibc.so.0" /* is there a uClibc for x86_64 ? */
|
|
# elif defined TCC_TARGET_ARM64
|
|
# if defined(TCC_MUSL)
|
|
# define CONFIG_TCC_ELFINTERP "/lib/ld-musl-aarch64.so.1"
|
|
# else
|
|
# define CONFIG_TCC_ELFINTERP "/lib/ld-linux-aarch64.so.1"
|
|
# endif
|
|
# elif defined(TCC_TARGET_X86_64)
|
|
# if defined(TCC_MUSL)
|
|
# define CONFIG_TCC_ELFINTERP "/lib/ld-musl-x86_64.so.1"
|
|
# else
|
|
# define CONFIG_TCC_ELFINTERP "/lib64/ld-linux-x86-64.so.2"
|
|
# endif
|
|
# elif defined(TCC_TARGET_RISCV64)
|
|
# define CONFIG_TCC_ELFINTERP "/lib/ld-linux-riscv64-lp64d.so.1"
|
|
# elif !defined(TCC_ARM_EABI)
|
|
# if defined(TCC_MUSL)
|
|
# if defined(TCC_TARGET_I386)
|
|
# define CONFIG_TCC_ELFINTERP "/lib/ld-musl-i386.so.1"
|
|
# else
|
|
# define CONFIG_TCC_ELFINTERP "/lib/ld-musl-arm.so.1"
|
|
# endif
|
|
# else
|
|
# define CONFIG_TCC_ELFINTERP "/lib/ld-linux.so.2"
|
|
# endif
|
|
# endif
|
|
#endif
|
|
|
|
/* var elf_interp dans *-gen.c */
|
|
#ifdef CONFIG_TCC_ELFINTERP
|
|
# define DEFAULT_ELFINTERP(s) CONFIG_TCC_ELFINTERP
|
|
#else
|
|
# define DEFAULT_ELFINTERP(s) default_elfinterp(s)
|
|
#endif
|
|
|
|
/* (target specific) libtcc1.a */
|
|
#ifndef TCC_LIBTCC1
|
|
# define TCC_LIBTCC1 "libtcc1.a"
|
|
#endif
|
|
|
|
/* library to use with CONFIG_USE_LIBGCC instead of libtcc1.a */
|
|
#if defined CONFIG_USE_LIBGCC && !defined TCC_LIBGCC
|
|
#define TCC_LIBGCC USE_TRIPLET(CONFIG_SYSROOT "/" CONFIG_LDDIR) "/libgcc_s.so.1"
|
|
#endif
|
|
|
|
/* -------------------------------------------- */
|
|
|
|
#include "libtcc.h"
|
|
#include "elf.h"
|
|
#include "stab.h"
|
|
|
|
/* -------------------------------------------- */
|
|
|
|
#ifndef PUB_FUNC /* functions used by tcc.c but not in libtcc.h */
|
|
# define PUB_FUNC
|
|
#endif
|
|
|
|
#ifndef ONE_SOURCE
|
|
# define ONE_SOURCE 1
|
|
#endif
|
|
|
|
/* support using libtcc from threads */
|
|
#define CONFIG_TCC_SEMLOCK
|
|
|
|
#if ONE_SOURCE
|
|
#define ST_INLN static inline
|
|
#define ST_FUNC static
|
|
#define ST_DATA static
|
|
#else
|
|
#define ST_INLN
|
|
#define ST_FUNC
|
|
#define ST_DATA extern
|
|
#endif
|
|
|
|
#ifdef TCC_PROFILE /* profile all functions */
|
|
# define static
|
|
#endif
|
|
|
|
/* -------------------------------------------- */
|
|
/* include the target specific definitions */
|
|
|
|
#define TARGET_DEFS_ONLY
|
|
#ifdef TCC_TARGET_I386
|
|
# include "i386-gen.c"
|
|
# include "i386-link.c"
|
|
#elif defined TCC_TARGET_X86_64
|
|
# include "x86_64-gen.c"
|
|
# include "x86_64-link.c"
|
|
#elif defined TCC_TARGET_ARM
|
|
# include "arm-gen.c"
|
|
# include "arm-link.c"
|
|
# include "arm-asm.c"
|
|
#elif defined TCC_TARGET_ARM64
|
|
# include "arm64-gen.c"
|
|
# include "arm64-link.c"
|
|
# include "arm-asm.c"
|
|
#elif defined TCC_TARGET_C67
|
|
# define TCC_TARGET_COFF
|
|
# include "coff.h"
|
|
# include "c67-gen.c"
|
|
# include "c67-link.c"
|
|
#elif defined(TCC_TARGET_RISCV64)
|
|
# include "riscv64-gen.c"
|
|
# include "riscv64-link.c"
|
|
# include "riscv64-asm.c"
|
|
#else
|
|
#error unknown target
|
|
#endif
|
|
#undef TARGET_DEFS_ONLY
|
|
|
|
/* -------------------------------------------- */
|
|
|
|
#if PTR_SIZE == 8
|
|
# define ELFCLASSW ELFCLASS64
|
|
# define ElfW(type) Elf##64##_##type
|
|
# define ELFW(type) ELF##64##_##type
|
|
# define ElfW_Rel ElfW(Rela)
|
|
# define SHT_RELX SHT_RELA
|
|
# define REL_SECTION_FMT ".rela%s"
|
|
#else
|
|
# define ELFCLASSW ELFCLASS32
|
|
# define ElfW(type) Elf##32##_##type
|
|
# define ELFW(type) ELF##32##_##type
|
|
# define ElfW_Rel ElfW(Rel)
|
|
# define SHT_RELX SHT_REL
|
|
# define REL_SECTION_FMT ".rel%s"
|
|
#endif
|
|
/* target address type */
|
|
#define addr_t ElfW(Addr)
|
|
#define ElfSym ElfW(Sym)
|
|
|
|
#if PTR_SIZE == 8 && !defined TCC_TARGET_PE
|
|
# define LONG_SIZE 8
|
|
#else
|
|
# define LONG_SIZE 4
|
|
#endif
|
|
|
|
/* -------------------------------------------- */
|
|
|
|
#define INCLUDE_STACK_SIZE 32
|
|
#define IFDEF_STACK_SIZE 64
|
|
#define VSTACK_SIZE 256
|
|
#define STRING_MAX_SIZE 1024
|
|
#define TOKSTR_MAX_SIZE 256
|
|
#define PACK_STACK_SIZE 8
|
|
|
|
#define TOK_HASH_SIZE 16384 /* must be a power of two */
|
|
#define TOK_ALLOC_INCR 512 /* must be a power of two */
|
|
#define TOK_MAX_SIZE 4 /* token max size in int unit when stored in string */
|
|
|
|
/* token symbol management */
|
|
typedef struct TokenSym {
|
|
struct TokenSym *hash_next;
|
|
struct Sym *sym_define; /* direct pointer to define */
|
|
struct Sym *sym_label; /* direct pointer to label */
|
|
struct Sym *sym_struct; /* direct pointer to structure */
|
|
struct Sym *sym_identifier; /* direct pointer to identifier */
|
|
int tok; /* token number */
|
|
int len;
|
|
char str[1];
|
|
} TokenSym;
|
|
|
|
#ifdef TCC_TARGET_PE
|
|
typedef unsigned short nwchar_t;
|
|
#else
|
|
typedef int nwchar_t;
|
|
#endif
|
|
|
|
typedef struct CString {
|
|
int size; /* size in bytes */
|
|
void *data; /* either 'char *' or 'nwchar_t *' */
|
|
int size_allocated;
|
|
} CString;
|
|
|
|
/* type definition */
|
|
typedef struct CType {
|
|
int t;
|
|
struct Sym *ref;
|
|
} CType;
|
|
|
|
/* constant value */
|
|
typedef union CValue {
|
|
long double ld;
|
|
double d;
|
|
float f;
|
|
uint64_t i;
|
|
struct {
|
|
const void *data;
|
|
int size;
|
|
} str;
|
|
int tab[LDOUBLE_SIZE/4];
|
|
} CValue;
|
|
|
|
/* value on stack */
|
|
typedef struct SValue {
|
|
CType type; /* type */
|
|
unsigned short r; /* register + flags */
|
|
unsigned short r2; /* second register, used for 'long long'
|
|
type. If not used, set to VT_CONST */
|
|
union {
|
|
struct { int jtrue, jfalse; }; /* forward jmps */
|
|
CValue c; /* constant, if VT_CONST */
|
|
};
|
|
union {
|
|
struct { unsigned short cmp_op, cmp_r; }; /* VT_CMP operation */
|
|
struct Sym *sym; /* symbol, if (VT_SYM | VT_CONST), or if */
|
|
}; /* result of unary() for an identifier. */
|
|
|
|
} SValue;
|
|
|
|
/* symbol attributes */
|
|
struct SymAttr {
|
|
unsigned short
|
|
aligned : 5, /* alignment as log2+1 (0 == unspecified) */
|
|
packed : 1,
|
|
weak : 1,
|
|
visibility : 2,
|
|
dllexport : 1,
|
|
nodecorate : 1,
|
|
dllimport : 1,
|
|
addrtaken : 1,
|
|
xxxx : 3; /* not used */
|
|
};
|
|
|
|
/* function attributes or temporary attributes for parsing */
|
|
struct FuncAttr {
|
|
unsigned
|
|
func_call : 3, /* calling convention (0..5), see below */
|
|
func_type : 2, /* FUNC_OLD/NEW/ELLIPSIS */
|
|
func_noreturn : 1, /* attribute((noreturn)) */
|
|
func_ctor : 1, /* attribute((constructor)) */
|
|
func_dtor : 1, /* attribute((destructor)) */
|
|
func_args : 8, /* PE __stdcall args */
|
|
func_alwinl : 1, /* always_inline */
|
|
xxxx : 15;
|
|
};
|
|
|
|
/* symbol management */
|
|
typedef struct Sym {
|
|
int v; /* symbol token */
|
|
unsigned short r; /* associated register or VT_CONST/VT_LOCAL and LVAL type */
|
|
struct SymAttr a; /* symbol attributes */
|
|
union {
|
|
struct {
|
|
int c; /* associated number or Elf symbol index */
|
|
union {
|
|
int sym_scope; /* scope level for locals */
|
|
int jnext; /* next jump label */
|
|
struct FuncAttr f; /* function attributes */
|
|
int auxtype; /* bitfield access type */
|
|
};
|
|
};
|
|
long long enum_val; /* enum constant if IS_ENUM_VAL */
|
|
int *d; /* define token stream */
|
|
struct Sym *ncl; /* next cleanup */
|
|
};
|
|
CType type; /* associated type */
|
|
union {
|
|
struct Sym *next; /* next related symbol (for fields and anoms) */
|
|
struct Sym *cleanupstate; /* in defined labels */
|
|
int asm_label; /* associated asm label */
|
|
};
|
|
struct Sym *prev; /* prev symbol in stack */
|
|
struct Sym *prev_tok; /* previous symbol for this token */
|
|
} Sym;
|
|
|
|
/* section definition */
|
|
typedef struct Section {
|
|
unsigned long data_offset; /* current data offset */
|
|
unsigned char *data; /* section data */
|
|
unsigned long data_allocated; /* used for realloc() handling */
|
|
TCCState *s1;
|
|
int sh_name; /* elf section name (only used during output) */
|
|
int sh_num; /* elf section number */
|
|
int sh_type; /* elf section type */
|
|
int sh_flags; /* elf section flags */
|
|
int sh_info; /* elf section info */
|
|
int sh_addralign; /* elf section alignment */
|
|
int sh_entsize; /* elf entry size */
|
|
unsigned long sh_size; /* section size (only used during output) */
|
|
addr_t sh_addr; /* address at which the section is relocated */
|
|
unsigned long sh_offset; /* file offset */
|
|
int nb_hashed_syms; /* used to resize the hash table */
|
|
struct Section *link; /* link to another section */
|
|
struct Section *reloc; /* corresponding section for relocation, if any */
|
|
struct Section *hash; /* hash table for symbols */
|
|
struct Section *prev; /* previous section on section stack */
|
|
char name[1]; /* section name */
|
|
} Section;
|
|
|
|
typedef struct DLLReference {
|
|
int level;
|
|
void *handle;
|
|
char name[1];
|
|
} DLLReference;
|
|
|
|
/* -------------------------------------------------- */
|
|
|
|
#define SYM_STRUCT 0x40000000 /* struct/union/enum symbol space */
|
|
#define SYM_FIELD 0x20000000 /* struct/union field symbol space */
|
|
#define SYM_FIRST_ANOM 0x10000000 /* first anonymous sym */
|
|
|
|
/* stored in 'Sym->f.func_type' field */
|
|
#define FUNC_NEW 1 /* ansi function prototype */
|
|
#define FUNC_OLD 2 /* old function prototype */
|
|
#define FUNC_ELLIPSIS 3 /* ansi function prototype with ... */
|
|
|
|
/* stored in 'Sym->f.func_call' field */
|
|
#define FUNC_CDECL 0 /* standard c call */
|
|
#define FUNC_STDCALL 1 /* pascal c call */
|
|
#define FUNC_FASTCALL1 2 /* first param in %eax */
|
|
#define FUNC_FASTCALL2 3 /* first parameters in %eax, %edx */
|
|
#define FUNC_FASTCALL3 4 /* first parameter in %eax, %edx, %ecx */
|
|
#define FUNC_FASTCALLW 5 /* first parameter in %ecx, %edx */
|
|
|
|
/* field 'Sym.t' for macros */
|
|
#define MACRO_OBJ 0 /* object like macro */
|
|
#define MACRO_FUNC 1 /* function like macro */
|
|
|
|
/* field 'Sym.r' for C labels */
|
|
#define LABEL_DEFINED 0 /* label is defined */
|
|
#define LABEL_FORWARD 1 /* label is forward defined */
|
|
#define LABEL_DECLARED 2 /* label is declared but never used */
|
|
#define LABEL_GONE 3 /* label isn't in scope, but not yet popped
|
|
from local_label_stack (stmt exprs) */
|
|
|
|
/* type_decl() types */
|
|
#define TYPE_ABSTRACT 1 /* type without variable */
|
|
#define TYPE_DIRECT 2 /* type with variable */
|
|
|
|
#define IO_BUF_SIZE 8192
|
|
|
|
typedef struct BufferedFile {
|
|
uint8_t *buf_ptr;
|
|
uint8_t *buf_end;
|
|
int fd;
|
|
struct BufferedFile *prev;
|
|
int line_num; /* current line number - here to simplify code */
|
|
int line_ref; /* tcc -E: last printed line */
|
|
int ifndef_macro; /* #ifndef macro / #endif search */
|
|
int ifndef_macro_saved; /* saved ifndef_macro */
|
|
int *ifdef_stack_ptr; /* ifdef_stack value at the start of the file */
|
|
int include_next_index; /* next search path */
|
|
char filename[1024]; /* filename */
|
|
char *true_filename; /* filename not modified by # line directive */
|
|
unsigned char unget[4];
|
|
unsigned char buffer[1]; /* extra size for CH_EOB char */
|
|
} BufferedFile;
|
|
|
|
#define CH_EOB '\\' /* end of buffer or '\0' char in file */
|
|
#define CH_EOF (-1) /* end of file */
|
|
|
|
/* used to record tokens */
|
|
typedef struct TokenString {
|
|
int *str;
|
|
int len;
|
|
int lastlen;
|
|
int allocated_len;
|
|
int last_line_num;
|
|
int save_line_num;
|
|
/* used to chain token-strings with begin/end_macro() */
|
|
struct TokenString *prev;
|
|
const int *prev_ptr;
|
|
char alloc;
|
|
} TokenString;
|
|
|
|
/* GNUC attribute definition */
|
|
typedef struct AttributeDef {
|
|
struct SymAttr a;
|
|
struct FuncAttr f;
|
|
struct Section *section;
|
|
Sym *cleanup_func;
|
|
int alias_target; /* token */
|
|
int asm_label; /* associated asm label */
|
|
char attr_mode; /* __attribute__((__mode__(...))) */
|
|
} AttributeDef;
|
|
|
|
/* inline functions */
|
|
typedef struct InlineFunc {
|
|
TokenString *func_str;
|
|
Sym *sym;
|
|
char filename[1];
|
|
} InlineFunc;
|
|
|
|
/* include file cache, used to find files faster and also to eliminate
|
|
inclusion if the include file is protected by #ifndef ... #endif */
|
|
typedef struct CachedInclude {
|
|
int ifndef_macro;
|
|
int once;
|
|
int hash_next; /* -1 if none */
|
|
char filename[1]; /* path specified in #include */
|
|
} CachedInclude;
|
|
|
|
#define CACHED_INCLUDES_HASH_SIZE 32
|
|
|
|
#ifdef CONFIG_TCC_ASM
|
|
typedef struct ExprValue {
|
|
uint64_t v;
|
|
Sym *sym;
|
|
int pcrel;
|
|
} ExprValue;
|
|
|
|
#define MAX_ASM_OPERANDS 30
|
|
typedef struct ASMOperand {
|
|
int id; /* GCC 3 optional identifier (0 if number only supported */
|
|
char *constraint;
|
|
char asm_str[16]; /* computed asm string for operand */
|
|
SValue *vt; /* C value of the expression */
|
|
int ref_index; /* if >= 0, gives reference to a output constraint */
|
|
int input_index; /* if >= 0, gives reference to an input constraint */
|
|
int priority; /* priority, used to assign registers */
|
|
int reg; /* if >= 0, register number used for this operand */
|
|
int is_llong; /* true if double register value */
|
|
int is_memory; /* true if memory operand */
|
|
int is_rw; /* for '+' modifier */
|
|
} ASMOperand;
|
|
#endif
|
|
|
|
/* extra symbol attributes (not in symbol table) */
|
|
struct sym_attr {
|
|
unsigned got_offset;
|
|
unsigned plt_offset;
|
|
int plt_sym;
|
|
int dyn_index;
|
|
#ifdef TCC_TARGET_ARM
|
|
unsigned char plt_thumb_stub:1;
|
|
#endif
|
|
};
|
|
|
|
struct TCCState {
|
|
unsigned char verbose; /* if true, display some information during compilation */
|
|
unsigned char nostdinc; /* if true, no standard headers are added */
|
|
unsigned char nostdlib; /* if true, no standard libraries are added */
|
|
unsigned char nocommon; /* if true, do not use common symbols for .bss data */
|
|
unsigned char static_link; /* if true, static linking is performed */
|
|
unsigned char rdynamic; /* if true, all symbols are exported */
|
|
unsigned char symbolic; /* if true, resolve symbols in the current module first */
|
|
unsigned char filetype; /* file type for compilation (NONE,C,ASM) */
|
|
unsigned char optimize; /* only to #define __OPTIMIZE__ */
|
|
unsigned char option_pthread; /* -pthread option */
|
|
unsigned char enable_new_dtags; /* -Wl,--enable-new-dtags */
|
|
unsigned int cversion; /* supported C ISO version, 199901 (the default), 201112, ... */
|
|
|
|
char *tcc_lib_path; /* CONFIG_TCCDIR or -B option */
|
|
char *soname; /* as specified on the command line (-soname) */
|
|
char *rpath; /* as specified on the command line (-Wl,-rpath=) */
|
|
|
|
/* output type, see TCC_OUTPUT_XXX */
|
|
int output_type;
|
|
/* output format, see TCC_OUTPUT_FORMAT_xxx */
|
|
int output_format;
|
|
|
|
/* C language options */
|
|
unsigned char char_is_unsigned;
|
|
unsigned char leading_underscore;
|
|
unsigned char ms_extensions; /* allow nested named struct w/o identifier behave like unnamed */
|
|
unsigned char dollars_in_identifiers; /* allows '$' char in identifiers */
|
|
unsigned char ms_bitfields; /* if true, emulate MS algorithm for aligning bitfields */
|
|
|
|
/* warning switches */
|
|
unsigned char warn_write_strings;
|
|
unsigned char warn_unsupported;
|
|
unsigned char warn_error;
|
|
unsigned char warn_none;
|
|
unsigned char warn_implicit_function_declaration;
|
|
unsigned char warn_gcc_compat;
|
|
|
|
/* compile with debug symbol (and use them if error during execution) */
|
|
unsigned char do_debug;
|
|
unsigned char do_backtrace;
|
|
#ifdef CONFIG_TCC_BCHECK
|
|
/* compile with built-in memory and bounds checker */
|
|
unsigned char do_bounds_check;
|
|
#endif
|
|
#ifdef TCC_TARGET_ARM
|
|
enum float_abi float_abi; /* float ABI of the generated code*/
|
|
#endif
|
|
int run_test; /* nth test to run with -dt -run */
|
|
|
|
addr_t text_addr; /* address of text section */
|
|
unsigned char has_text_addr;
|
|
|
|
unsigned section_align; /* section alignment */
|
|
|
|
/* use GNU C extensions */
|
|
unsigned char gnu_ext;
|
|
/* use TinyCC extensions */
|
|
unsigned char tcc_ext;
|
|
|
|
char *init_symbol; /* symbols to call at load-time (not used currently) */
|
|
char *fini_symbol; /* symbols to call at unload-time (not used currently) */
|
|
|
|
#ifdef TCC_TARGET_I386
|
|
int seg_size; /* 32. Can be 16 with i386 assembler (.code16) */
|
|
#endif
|
|
#ifdef TCC_TARGET_X86_64
|
|
unsigned char nosse; /* For -mno-sse support. */
|
|
#endif
|
|
|
|
/* array of all loaded dlls (including those referenced by loaded dlls) */
|
|
DLLReference **loaded_dlls;
|
|
int nb_loaded_dlls;
|
|
|
|
/* include paths */
|
|
char **include_paths;
|
|
int nb_include_paths;
|
|
|
|
char **sysinclude_paths;
|
|
int nb_sysinclude_paths;
|
|
|
|
/* library paths */
|
|
char **library_paths;
|
|
int nb_library_paths;
|
|
|
|
/* crt?.o object path */
|
|
char **crt_paths;
|
|
int nb_crt_paths;
|
|
|
|
/* -D / -U options */
|
|
CString cmdline_defs;
|
|
/* -include options */
|
|
CString cmdline_incl;
|
|
|
|
/* error handling */
|
|
void *error_opaque;
|
|
void (*error_func)(void *opaque, const char *msg);
|
|
int error_set_jmp_enabled;
|
|
jmp_buf error_jmp_buf;
|
|
int nb_errors;
|
|
|
|
/* output file for preprocessing (-E) */
|
|
FILE *ppfp;
|
|
enum {
|
|
LINE_MACRO_OUTPUT_FORMAT_GCC,
|
|
LINE_MACRO_OUTPUT_FORMAT_NONE,
|
|
LINE_MACRO_OUTPUT_FORMAT_STD,
|
|
LINE_MACRO_OUTPUT_FORMAT_P10 = 11
|
|
} Pflag; /* -P switch */
|
|
char dflag; /* -dX value */
|
|
|
|
/* for -MD/-MF: collected dependencies for this compilation */
|
|
char **target_deps;
|
|
int nb_target_deps;
|
|
|
|
/* compilation */
|
|
BufferedFile *include_stack[INCLUDE_STACK_SIZE];
|
|
BufferedFile **include_stack_ptr;
|
|
|
|
int ifdef_stack[IFDEF_STACK_SIZE];
|
|
int *ifdef_stack_ptr;
|
|
|
|
/* included files enclosed with #ifndef MACRO */
|
|
int cached_includes_hash[CACHED_INCLUDES_HASH_SIZE];
|
|
CachedInclude **cached_includes;
|
|
int nb_cached_includes;
|
|
|
|
/* #pragma pack stack */
|
|
int pack_stack[PACK_STACK_SIZE];
|
|
int *pack_stack_ptr;
|
|
char **pragma_libs;
|
|
int nb_pragma_libs;
|
|
|
|
/* inline functions are stored as token lists and compiled last
|
|
only if referenced */
|
|
struct InlineFunc **inline_fns;
|
|
int nb_inline_fns;
|
|
|
|
/* sections */
|
|
Section **sections;
|
|
int nb_sections; /* number of sections, including first dummy section */
|
|
|
|
Section **priv_sections;
|
|
int nb_priv_sections; /* number of private sections */
|
|
|
|
/* got & plt handling */
|
|
Section *got;
|
|
Section *plt;
|
|
|
|
/* predefined sections */
|
|
Section *text_section, *data_section, *bss_section;
|
|
Section *common_section;
|
|
Section *cur_text_section; /* current section where function code is generated */
|
|
#ifdef CONFIG_TCC_BCHECK
|
|
/* bound check related sections */
|
|
Section *bounds_section; /* contains global data bound description */
|
|
Section *lbounds_section; /* contains local data bound description */
|
|
#endif
|
|
/* symbol sections */
|
|
Section *symtab_section;
|
|
/* debug sections */
|
|
Section *stab_section;
|
|
/* Is there a new undefined sym since last new_undef_sym() */
|
|
int new_undef_sym;
|
|
|
|
/* temporary dynamic symbol sections (for dll loading) */
|
|
Section *dynsymtab_section;
|
|
/* exported dynamic symbol section */
|
|
Section *dynsym;
|
|
/* copy of the global symtab_section variable */
|
|
Section *symtab;
|
|
/* extra attributes (eg. GOT/PLT value) for symtab symbols */
|
|
struct sym_attr *sym_attrs;
|
|
int nb_sym_attrs;
|
|
/* ptr to next reloc entry reused */
|
|
ElfW_Rel *qrel;
|
|
# define qrel s1->qrel
|
|
|
|
#ifdef TCC_TARGET_PE
|
|
/* PE info */
|
|
int pe_subsystem;
|
|
unsigned pe_characteristics;
|
|
unsigned pe_file_align;
|
|
unsigned pe_stack_size;
|
|
addr_t pe_imagebase;
|
|
# ifdef TCC_TARGET_X86_64
|
|
Section *uw_pdata;
|
|
int uw_sym;
|
|
unsigned uw_offs;
|
|
# endif
|
|
#endif
|
|
|
|
#ifndef ELF_OBJ_ONLY
|
|
int nb_sym_versions;
|
|
struct sym_version *sym_versions;
|
|
int nb_sym_to_version;
|
|
int *sym_to_version;
|
|
int dt_verneednum;
|
|
Section *versym_section;
|
|
Section *verneed_section;
|
|
#endif
|
|
|
|
#ifdef TCC_IS_NATIVE
|
|
const char *runtime_main;
|
|
void **runtime_mem;
|
|
int nb_runtime_mem;
|
|
#endif
|
|
|
|
#ifdef CONFIG_TCC_BACKTRACE
|
|
int rt_num_callers;
|
|
#endif
|
|
|
|
int fd, cc; /* used by tcc_load_ldscript */
|
|
|
|
/* benchmark info */
|
|
int total_idents;
|
|
int total_lines;
|
|
int total_bytes;
|
|
|
|
/* option -dnum (for general development purposes) */
|
|
int g_debug;
|
|
|
|
/* for warnings/errors for object files*/
|
|
const char *current_filename;
|
|
|
|
/* used by main and tcc_parse_args only */
|
|
struct filespec **files; /* files seen on command line */
|
|
int nb_files; /* number thereof */
|
|
int nb_libraries; /* number of libs thereof */
|
|
char *outfile; /* output filename */
|
|
unsigned char option_r; /* option -r */
|
|
unsigned char do_bench; /* option -bench */
|
|
int gen_deps; /* option -MD */
|
|
char *deps_outfile; /* option -MF */
|
|
int argc;
|
|
char **argv;
|
|
};
|
|
|
|
struct filespec {
|
|
char type;
|
|
char name[1];
|
|
};
|
|
|
|
/* The current value can be: */
|
|
#define VT_VALMASK 0x003f /* mask for value location, register or: */
|
|
#define VT_CONST 0x0030 /* constant in vc (must be first non register value) */
|
|
#define VT_LLOCAL 0x0031 /* lvalue, offset on stack */
|
|
#define VT_LOCAL 0x0032 /* offset on stack */
|
|
#define VT_CMP 0x0033 /* the value is stored in processor flags (in vc) */
|
|
#define VT_JMP 0x0034 /* value is the consequence of jmp true (even) */
|
|
#define VT_JMPI 0x0035 /* value is the consequence of jmp false (odd) */
|
|
#define VT_LVAL 0x0100 /* var is an lvalue */
|
|
#define VT_SYM 0x0200 /* a symbol value is added */
|
|
#define VT_MUSTCAST 0x0C00 /* value must be casted to be correct (used for
|
|
char/short stored in integer registers) */
|
|
#define VT_MUSTBOUND 0x4000 /* bound checking must be done before
|
|
dereferencing value */
|
|
#define VT_BOUNDED 0x8000 /* value is bounded. The address of the
|
|
bounding function call point is in vc */
|
|
/* types */
|
|
#define VT_BTYPE 0x000f /* mask for basic type */
|
|
#define VT_VOID 0 /* void type */
|
|
#define VT_BYTE 1 /* signed byte type */
|
|
#define VT_SHORT 2 /* short type */
|
|
#define VT_INT 3 /* integer type */
|
|
#define VT_LLONG 4 /* 64 bit integer */
|
|
#define VT_PTR 5 /* pointer */
|
|
#define VT_FUNC 6 /* function type */
|
|
#define VT_STRUCT 7 /* struct/union definition */
|
|
#define VT_FLOAT 8 /* IEEE float */
|
|
#define VT_DOUBLE 9 /* IEEE double */
|
|
#define VT_LDOUBLE 10 /* IEEE long double */
|
|
#define VT_BOOL 11 /* ISOC99 boolean type */
|
|
#define VT_QLONG 13 /* 128-bit integer. Only used for x86-64 ABI */
|
|
#define VT_QFLOAT 14 /* 128-bit float. Only used for x86-64 ABI */
|
|
|
|
#define VT_UNSIGNED 0x0010 /* unsigned type */
|
|
#define VT_DEFSIGN 0x0020 /* explicitly signed or unsigned */
|
|
#define VT_ARRAY 0x0040 /* array type (also has VT_PTR) */
|
|
#define VT_BITFIELD 0x0080 /* bitfield modifier */
|
|
#define VT_CONSTANT 0x0100 /* const modifier */
|
|
#define VT_VOLATILE 0x0200 /* volatile modifier */
|
|
#define VT_VLA 0x0400 /* VLA type (also has VT_PTR and VT_ARRAY) */
|
|
#define VT_LONG 0x0800 /* long type (also has VT_INT rsp. VT_LLONG) */
|
|
|
|
/* storage */
|
|
#define VT_EXTERN 0x00001000 /* extern definition */
|
|
#define VT_STATIC 0x00002000 /* static variable */
|
|
#define VT_TYPEDEF 0x00004000 /* typedef definition */
|
|
#define VT_INLINE 0x00008000 /* inline definition */
|
|
/* currently unused: 0x000[1248]0000 */
|
|
|
|
#define VT_STRUCT_SHIFT 20 /* shift for bitfield shift values (32 - 2*6) */
|
|
#define VT_STRUCT_MASK (((1U << (6+6)) - 1) << VT_STRUCT_SHIFT | VT_BITFIELD)
|
|
#define BIT_POS(t) (((t) >> VT_STRUCT_SHIFT) & 0x3f)
|
|
#define BIT_SIZE(t) (((t) >> (VT_STRUCT_SHIFT + 6)) & 0x3f)
|
|
|
|
#define VT_UNION (1 << VT_STRUCT_SHIFT | VT_STRUCT)
|
|
#define VT_ENUM (2 << VT_STRUCT_SHIFT) /* integral type is an enum really */
|
|
#define VT_ENUM_VAL (3 << VT_STRUCT_SHIFT) /* integral type is an enum constant really */
|
|
|
|
#define IS_ENUM(t) ((t & VT_STRUCT_MASK) == VT_ENUM)
|
|
#define IS_ENUM_VAL(t) ((t & VT_STRUCT_MASK) == VT_ENUM_VAL)
|
|
#define IS_UNION(t) ((t & (VT_STRUCT_MASK|VT_BTYPE)) == VT_UNION)
|
|
|
|
/* type mask (except storage) */
|
|
#define VT_STORAGE (VT_EXTERN | VT_STATIC | VT_TYPEDEF | VT_INLINE)
|
|
#define VT_TYPE (~(VT_STORAGE|VT_STRUCT_MASK))
|
|
|
|
/* symbol was created by tccasm.c first */
|
|
#define VT_ASM (VT_VOID | VT_UNSIGNED)
|
|
#define IS_ASM_SYM(sym) (((sym)->type.t & (VT_BTYPE | VT_ASM)) == VT_ASM)
|
|
|
|
/* general: set/get the pseudo-bitfield value for bit-mask M */
|
|
#define BFVAL(M,N) ((unsigned)((M) & ~((M) << 1)) * (N))
|
|
#define BFGET(X,M) (((X) & (M)) / BFVAL(M,1))
|
|
#define BFSET(X,M,N) ((X) = ((X) & ~(M)) | BFVAL(M,N))
|
|
|
|
/* token values */
|
|
|
|
/* conditional ops */
|
|
#define TOK_LAND 0x90
|
|
#define TOK_LOR 0x91
|
|
/* warning: the following compare tokens depend on i386 asm code */
|
|
#define TOK_ULT 0x92
|
|
#define TOK_UGE 0x93
|
|
#define TOK_EQ 0x94
|
|
#define TOK_NE 0x95
|
|
#define TOK_ULE 0x96
|
|
#define TOK_UGT 0x97
|
|
#define TOK_Nset 0x98
|
|
#define TOK_Nclear 0x99
|
|
#define TOK_LT 0x9c
|
|
#define TOK_GE 0x9d
|
|
#define TOK_LE 0x9e
|
|
#define TOK_GT 0x9f
|
|
|
|
#define TOK_ISCOND(t) (t >= TOK_LAND && t <= TOK_GT)
|
|
|
|
#define TOK_DEC 0x80 /* -- */
|
|
#define TOK_MID 0x81 /* inc/dec, to void constant */
|
|
#define TOK_INC 0x82 /* ++ */
|
|
#define TOK_UDIV 0x83 /* unsigned division */
|
|
#define TOK_UMOD 0x84 /* unsigned modulo */
|
|
#define TOK_PDIV 0x85 /* fast division with undefined rounding for pointers */
|
|
#define TOK_UMULL 0x86 /* unsigned 32x32 -> 64 mul */
|
|
#define TOK_ADDC1 0x87 /* add with carry generation */
|
|
#define TOK_ADDC2 0x88 /* add with carry use */
|
|
#define TOK_SUBC1 0x89 /* add with carry generation */
|
|
#define TOK_SUBC2 0x8a /* add with carry use */
|
|
#define TOK_SHL '<' /* shift left */
|
|
#define TOK_SAR '>' /* signed shift right */
|
|
#define TOK_SHR 0x8b /* unsigned shift right */
|
|
|
|
#define TOK_ARROW 0xa0 /* -> */
|
|
#define TOK_DOTS 0xa1 /* three dots */
|
|
#define TOK_TWODOTS 0xa2 /* C++ token ? */
|
|
#define TOK_TWOSHARPS 0xa3 /* ## preprocessing token */
|
|
#define TOK_PLCHLDR 0xa4 /* placeholder token as defined in C99 */
|
|
#define TOK_NOSUBST 0xa5 /* means following token has already been pp'd */
|
|
#define TOK_PPJOIN 0xa6 /* A '##' in the right position to mean pasting */
|
|
|
|
/* assignment operators */
|
|
#define TOK_A_ADD 0xb0
|
|
#define TOK_A_SUB 0xb1
|
|
#define TOK_A_MUL 0xb2
|
|
#define TOK_A_DIV 0xb3
|
|
#define TOK_A_MOD 0xb4
|
|
#define TOK_A_AND 0xb5
|
|
#define TOK_A_OR 0xb6
|
|
#define TOK_A_XOR 0xb7
|
|
#define TOK_A_SHL 0xb8
|
|
#define TOK_A_SAR 0xb9
|
|
|
|
#define TOK_ASSIGN(t) (t >= TOK_A_ADD && t <= TOK_A_SAR)
|
|
#define TOK_ASSIGN_OP(t) ("+-*/%&|^<>"[t - TOK_A_ADD])
|
|
|
|
/* tokens that carry values (in additional token string space / tokc) --> */
|
|
#define TOK_CCHAR 0xc0 /* char constant in tokc */
|
|
#define TOK_LCHAR 0xc1
|
|
#define TOK_CINT 0xc2 /* number in tokc */
|
|
#define TOK_CUINT 0xc3 /* unsigned int constant */
|
|
#define TOK_CLLONG 0xc4 /* long long constant */
|
|
#define TOK_CULLONG 0xc5 /* unsigned long long constant */
|
|
#define TOK_CLONG 0xc6 /* long constant */
|
|
#define TOK_CULONG 0xc7 /* unsigned long constant */
|
|
#define TOK_STR 0xc8 /* pointer to string in tokc */
|
|
#define TOK_LSTR 0xc9
|
|
#define TOK_CFLOAT 0xca /* float constant */
|
|
#define TOK_CDOUBLE 0xcb /* double constant */
|
|
#define TOK_CLDOUBLE 0xcc /* long double constant */
|
|
#define TOK_PPNUM 0xcd /* preprocessor number */
|
|
#define TOK_PPSTR 0xce /* preprocessor string */
|
|
#define TOK_LINENUM 0xcf /* line number info */
|
|
|
|
#define TOK_HAS_VALUE(t) (t >= TOK_CCHAR && t <= TOK_LINENUM)
|
|
|
|
#define TOK_EOF (-1) /* end of file */
|
|
#define TOK_LINEFEED 10 /* line feed */
|
|
|
|
/* all identifiers and strings have token above that */
|
|
#define TOK_IDENT 256
|
|
|
|
#define DEF_ASM(x) DEF(TOK_ASM_ ## x, #x)
|
|
#define TOK_ASM_int TOK_INT
|
|
#define DEF_ASMDIR(x) DEF(TOK_ASMDIR_ ## x, "." #x)
|
|
#define TOK_ASMDIR_FIRST TOK_ASMDIR_byte
|
|
#define TOK_ASMDIR_LAST TOK_ASMDIR_section
|
|
|
|
#if defined TCC_TARGET_I386 || defined TCC_TARGET_X86_64
|
|
/* only used for i386 asm opcodes definitions */
|
|
#define DEF_BWL(x) \
|
|
DEF(TOK_ASM_ ## x ## b, #x "b") \
|
|
DEF(TOK_ASM_ ## x ## w, #x "w") \
|
|
DEF(TOK_ASM_ ## x ## l, #x "l") \
|
|
DEF(TOK_ASM_ ## x, #x)
|
|
#define DEF_WL(x) \
|
|
DEF(TOK_ASM_ ## x ## w, #x "w") \
|
|
DEF(TOK_ASM_ ## x ## l, #x "l") \
|
|
DEF(TOK_ASM_ ## x, #x)
|
|
#ifdef TCC_TARGET_X86_64
|
|
# define DEF_BWLQ(x) \
|
|
DEF(TOK_ASM_ ## x ## b, #x "b") \
|
|
DEF(TOK_ASM_ ## x ## w, #x "w") \
|
|
DEF(TOK_ASM_ ## x ## l, #x "l") \
|
|
DEF(TOK_ASM_ ## x ## q, #x "q") \
|
|
DEF(TOK_ASM_ ## x, #x)
|
|
# define DEF_WLQ(x) \
|
|
DEF(TOK_ASM_ ## x ## w, #x "w") \
|
|
DEF(TOK_ASM_ ## x ## l, #x "l") \
|
|
DEF(TOK_ASM_ ## x ## q, #x "q") \
|
|
DEF(TOK_ASM_ ## x, #x)
|
|
# define DEF_BWLX DEF_BWLQ
|
|
# define DEF_WLX DEF_WLQ
|
|
/* number of sizes + 1 */
|
|
# define NBWLX 5
|
|
#else
|
|
# define DEF_BWLX DEF_BWL
|
|
# define DEF_WLX DEF_WL
|
|
/* number of sizes + 1 */
|
|
# define NBWLX 4
|
|
#endif
|
|
|
|
#define DEF_FP1(x) \
|
|
DEF(TOK_ASM_ ## f ## x ## s, "f" #x "s") \
|
|
DEF(TOK_ASM_ ## fi ## x ## l, "fi" #x "l") \
|
|
DEF(TOK_ASM_ ## f ## x ## l, "f" #x "l") \
|
|
DEF(TOK_ASM_ ## fi ## x ## s, "fi" #x "s")
|
|
|
|
#define DEF_FP(x) \
|
|
DEF(TOK_ASM_ ## f ## x, "f" #x ) \
|
|
DEF(TOK_ASM_ ## f ## x ## p, "f" #x "p") \
|
|
DEF_FP1(x)
|
|
|
|
#define DEF_ASMTEST(x,suffix) \
|
|
DEF_ASM(x ## o ## suffix) \
|
|
DEF_ASM(x ## no ## suffix) \
|
|
DEF_ASM(x ## b ## suffix) \
|
|
DEF_ASM(x ## c ## suffix) \
|
|
DEF_ASM(x ## nae ## suffix) \
|
|
DEF_ASM(x ## nb ## suffix) \
|
|
DEF_ASM(x ## nc ## suffix) \
|
|
DEF_ASM(x ## ae ## suffix) \
|
|
DEF_ASM(x ## e ## suffix) \
|
|
DEF_ASM(x ## z ## suffix) \
|
|
DEF_ASM(x ## ne ## suffix) \
|
|
DEF_ASM(x ## nz ## suffix) \
|
|
DEF_ASM(x ## be ## suffix) \
|
|
DEF_ASM(x ## na ## suffix) \
|
|
DEF_ASM(x ## nbe ## suffix) \
|
|
DEF_ASM(x ## a ## suffix) \
|
|
DEF_ASM(x ## s ## suffix) \
|
|
DEF_ASM(x ## ns ## suffix) \
|
|
DEF_ASM(x ## p ## suffix) \
|
|
DEF_ASM(x ## pe ## suffix) \
|
|
DEF_ASM(x ## np ## suffix) \
|
|
DEF_ASM(x ## po ## suffix) \
|
|
DEF_ASM(x ## l ## suffix) \
|
|
DEF_ASM(x ## nge ## suffix) \
|
|
DEF_ASM(x ## nl ## suffix) \
|
|
DEF_ASM(x ## ge ## suffix) \
|
|
DEF_ASM(x ## le ## suffix) \
|
|
DEF_ASM(x ## ng ## suffix) \
|
|
DEF_ASM(x ## nle ## suffix) \
|
|
DEF_ASM(x ## g ## suffix)
|
|
|
|
#endif /* defined TCC_TARGET_I386 || defined TCC_TARGET_X86_64 */
|
|
|
|
enum tcc_token {
|
|
TOK_LAST = TOK_IDENT - 1
|
|
#define DEF(id, str) ,id
|
|
#include "tcctok.h"
|
|
#undef DEF
|
|
};
|
|
|
|
/* keywords: tok >= TOK_IDENT && tok < TOK_UIDENT */
|
|
#define TOK_UIDENT TOK_DEFINE
|
|
|
|
/* ------------ libtcc.c ------------ */
|
|
|
|
ST_DATA struct TCCState *tcc_state;
|
|
|
|
/* public functions currently used by the tcc main function */
|
|
ST_FUNC char *pstrcpy(char *buf, size_t buf_size, const char *s);
|
|
ST_FUNC char *pstrcat(char *buf, size_t buf_size, const char *s);
|
|
ST_FUNC char *pstrncpy(char *out, const char *in, size_t num);
|
|
PUB_FUNC char *tcc_basename(const char *name);
|
|
PUB_FUNC char *tcc_fileextension (const char *name);
|
|
|
|
#ifndef MEM_DEBUG
|
|
PUB_FUNC void tcc_free(void *ptr);
|
|
PUB_FUNC void *tcc_malloc(unsigned long size);
|
|
PUB_FUNC void *tcc_mallocz(unsigned long size);
|
|
PUB_FUNC void *tcc_realloc(void *ptr, unsigned long size);
|
|
PUB_FUNC char *tcc_strdup(const char *str);
|
|
#else
|
|
#define tcc_free(ptr) tcc_free_debug(ptr)
|
|
#define tcc_malloc(size) tcc_malloc_debug(size, __FILE__, __LINE__)
|
|
#define tcc_mallocz(size) tcc_mallocz_debug(size, __FILE__, __LINE__)
|
|
#define tcc_realloc(ptr,size) tcc_realloc_debug(ptr, size, __FILE__, __LINE__)
|
|
#define tcc_strdup(str) tcc_strdup_debug(str, __FILE__, __LINE__)
|
|
PUB_FUNC void tcc_free_debug(void *ptr);
|
|
PUB_FUNC void *tcc_malloc_debug(unsigned long size, const char *file, int line);
|
|
PUB_FUNC void *tcc_mallocz_debug(unsigned long size, const char *file, int line);
|
|
PUB_FUNC void *tcc_realloc_debug(void *ptr, unsigned long size, const char *file, int line);
|
|
PUB_FUNC char *tcc_strdup_debug(const char *str, const char *file, int line);
|
|
#endif
|
|
|
|
#define free(p) use_tcc_free(p)
|
|
#define malloc(s) use_tcc_malloc(s)
|
|
#define realloc(p, s) use_tcc_realloc(p, s)
|
|
#undef strdup
|
|
#define strdup(s) use_tcc_strdup(s)
|
|
PUB_FUNC void _tcc_error_noabort(const char *fmt, ...) PRINTF_LIKE(1,2);
|
|
PUB_FUNC NORETURN void _tcc_error(const char *fmt, ...) PRINTF_LIKE(1,2);
|
|
PUB_FUNC void _tcc_warning(const char *fmt, ...) PRINTF_LIKE(1,2);
|
|
|
|
/* other utilities */
|
|
ST_FUNC void dynarray_add(void *ptab, int *nb_ptr, void *data);
|
|
ST_FUNC void dynarray_reset(void *pp, int *n);
|
|
ST_INLN void cstr_ccat(CString *cstr, int ch);
|
|
ST_FUNC void cstr_cat(CString *cstr, const char *str, int len);
|
|
ST_FUNC void cstr_wccat(CString *cstr, int ch);
|
|
ST_FUNC void cstr_new(CString *cstr);
|
|
ST_FUNC void cstr_free(CString *cstr);
|
|
ST_FUNC int cstr_printf(CString *cs, const char *fmt, ...) PRINTF_LIKE(2,3);
|
|
ST_FUNC void cstr_reset(CString *cstr);
|
|
|
|
ST_INLN void sym_free(Sym *sym);
|
|
ST_FUNC Sym *sym_push2(Sym **ps, int v, int t, int c);
|
|
ST_FUNC Sym *sym_find2(Sym *s, int v);
|
|
ST_FUNC Sym *sym_push(int v, CType *type, int r, int c);
|
|
ST_FUNC void sym_pop(Sym **ptop, Sym *b, int keep);
|
|
ST_INLN Sym *struct_find(int v);
|
|
ST_INLN Sym *sym_find(int v);
|
|
ST_FUNC Sym *global_identifier_push(int v, int t, int c);
|
|
|
|
ST_FUNC void tcc_open_bf(TCCState *s1, const char *filename, int initlen);
|
|
ST_FUNC int tcc_open(TCCState *s1, const char *filename);
|
|
ST_FUNC void tcc_close(void);
|
|
|
|
ST_FUNC int tcc_add_file_internal(TCCState *s1, const char *filename, int flags);
|
|
/* flags: */
|
|
#define AFF_PRINT_ERROR 0x10 /* print error if file not found */
|
|
#define AFF_REFERENCED_DLL 0x20 /* load a referenced dll from another dll */
|
|
#define AFF_TYPE_BIN 0x40 /* file to add is binary */
|
|
#define AFF_WHOLE_ARCHIVE 0x80 /* load all objects from archive */
|
|
/* s->filetype: */
|
|
#define AFF_TYPE_NONE 0
|
|
#define AFF_TYPE_C 1
|
|
#define AFF_TYPE_ASM 2
|
|
#define AFF_TYPE_ASMPP 4
|
|
#define AFF_TYPE_LIB 8
|
|
#define AFF_TYPE_MASK (15 | AFF_TYPE_BIN)
|
|
/* values from tcc_object_type(...) */
|
|
#define AFF_BINTYPE_REL 1
|
|
#define AFF_BINTYPE_DYN 2
|
|
#define AFF_BINTYPE_AR 3
|
|
#define AFF_BINTYPE_C67 4
|
|
|
|
#ifndef ELF_OBJ_ONLY
|
|
ST_FUNC int tcc_add_crt(TCCState *s, const char *filename);
|
|
#endif
|
|
#ifndef TCC_TARGET_MACHO
|
|
ST_FUNC int tcc_add_dll(TCCState *s, const char *filename, int flags);
|
|
#endif
|
|
#ifdef CONFIG_TCC_BCHECK
|
|
ST_FUNC void tcc_add_bcheck(TCCState *s1);
|
|
#endif
|
|
#ifdef CONFIG_TCC_BACKTRACE
|
|
ST_FUNC void tcc_add_btstub(TCCState *s1);
|
|
#endif
|
|
ST_FUNC void tcc_add_pragma_libs(TCCState *s1);
|
|
PUB_FUNC int tcc_add_library_err(TCCState *s, const char *f);
|
|
PUB_FUNC void tcc_print_stats(TCCState *s, unsigned total_time);
|
|
PUB_FUNC int tcc_parse_args(TCCState *s, int *argc, char ***argv, int optind);
|
|
#ifdef _WIN32
|
|
ST_FUNC char *normalize_slashes(char *path);
|
|
#endif
|
|
|
|
/* tcc_parse_args return codes: */
|
|
#define OPT_HELP 1
|
|
#define OPT_HELP2 2
|
|
#define OPT_V 3
|
|
#define OPT_PRINT_DIRS 4
|
|
#define OPT_AR 5
|
|
#define OPT_IMPDEF 6
|
|
#define OPT_M32 32
|
|
#define OPT_M64 64
|
|
|
|
/* ------------ tccpp.c ------------ */
|
|
|
|
ST_DATA struct BufferedFile *file;
|
|
ST_DATA int ch, tok;
|
|
ST_DATA CValue tokc;
|
|
ST_DATA const int *macro_ptr;
|
|
ST_DATA int parse_flags;
|
|
ST_DATA int tok_flags;
|
|
ST_DATA CString tokcstr; /* current parsed string, if any */
|
|
|
|
/* display benchmark infos */
|
|
ST_DATA int tok_ident;
|
|
ST_DATA TokenSym **table_ident;
|
|
|
|
#define TOK_FLAG_BOL 0x0001 /* beginning of line before */
|
|
#define TOK_FLAG_BOF 0x0002 /* beginning of file before */
|
|
#define TOK_FLAG_ENDIF 0x0004 /* a endif was found matching starting #ifdef */
|
|
#define TOK_FLAG_EOF 0x0008 /* end of file */
|
|
|
|
#define PARSE_FLAG_PREPROCESS 0x0001 /* activate preprocessing */
|
|
#define PARSE_FLAG_TOK_NUM 0x0002 /* return numbers instead of TOK_PPNUM */
|
|
#define PARSE_FLAG_LINEFEED 0x0004 /* line feed is returned as a
|
|
token. line feed is also
|
|
returned at eof */
|
|
#define PARSE_FLAG_ASM_FILE 0x0008 /* we processing an asm file: '#' can be used for line comment, etc. */
|
|
#define PARSE_FLAG_SPACES 0x0010 /* next() returns space tokens (for -E) */
|
|
#define PARSE_FLAG_ACCEPT_STRAYS 0x0020 /* next() returns '\\' token */
|
|
#define PARSE_FLAG_TOK_STR 0x0040 /* return parsed strings instead of TOK_PPSTR */
|
|
|
|
/* isidnum_table flags: */
|
|
#define IS_SPC 1
|
|
#define IS_ID 2
|
|
#define IS_NUM 4
|
|
|
|
ST_FUNC TokenSym *tok_alloc(const char *str, int len);
|
|
ST_FUNC const char *get_tok_str(int v, CValue *cv);
|
|
ST_FUNC void begin_macro(TokenString *str, int alloc);
|
|
ST_FUNC void end_macro(void);
|
|
ST_FUNC int set_idnum(int c, int val);
|
|
ST_INLN void tok_str_new(TokenString *s);
|
|
ST_FUNC TokenString *tok_str_alloc(void);
|
|
ST_FUNC void tok_str_free(TokenString *s);
|
|
ST_FUNC void tok_str_free_str(int *str);
|
|
ST_FUNC void tok_str_add(TokenString *s, int t);
|
|
ST_FUNC void tok_str_add_tok(TokenString *s);
|
|
ST_INLN void define_push(int v, int macro_type, int *str, Sym *first_arg);
|
|
ST_FUNC void define_undef(Sym *s);
|
|
ST_INLN Sym *define_find(int v);
|
|
ST_FUNC void free_defines(Sym *b);
|
|
ST_FUNC Sym *label_find(int v);
|
|
ST_FUNC Sym *label_push(Sym **ptop, int v, int flags);
|
|
ST_FUNC void label_pop(Sym **ptop, Sym *slast, int keep);
|
|
ST_FUNC void parse_define(void);
|
|
ST_FUNC void preprocess(int is_bof);
|
|
ST_FUNC void next(void);
|
|
ST_INLN void unget_tok(int last_tok);
|
|
ST_FUNC void preprocess_start(TCCState *s1, int filetype);
|
|
ST_FUNC void preprocess_end(TCCState *s1);
|
|
ST_FUNC void tccpp_new(TCCState *s);
|
|
ST_FUNC void tccpp_delete(TCCState *s);
|
|
ST_FUNC int tcc_preprocess(TCCState *s1);
|
|
ST_FUNC void skip(int c);
|
|
ST_FUNC NORETURN void expect(const char *msg);
|
|
|
|
/* space excluding newline */
|
|
static inline int is_space(int ch) {
|
|
return ch == ' ' || ch == '\t' || ch == '\v' || ch == '\f' || ch == '\r';
|
|
}
|
|
static inline int isid(int c) {
|
|
return (c >= 'a' && c <= 'z') || (c >= 'A' && c <= 'Z') || c == '_';
|
|
}
|
|
static inline int isnum(int c) {
|
|
return c >= '0' && c <= '9';
|
|
}
|
|
static inline int isoct(int c) {
|
|
return c >= '0' && c <= '7';
|
|
}
|
|
static inline int toup(int c) {
|
|
return (c >= 'a' && c <= 'z') ? c - 'a' + 'A' : c;
|
|
}
|
|
|
|
/* ------------ tccgen.c ------------ */
|
|
|
|
#define SYM_POOL_NB (8192 / sizeof(Sym))
|
|
|
|
ST_DATA Sym *global_stack;
|
|
ST_DATA Sym *local_stack;
|
|
ST_DATA Sym *local_label_stack;
|
|
ST_DATA Sym *global_label_stack;
|
|
ST_DATA Sym *define_stack;
|
|
ST_DATA CType int_type, func_old_type, char_pointer_type;
|
|
ST_DATA SValue *vtop;
|
|
ST_DATA int rsym, anon_sym, ind, loc;
|
|
|
|
ST_DATA int const_wanted; /* true if constant wanted */
|
|
ST_DATA int nocode_wanted; /* true if no code generation wanted for an expression */
|
|
ST_DATA int global_expr; /* true if compound literals must be allocated globally (used during initializers parsing */
|
|
ST_DATA CType func_vt; /* current function return type (used by return instruction) */
|
|
ST_DATA int func_var; /* true if current function is variadic */
|
|
ST_DATA int func_vc;
|
|
ST_DATA const char *funcname;
|
|
|
|
ST_FUNC void tcc_debug_start(TCCState *s1);
|
|
ST_FUNC void tcc_debug_end(TCCState *s1);
|
|
ST_FUNC void tcc_debug_bincl(TCCState *s1);
|
|
ST_FUNC void tcc_debug_eincl(TCCState *s1);
|
|
ST_FUNC void tcc_debug_putfile(TCCState *s1, const char *filename);
|
|
ST_FUNC void tcc_debug_funcstart(TCCState *s1, Sym *sym);
|
|
ST_FUNC void tcc_debug_funcend(TCCState *s1, int size);
|
|
ST_FUNC void tcc_debug_line(TCCState *s1);
|
|
|
|
ST_FUNC void tccgen_init(TCCState *s1);
|
|
ST_FUNC int tccgen_compile(TCCState *s1);
|
|
ST_FUNC void tccgen_finish(TCCState *s1);
|
|
ST_FUNC void check_vstack(void);
|
|
|
|
ST_INLN int is_float(int t);
|
|
ST_FUNC int ieee_finite(double d);
|
|
ST_FUNC int exact_log2p1(int i);
|
|
ST_FUNC void test_lvalue(void);
|
|
ST_FUNC void vpushi(int v);
|
|
ST_FUNC ElfSym *elfsym(Sym *);
|
|
ST_FUNC void update_storage(Sym *sym);
|
|
ST_FUNC Sym *external_global_sym(int v, CType *type);
|
|
ST_FUNC void vset(CType *type, int r, int v);
|
|
ST_FUNC void vset_VT_CMP(int op);
|
|
ST_FUNC void vswap(void);
|
|
ST_FUNC void vpush_global_sym(CType *type, int v);
|
|
ST_FUNC void vrote(SValue *e, int n);
|
|
ST_FUNC void vrott(int n);
|
|
ST_FUNC void vrotb(int n);
|
|
#if PTR_SIZE == 4
|
|
ST_FUNC void lexpand(void);
|
|
#endif
|
|
#ifdef TCC_TARGET_ARM
|
|
ST_FUNC int get_reg_ex(int rc, int rc2);
|
|
#endif
|
|
ST_FUNC void vpushv(SValue *v);
|
|
ST_FUNC void save_reg(int r);
|
|
ST_FUNC void save_reg_upstack(int r, int n);
|
|
ST_FUNC int get_reg(int rc);
|
|
ST_FUNC void save_regs(int n);
|
|
ST_FUNC void gaddrof(void);
|
|
ST_FUNC int gv(int rc);
|
|
ST_FUNC void gv2(int rc1, int rc2);
|
|
ST_FUNC void vpop(void);
|
|
ST_FUNC void gen_op(int op);
|
|
ST_FUNC int type_size(CType *type, int *a);
|
|
ST_FUNC void mk_pointer(CType *type);
|
|
ST_FUNC void vstore(void);
|
|
ST_FUNC void inc(int post, int c);
|
|
ST_FUNC void parse_mult_str (CString *astr, const char *msg);
|
|
ST_FUNC void parse_asm_str(CString *astr);
|
|
ST_FUNC void indir(void);
|
|
ST_FUNC void unary(void);
|
|
ST_FUNC void gexpr(void);
|
|
ST_FUNC int expr_const(void);
|
|
#if defined CONFIG_TCC_BCHECK || defined TCC_TARGET_C67
|
|
ST_FUNC Sym *get_sym_ref(CType *type, Section *sec, unsigned long offset, unsigned long size);
|
|
#endif
|
|
#if defined TCC_TARGET_X86_64 && !defined TCC_TARGET_PE
|
|
ST_FUNC int classify_x86_64_va_arg(CType *ty);
|
|
#endif
|
|
#ifdef CONFIG_TCC_BCHECK
|
|
ST_FUNC void gbound_args(int nb_args);
|
|
ST_DATA int func_bound_add_epilog;
|
|
#endif
|
|
|
|
/* ------------ tccelf.c ------------ */
|
|
|
|
#define TCC_OUTPUT_FORMAT_ELF 0 /* default output format: ELF */
|
|
#define TCC_OUTPUT_FORMAT_BINARY 1 /* binary image output */
|
|
#define TCC_OUTPUT_FORMAT_COFF 2 /* COFF */
|
|
|
|
#define ARMAG "!<arch>\012" /* For COFF and a.out archives */
|
|
|
|
typedef struct {
|
|
unsigned int n_strx; /* index into string table of name */
|
|
unsigned char n_type; /* type of symbol */
|
|
unsigned char n_other; /* misc info (usually empty) */
|
|
unsigned short n_desc; /* description field */
|
|
unsigned int n_value; /* value of symbol */
|
|
} Stab_Sym;
|
|
|
|
ST_FUNC void tccelf_new(TCCState *s);
|
|
ST_FUNC void tccelf_delete(TCCState *s);
|
|
ST_FUNC void tccelf_stab_new(TCCState *s);
|
|
ST_FUNC void tccelf_begin_file(TCCState *s1);
|
|
ST_FUNC void tccelf_end_file(TCCState *s1);
|
|
#ifdef CONFIG_TCC_BCHECK
|
|
ST_FUNC void tccelf_bounds_new(TCCState *s);
|
|
#endif
|
|
ST_FUNC Section *new_section(TCCState *s1, const char *name, int sh_type, int sh_flags);
|
|
ST_FUNC void section_realloc(Section *sec, unsigned long new_size);
|
|
ST_FUNC size_t section_add(Section *sec, addr_t size, int align);
|
|
ST_FUNC void *section_ptr_add(Section *sec, addr_t size);
|
|
ST_FUNC void section_reserve(Section *sec, unsigned long size);
|
|
ST_FUNC Section *find_section(TCCState *s1, const char *name);
|
|
ST_FUNC Section *new_symtab(TCCState *s1, const char *symtab_name, int sh_type, int sh_flags, const char *strtab_name, const char *hash_name, int hash_sh_flags);
|
|
|
|
ST_FUNC void put_extern_sym2(Sym *sym, int sh_num, addr_t value, unsigned long size, int can_add_underscore);
|
|
ST_FUNC void put_extern_sym(Sym *sym, Section *section, addr_t value, unsigned long size);
|
|
#if PTR_SIZE == 4
|
|
ST_FUNC void greloc(Section *s, Sym *sym, unsigned long offset, int type);
|
|
#endif
|
|
ST_FUNC void greloca(Section *s, Sym *sym, unsigned long offset, int type, addr_t addend);
|
|
|
|
ST_FUNC int put_elf_str(Section *s, const char *sym);
|
|
ST_FUNC int put_elf_sym(Section *s, addr_t value, unsigned long size, int info, int other, int shndx, const char *name);
|
|
ST_FUNC int set_elf_sym(Section *s, addr_t value, unsigned long size, int info, int other, int shndx, const char *name);
|
|
ST_FUNC int find_elf_sym(Section *s, const char *name);
|
|
ST_FUNC void put_elf_reloc(Section *symtab, Section *s, unsigned long offset, int type, int symbol);
|
|
ST_FUNC void put_elf_reloca(Section *symtab, Section *s, unsigned long offset, int type, int symbol, addr_t addend);
|
|
|
|
ST_FUNC void put_stabs(TCCState *s1, const char *str, int type, int other, int desc, unsigned long value);
|
|
ST_FUNC void put_stabs_r(TCCState *s1, const char *str, int type, int other, int desc, unsigned long value, Section *sec, int sym_index);
|
|
ST_FUNC void put_stabn(TCCState *s1, int type, int other, int desc, int value);
|
|
|
|
ST_FUNC void resolve_common_syms(TCCState *s1);
|
|
ST_FUNC void relocate_syms(TCCState *s1, Section *symtab, int do_resolve);
|
|
ST_FUNC void relocate_section(TCCState *s1, Section *s);
|
|
|
|
ST_FUNC ssize_t full_read(int fd, void *buf, size_t count);
|
|
ST_FUNC void *load_data(int fd, unsigned long file_offset, unsigned long size);
|
|
ST_FUNC int tcc_object_type(int fd, ElfW(Ehdr) *h);
|
|
ST_FUNC int tcc_load_object_file(TCCState *s1, int fd, unsigned long file_offset);
|
|
ST_FUNC int tcc_load_archive(TCCState *s1, int fd, int alacarte);
|
|
ST_FUNC void add_array(TCCState *s1, const char *sec, int c);
|
|
|
|
#if !defined(ELF_OBJ_ONLY) || (defined(TCC_TARGET_MACHO) && defined TCC_IS_NATIVE)
|
|
ST_FUNC void build_got_entries(TCCState *s1);
|
|
#endif
|
|
ST_FUNC struct sym_attr *get_sym_attr(TCCState *s1, int index, int alloc);
|
|
ST_FUNC void squeeze_multi_relocs(Section *sec, size_t oldrelocoffset);
|
|
|
|
ST_FUNC addr_t get_sym_addr(TCCState *s, const char *name, int err, int forc);
|
|
ST_FUNC void list_elf_symbols(TCCState *s, void *ctx,
|
|
void (*symbol_cb)(void *ctx, const char *name, const void *val));
|
|
ST_FUNC int set_global_sym(TCCState *s1, const char *name, Section *sec, addr_t offs);
|
|
|
|
/* Browse each elem of type <type> in section <sec> starting at elem <startoff>
|
|
using variable <elem> */
|
|
#define for_each_elem(sec, startoff, elem, type) \
|
|
for (elem = (type *) sec->data + startoff; \
|
|
elem < (type *) (sec->data + sec->data_offset); elem++)
|
|
|
|
#ifndef ELF_OBJ_ONLY
|
|
ST_FUNC int tcc_load_dll(TCCState *s1, int fd, const char *filename, int level);
|
|
ST_FUNC int tcc_load_ldscript(TCCState *s1, int fd);
|
|
#endif
|
|
#ifndef TCC_TARGET_PE
|
|
ST_FUNC void tcc_add_runtime(TCCState *s1);
|
|
#endif
|
|
|
|
/* ------------ xxx-link.c ------------ */
|
|
|
|
/* Whether to generate a GOT/PLT entry and when. NO_GOTPLT_ENTRY is first so
|
|
that unknown relocation don't create a GOT or PLT entry */
|
|
enum gotplt_entry {
|
|
NO_GOTPLT_ENTRY, /* never generate (eg. GLOB_DAT & JMP_SLOT relocs) */
|
|
BUILD_GOT_ONLY, /* only build GOT (eg. TPOFF relocs) */
|
|
AUTO_GOTPLT_ENTRY, /* generate if sym is UNDEF */
|
|
ALWAYS_GOTPLT_ENTRY /* always generate (eg. PLTOFF relocs) */
|
|
};
|
|
|
|
#if !defined(ELF_OBJ_ONLY) || defined(TCC_TARGET_MACHO)
|
|
ST_FUNC int code_reloc (int reloc_type);
|
|
ST_FUNC int gotplt_entry_type (int reloc_type);
|
|
#if !defined(TCC_TARGET_MACHO) || defined TCC_IS_NATIVE
|
|
ST_FUNC unsigned create_plt_entry(TCCState *s1, unsigned got_offset, struct sym_attr *attr);
|
|
ST_FUNC void relocate_plt(TCCState *s1);
|
|
#endif
|
|
#endif
|
|
ST_FUNC void relocate(TCCState *s1, ElfW_Rel *rel, int type, unsigned char *ptr, addr_t addr, addr_t val);
|
|
|
|
/* ------------ xxx-gen.c ------------ */
|
|
|
|
ST_DATA const int reg_classes[NB_REGS];
|
|
|
|
ST_FUNC void gsym_addr(int t, int a);
|
|
ST_FUNC void gsym(int t);
|
|
ST_FUNC void load(int r, SValue *sv);
|
|
ST_FUNC void store(int r, SValue *v);
|
|
ST_FUNC int gfunc_sret(CType *vt, int variadic, CType *ret, int *align, int *regsize);
|
|
ST_FUNC void gfunc_call(int nb_args);
|
|
ST_FUNC void gfunc_prolog(Sym *func_sym);
|
|
ST_FUNC void gfunc_epilog(void);
|
|
ST_FUNC void gen_fill_nops(int);
|
|
ST_FUNC int gjmp(int t);
|
|
ST_FUNC void gjmp_addr(int a);
|
|
ST_FUNC int gjmp_cond(int op, int t);
|
|
ST_FUNC int gjmp_append(int n, int t);
|
|
ST_FUNC void gen_opi(int op);
|
|
ST_FUNC void gen_opf(int op);
|
|
ST_FUNC void gen_cvt_ftoi(int t);
|
|
ST_FUNC void gen_cvt_itof(int t);
|
|
ST_FUNC void gen_cvt_ftof(int t);
|
|
ST_FUNC void ggoto(void);
|
|
#ifndef TCC_TARGET_C67
|
|
ST_FUNC void o(unsigned int c);
|
|
#endif
|
|
ST_FUNC void gen_vla_sp_save(int addr);
|
|
ST_FUNC void gen_vla_sp_restore(int addr);
|
|
ST_FUNC void gen_vla_alloc(CType *type, int align);
|
|
|
|
static inline uint16_t read16le(unsigned char *p) {
|
|
return p[0] | (uint16_t)p[1] << 8;
|
|
}
|
|
static inline void write16le(unsigned char *p, uint16_t x) {
|
|
p[0] = x & 255; p[1] = x >> 8 & 255;
|
|
}
|
|
static inline uint32_t read32le(unsigned char *p) {
|
|
return read16le(p) | (uint32_t)read16le(p + 2) << 16;
|
|
}
|
|
static inline void write32le(unsigned char *p, uint32_t x) {
|
|
write16le(p, x); write16le(p + 2, x >> 16);
|
|
}
|
|
static inline void add32le(unsigned char *p, int32_t x) {
|
|
write32le(p, read32le(p) + x);
|
|
}
|
|
static inline uint64_t read64le(unsigned char *p) {
|
|
return read32le(p) | (uint64_t)read32le(p + 4) << 32;
|
|
}
|
|
static inline void write64le(unsigned char *p, uint64_t x) {
|
|
write32le(p, x); write32le(p + 4, x >> 32);
|
|
}
|
|
static inline void add64le(unsigned char *p, int64_t x) {
|
|
write64le(p, read64le(p) + x);
|
|
}
|
|
|
|
/* ------------ i386-gen.c ------------ */
|
|
#if defined TCC_TARGET_I386 || defined TCC_TARGET_X86_64
|
|
ST_FUNC void g(int c);
|
|
ST_FUNC void gen_le16(int c);
|
|
ST_FUNC void gen_le32(int c);
|
|
ST_FUNC void gen_addr32(int r, Sym *sym, int c);
|
|
ST_FUNC void gen_addrpc32(int r, Sym *sym, int c);
|
|
ST_FUNC void gen_cvt_csti(int t);
|
|
#endif
|
|
|
|
/* ------------ x86_64-gen.c ------------ */
|
|
#ifdef TCC_TARGET_X86_64
|
|
ST_FUNC void gen_addr64(int r, Sym *sym, int64_t c);
|
|
ST_FUNC void gen_opl(int op);
|
|
#ifdef TCC_TARGET_PE
|
|
ST_FUNC void gen_vla_result(int addr);
|
|
#endif
|
|
ST_FUNC void gen_cvt_sxtw(void);
|
|
ST_FUNC void gen_cvt_csti(int t);
|
|
#endif
|
|
|
|
/* ------------ arm-gen.c ------------ */
|
|
#ifdef TCC_TARGET_ARM
|
|
#if defined(TCC_ARM_EABI) && !defined(CONFIG_TCC_ELFINTERP)
|
|
PUB_FUNC const char *default_elfinterp(struct TCCState *s);
|
|
#endif
|
|
ST_FUNC void arm_init(struct TCCState *s);
|
|
#endif
|
|
|
|
/* ------------ arm64-gen.c ------------ */
|
|
#ifdef TCC_TARGET_ARM64
|
|
ST_FUNC void gen_opl(int op);
|
|
ST_FUNC void gfunc_return(CType *func_type);
|
|
ST_FUNC void gen_va_start(void);
|
|
ST_FUNC void gen_va_arg(CType *t);
|
|
ST_FUNC void gen_clear_cache(void);
|
|
ST_FUNC void gen_cvt_sxtw(void);
|
|
ST_FUNC void gen_cvt_csti(int t);
|
|
#endif
|
|
|
|
/* ------------ riscv64-gen.c ------------ */
|
|
#ifdef TCC_TARGET_RISCV64
|
|
ST_FUNC void gen_opl(int op);
|
|
//ST_FUNC void gfunc_return(CType *func_type);
|
|
ST_FUNC void gen_va_start(void);
|
|
ST_FUNC void arch_transfer_ret_regs(int);
|
|
ST_FUNC void gen_cvt_sxtw(void);
|
|
#endif
|
|
|
|
/* ------------ c67-gen.c ------------ */
|
|
#ifdef TCC_TARGET_C67
|
|
#endif
|
|
|
|
/* ------------ tcccoff.c ------------ */
|
|
|
|
#ifdef TCC_TARGET_COFF
|
|
ST_FUNC int tcc_output_coff(TCCState *s1, FILE *f);
|
|
ST_FUNC int tcc_load_coff(TCCState * s1, int fd);
|
|
#endif
|
|
|
|
/* ------------ tccasm.c ------------ */
|
|
ST_FUNC void asm_instr(void);
|
|
ST_FUNC void asm_global_instr(void);
|
|
#ifdef CONFIG_TCC_ASM
|
|
ST_FUNC int find_constraint(ASMOperand *operands, int nb_operands, const char *name, const char **pp);
|
|
ST_FUNC Sym* get_asm_sym(int name, Sym *csym);
|
|
ST_FUNC void asm_expr(TCCState *s1, ExprValue *pe);
|
|
ST_FUNC int asm_int_expr(TCCState *s1);
|
|
ST_FUNC int tcc_assemble(TCCState *s1, int do_preprocess);
|
|
/* ------------ i386-asm.c ------------ */
|
|
ST_FUNC void gen_expr32(ExprValue *pe);
|
|
#ifdef TCC_TARGET_X86_64
|
|
ST_FUNC void gen_expr64(ExprValue *pe);
|
|
#endif
|
|
ST_FUNC void asm_opcode(TCCState *s1, int opcode);
|
|
ST_FUNC int asm_parse_regvar(int t);
|
|
ST_FUNC void asm_compute_constraints(ASMOperand *operands, int nb_operands, int nb_outputs, const uint8_t *clobber_regs, int *pout_reg);
|
|
ST_FUNC void subst_asm_operand(CString *add_str, SValue *sv, int modifier);
|
|
ST_FUNC void asm_gen_code(ASMOperand *operands, int nb_operands, int nb_outputs, int is_output, uint8_t *clobber_regs, int out_reg);
|
|
ST_FUNC void asm_clobber(uint8_t *clobber_regs, const char *str);
|
|
#endif
|
|
|
|
/* ------------ tccpe.c -------------- */
|
|
#ifdef TCC_TARGET_PE
|
|
ST_FUNC int pe_load_file(struct TCCState *s1, const char *filename, int fd);
|
|
ST_FUNC int pe_output_file(TCCState * s1, const char *filename);
|
|
ST_FUNC int pe_putimport(TCCState *s1, int dllindex, const char *name, addr_t value);
|
|
#if defined TCC_TARGET_I386 || defined TCC_TARGET_X86_64
|
|
ST_FUNC SValue *pe_getimport(SValue *sv, SValue *v2);
|
|
#endif
|
|
#ifdef TCC_TARGET_X86_64
|
|
ST_FUNC void pe_add_unwind_data(unsigned start, unsigned end, unsigned stack);
|
|
#endif
|
|
PUB_FUNC int tcc_get_dllexports(const char *filename, char **pp);
|
|
/* symbol properties stored in Elf32_Sym->st_other */
|
|
# define ST_PE_EXPORT 0x10
|
|
# define ST_PE_IMPORT 0x20
|
|
# define ST_PE_STDCALL 0x40
|
|
#endif
|
|
#define ST_ASM_SET 0x04
|
|
|
|
/* ------------ tccmacho.c ----------------- */
|
|
#ifdef TCC_TARGET_MACHO
|
|
ST_FUNC int macho_output_file(TCCState * s1, const char *filename);
|
|
ST_FUNC int macho_load_dll(TCCState *s1, int fd, const char *filename, int lev);
|
|
#endif
|
|
/* ------------ tccrun.c ----------------- */
|
|
#ifdef TCC_IS_NATIVE
|
|
#ifdef CONFIG_TCC_STATIC
|
|
#define RTLD_LAZY 0x001
|
|
#define RTLD_NOW 0x002
|
|
#define RTLD_GLOBAL 0x100
|
|
#define RTLD_DEFAULT NULL
|
|
/* dummy function for profiling */
|
|
ST_FUNC void *dlopen(const char *filename, int flag);
|
|
ST_FUNC void dlclose(void *p);
|
|
ST_FUNC const char *dlerror(void);
|
|
ST_FUNC void *dlsym(void *handle, const char *symbol);
|
|
#endif
|
|
ST_FUNC void tcc_run_free(TCCState *s1);
|
|
#endif
|
|
|
|
/* ------------ tcctools.c ----------------- */
|
|
#if 0 /* included in tcc.c */
|
|
ST_FUNC int tcc_tool_ar(TCCState *s, int argc, char **argv);
|
|
#ifdef TCC_TARGET_PE
|
|
ST_FUNC int tcc_tool_impdef(TCCState *s, int argc, char **argv);
|
|
#endif
|
|
ST_FUNC void tcc_tool_cross(TCCState *s, char **argv, int option);
|
|
ST_FUNC void gen_makedeps(TCCState *s, const char *target, const char *filename);
|
|
#endif
|
|
|
|
/********************************************************/
|
|
#undef ST_DATA
|
|
#if ONE_SOURCE
|
|
#define ST_DATA static
|
|
#else
|
|
#define ST_DATA
|
|
#endif
|
|
/********************************************************/
|
|
|
|
#define text_section TCC_STATE_VAR(text_section)
|
|
#define data_section TCC_STATE_VAR(data_section)
|
|
#define bss_section TCC_STATE_VAR(bss_section)
|
|
#define common_section TCC_STATE_VAR(common_section)
|
|
#define cur_text_section TCC_STATE_VAR(cur_text_section)
|
|
#define bounds_section TCC_STATE_VAR(bounds_section)
|
|
#define lbounds_section TCC_STATE_VAR(lbounds_section)
|
|
#define symtab_section TCC_STATE_VAR(symtab_section)
|
|
#define stab_section TCC_STATE_VAR(stab_section)
|
|
#define stabstr_section stab_section->link
|
|
#define gnu_ext TCC_STATE_VAR(gnu_ext)
|
|
#define tcc_error_noabort TCC_SET_STATE(_tcc_error_noabort)
|
|
#define tcc_error TCC_SET_STATE(_tcc_error)
|
|
#define tcc_warning TCC_SET_STATE(_tcc_warning)
|
|
|
|
#define total_idents TCC_STATE_VAR(total_idents)
|
|
#define total_lines TCC_STATE_VAR(total_lines)
|
|
#define total_bytes TCC_STATE_VAR(total_bytes)
|
|
|
|
PUB_FUNC void tcc_enter_state(TCCState *s1);
|
|
PUB_FUNC void tcc_exit_state(void);
|
|
|
|
/********************************************************/
|
|
#endif /* _TCC_H */
|
|
|
|
#undef TCC_STATE_VAR
|
|
#undef TCC_SET_STATE
|
|
|
|
#ifdef USING_GLOBALS
|
|
# define TCC_STATE_VAR(sym) tcc_state->sym
|
|
# define TCC_SET_STATE(fn) fn
|
|
# undef USING_GLOBALS
|
|
#else
|
|
# define TCC_STATE_VAR(sym) s1->sym
|
|
# define TCC_SET_STATE(fn) (tcc_enter_state(s1),fn)
|
|
/* actually we could avoid the tcc_enter_state(s1) hack by using
|
|
__VA_ARGS__ except that some compiler doesn't support it. */
|
|
#endif
|