forked from Mirrors/tinycc
Revert all of my changes to directories & codingstyle.
parent
5a16f5ea98
commit
89ad24e7d6
|
@ -5,7 +5,7 @@ a.out
|
||||||
*.log
|
*.log
|
||||||
tcc_g
|
tcc_g
|
||||||
tcc
|
tcc
|
||||||
/src/*-tcc
|
/*-tcc
|
||||||
tc2.c
|
tc2.c
|
||||||
doc
|
doc
|
||||||
tc3s.c
|
tc3s.c
|
||||||
|
@ -63,7 +63,7 @@ lib/i386-win32
|
||||||
lib/arm
|
lib/arm
|
||||||
lib/arm64
|
lib/arm64
|
||||||
tcc-doc.info
|
tcc-doc.info
|
||||||
conftest*!conftest.c
|
conftest*
|
||||||
tiny_libmaker
|
tiny_libmaker
|
||||||
*.dSYM
|
*.dSYM
|
||||||
*~
|
*~
|
||||||
|
|
|
@ -85,14 +85,14 @@ endif()
|
||||||
|
|
||||||
file(STRINGS "VERSION" TCC_VERSION)
|
file(STRINGS "VERSION" TCC_VERSION)
|
||||||
list(GET TCC_VERSION 0 TCC_VERSION)
|
list(GET TCC_VERSION 0 TCC_VERSION)
|
||||||
include_directories(${CMAKE_CURRENT_SOURCE_DIR}/src/)
|
include_directories(${CMAKE_BINARY_DIR})
|
||||||
configure_file(src/config.h.in ${CMAKE_CURRENT_SOURCE_DIR}/src/config.h)
|
configure_file(config.h.in config.h)
|
||||||
configure_file(docs/config.texi.in ${CMAKE_CURRENT_SOURCE_DIR}/docs/config.texi)
|
configure_file(config.texi.in config.texi)
|
||||||
|
|
||||||
# Utility variables
|
# Utility variables
|
||||||
set(I386_SOURCES src/x86/i386-gen.c src/x86/i386-asm.c src/x86/i386-asm.h src/x86/i386-tok.h)
|
set(I386_SOURCES i386-gen.c i386-asm.c i386-asm.h i386-tok.h)
|
||||||
set(X86_64_SOURCES src/x86/x86_64-gen.c src/x86/i386-asm.c src/x86/x86_64-asm.h)
|
set(X86_64_SOURCES x86_64-gen.c i386-asm.c x86_64-asm.h)
|
||||||
set(ARM_SOURCES src/arm/arm_gen.c)
|
set(ARM_SOURCES arm_gen.c)
|
||||||
|
|
||||||
set(LIBTCC1_I386_SOURCES lib/alloca86.S lib/alloca86-bt.S)
|
set(LIBTCC1_I386_SOURCES lib/alloca86.S lib/alloca86-bt.S)
|
||||||
set(LIBTCC1_WIN_SOURCES win32/lib/crt1.c win32/lib/wincrt1.c win32/lib/dllcrt1.c win32/lib/dllmain.c win32/lib/chkstk.S)
|
set(LIBTCC1_WIN_SOURCES win32/lib/crt1.c win32/lib/wincrt1.c win32/lib/dllcrt1.c win32/lib/dllmain.c win32/lib/chkstk.S)
|
||||||
|
@ -157,22 +157,22 @@ macro(make_tcc native_name cross_name cross_enabled definitions tcc_sources libt
|
||||||
|
|
||||||
if (TCC_BUILD_NATIVE)
|
if (TCC_BUILD_NATIVE)
|
||||||
add_library(libtcc
|
add_library(libtcc
|
||||||
src/libtcc.c
|
libtcc.c
|
||||||
src/tccpp.c
|
tccpp.c
|
||||||
src/tccgen.c
|
tccgen.c
|
||||||
src/tccelf.c
|
tccelf.c
|
||||||
src/tccasm.c
|
tccasm.c
|
||||||
src/tccrun.c
|
tccrun.c
|
||||||
src/tcc.h
|
tcc.h
|
||||||
src/libtcc.h
|
libtcc.h
|
||||||
src/tcctok.h
|
tcctok.h
|
||||||
${tcc_sources}
|
${tcc_sources}
|
||||||
)
|
)
|
||||||
set_target_properties(libtcc PROPERTIES OUTPUT_NAME tcc PREFIX lib)
|
set_target_properties(libtcc PROPERTIES OUTPUT_NAME tcc PREFIX lib)
|
||||||
if(WIN32)
|
if(WIN32)
|
||||||
set_target_properties(libtcc PROPERTIES LINK_FLAGS "-Wl,--output-def,libtcc.def")
|
set_target_properties(libtcc PROPERTIES LINK_FLAGS "-Wl,--output-def,libtcc.def")
|
||||||
endif()
|
endif()
|
||||||
add_executable(tcc src/tcc.c)
|
add_executable(tcc tcc.c)
|
||||||
target_link_libraries(tcc libtcc)
|
target_link_libraries(tcc libtcc)
|
||||||
if(NOT WIN32)
|
if(NOT WIN32)
|
||||||
target_link_libraries(tcc dl)
|
target_link_libraries(tcc dl)
|
||||||
|
@ -185,7 +185,7 @@ macro(make_tcc native_name cross_name cross_enabled definitions tcc_sources libt
|
||||||
endif()
|
endif()
|
||||||
endif()
|
endif()
|
||||||
elseif(${cross_enabled})
|
elseif(${cross_enabled})
|
||||||
add_executable(${cross_name}-tcc src/tcc.c)
|
add_executable(${cross_name}-tcc tcc.c)
|
||||||
set_target_properties(${cross_name}-tcc PROPERTIES COMPILE_DEFINITIONS "ONE_SOURCE;${definitions}")
|
set_target_properties(${cross_name}-tcc PROPERTIES COMPILE_DEFINITIONS "ONE_SOURCE;${definitions}")
|
||||||
install(TARGETS ${cross_name}-tcc RUNTIME DESTINATION ${EXE_PATH})
|
install(TARGETS ${cross_name}-tcc RUNTIME DESTINATION ${EXE_PATH})
|
||||||
|
|
||||||
|
@ -197,17 +197,17 @@ endmacro()
|
||||||
|
|
||||||
make_tcc("Win32" i386-w64-mingw32 TCC_BUILD_WIN32
|
make_tcc("Win32" i386-w64-mingw32 TCC_BUILD_WIN32
|
||||||
"TCC_TARGET_I386;TCC_TARGET_PE"
|
"TCC_TARGET_I386;TCC_TARGET_PE"
|
||||||
"${I386_SOURCES};src/tccpe.c"
|
"${I386_SOURCES};tccpe.c"
|
||||||
tiny_libmaker_32 "${LIBTCC1_I386_SOURCES};${LIBTCC1_WIN_SOURCES}" "win32/include;win32/include/winapi"
|
tiny_libmaker_32 "${LIBTCC1_I386_SOURCES};${LIBTCC1_WIN_SOURCES}" "win32/include;win32/include/winapi"
|
||||||
)
|
)
|
||||||
make_tcc("Win64" x86_64-w64-mingw32 TCC_BUILD_WIN64
|
make_tcc("Win64" x86_64-w64-mingw32 TCC_BUILD_WIN64
|
||||||
"TCC_TARGET_X86_64;TCC_TARGET_PE"
|
"TCC_TARGET_X86_64;TCC_TARGET_PE"
|
||||||
"${X86_64_SOURCES};src/tccpe.c"
|
"${X86_64_SOURCES};tccpe.c"
|
||||||
tiny_libmaker_64 "lib/alloca86_64.S;${LIBTCC1_WIN_SOURCES}" "win32/include;win32/include/winapi"
|
tiny_libmaker_64 "lib/alloca86_64.S;${LIBTCC1_WIN_SOURCES}" "win32/include;win32/include/winapi"
|
||||||
)
|
)
|
||||||
make_tcc("WinCE" arm-wince-mingw32ce TCC_BUILD_WINCE
|
make_tcc("WinCE" arm-wince-mingw32ce TCC_BUILD_WINCE
|
||||||
"TCC_TARGET_ARM;TCC_ARM_VERSION=${TCC_ARM_VERSION};TCC_TARGET_PE"
|
"TCC_TARGET_ARM;TCC_ARM_VERSION=${TCC_ARM_VERSION};TCC_TARGET_PE"
|
||||||
"${ARM_SOURCES};src/tccpe.c"
|
"${ARM_SOURCES};tccpe.c"
|
||||||
"" "" ""
|
"" "" ""
|
||||||
)
|
)
|
||||||
make_tcc("i386" i386-linux-gnu TCC_BUILD_I386
|
make_tcc("i386" i386-linux-gnu TCC_BUILD_I386
|
||||||
|
@ -248,7 +248,7 @@ make_tcc("" arm-linux-gnu TCC_BUILD_ARM_VFP
|
||||||
)
|
)
|
||||||
make_tcc("" c67 TCC_BUILD_C67
|
make_tcc("" c67 TCC_BUILD_C67
|
||||||
TCC_TARGET_C67
|
TCC_TARGET_C67
|
||||||
"c67-gen.c;src/tcccoff.c"
|
"c67-gen.c;tcccoff.c"
|
||||||
"" "" ""
|
"" "" ""
|
||||||
)
|
)
|
||||||
|
|
||||||
|
@ -257,14 +257,14 @@ add_subdirectory(tests)
|
||||||
find_program(MAKEINFO NAMES makeinfo PATHS C:/MinGW/MSYS/1.0/bin)
|
find_program(MAKEINFO NAMES makeinfo PATHS C:/MinGW/MSYS/1.0/bin)
|
||||||
if(MAKEINFO)
|
if(MAKEINFO)
|
||||||
add_custom_command(OUTPUT tcc-doc.html
|
add_custom_command(OUTPUT tcc-doc.html
|
||||||
COMMAND ${MAKEINFO} --no-split --html -o tcc-doc.html ${CMAKE_CURRENT_SOURCE_DIR}/docs/tcc-doc.texi
|
COMMAND ${MAKEINFO} --no-split --html -o tcc-doc.html ${CMAKE_CURRENT_SOURCE_DIR}/tcc-doc.texi
|
||||||
DEPENDS ${CMAKE_CURRENT_SOURCE_DIR}/docs/tcc-doc.texi
|
DEPENDS ${CMAKE_CURRENT_SOURCE_DIR}/tcc-doc.texi
|
||||||
)
|
)
|
||||||
set(TCC_DOC_FILES tcc-doc.html)
|
set(TCC_DOC_FILES tcc-doc.html)
|
||||||
if(NOT WIN32)
|
if(NOT WIN32)
|
||||||
add_custom_command(OUTPUT tcc-doc.info
|
add_custom_command(OUTPUT tcc-doc.info
|
||||||
COMMAND ${MAKEINFO} -o tcc-doc.info ${CMAKE_CURRENT_SOURCE_DIR}/docs/tcc-doc.texi
|
COMMAND ${MAKEINFO} -o tcc-doc.info ${CMAKE_CURRENT_SOURCE_DIR}/tcc-doc.texi
|
||||||
DEPENDS ${CMAKE_CURRENT_SOURCE_DIR}/docs/tcc-doc.texi
|
DEPENDS ${CMAKE_CURRENT_SOURCE_DIR}/tcc-doc.texi
|
||||||
)
|
)
|
||||||
set(TCC_DOC_FILES ${TCC_DOC_FILES} tcc-doc.info)
|
set(TCC_DOC_FILES ${TCC_DOC_FILES} tcc-doc.info)
|
||||||
install(FILES ${CMAKE_CURRENT_BINARY_DIR}/tcc-doc.info DESTINATION share/info)
|
install(FILES ${CMAKE_CURRENT_BINARY_DIR}/tcc-doc.info DESTINATION share/info)
|
||||||
|
@ -290,3 +290,4 @@ else()
|
||||||
install(DIRECTORY win32/include/ DESTINATION lib/tcc/win32/include)
|
install(DIRECTORY win32/include/ DESTINATION lib/tcc/win32/include)
|
||||||
install(DIRECTORY include/ DESTINATION lib/tcc/win32/include)
|
install(DIRECTORY include/ DESTINATION lib/tcc/win32/include)
|
||||||
endif()
|
endif()
|
||||||
|
|
||||||
|
|
|
@ -1,9 +1,5 @@
|
||||||
TinyCC Coding Style
|
Indentation
|
||||||
==========================
|
|
||||||
Lines should be no more than 80 columns long.
|
|
||||||
|
|
||||||
Indentation
|
|
||||||
--------------------------------------
|
|
||||||
Turn on a "fill tabs with spaces" option in your editor.
|
Turn on a "fill tabs with spaces" option in your editor.
|
||||||
|
|
||||||
Be also careful that some files are indented with 2 spaces (when they
|
Be also careful that some files are indented with 2 spaces (when they
|
423
Makefile
423
Makefile
|
@ -1,8 +1,421 @@
|
||||||
SRC_DIR = src
|
#
|
||||||
|
# Tiny C Compiler Makefile
|
||||||
|
#
|
||||||
|
|
||||||
.PHONY: default
|
TOP ?= .
|
||||||
default:
|
include $(TOP)/config.mak
|
||||||
$(MAKE) -C $(SRC_DIR)
|
VPATH = $(top_srcdir)
|
||||||
|
|
||||||
|
CPPFLAGS += -I$(TOP) # for config.h
|
||||||
|
|
||||||
|
ifneq (-$(findstring gcc,$(CC))-,-gcc-)
|
||||||
|
ifeq (-$(findstring clang,$(CC))-,-clang-)
|
||||||
|
# make clang accept gnuisms in libtcc1.c
|
||||||
|
CFLAGS+=-fheinous-gnu-extensions
|
||||||
|
endif
|
||||||
|
endif
|
||||||
|
|
||||||
|
CPPFLAGS_P=$(CPPFLAGS) -DCONFIG_TCC_STATIC
|
||||||
|
CFLAGS_P=$(CFLAGS) -pg -static
|
||||||
|
LIBS_P=
|
||||||
|
LDFLAGS_P=$(LDFLAGS)
|
||||||
|
|
||||||
|
ifdef CONFIG_WIN64
|
||||||
|
CONFIG_WIN32=yes
|
||||||
|
endif
|
||||||
|
|
||||||
|
ifndef CONFIG_WIN32
|
||||||
|
LIBS=-lm
|
||||||
|
ifndef CONFIG_NOLDL
|
||||||
|
LIBS+=-ldl
|
||||||
|
endif
|
||||||
|
endif
|
||||||
|
|
||||||
|
# make libtcc as static or dynamic library?
|
||||||
|
ifdef DISABLE_STATIC
|
||||||
|
ifndef CONFIG_WIN32
|
||||||
|
LIBTCC=libtcc.so.1.0
|
||||||
|
else
|
||||||
|
LIBTCC=libtcc.dll
|
||||||
|
LIBTCC_DLL=yes
|
||||||
|
LIBTCC_EXTRA=libtcc.def libtcc.a
|
||||||
|
endif
|
||||||
|
LINK_LIBTCC=-Wl,-rpath,"$(libdir)"
|
||||||
|
ifdef DISABLE_RPATH
|
||||||
|
LINK_LIBTCC=
|
||||||
|
endif
|
||||||
|
else
|
||||||
|
LIBTCC=libtcc.a
|
||||||
|
LINK_LIBTCC=
|
||||||
|
endif
|
||||||
|
|
||||||
|
CONFIG_$(ARCH) = yes
|
||||||
|
NATIVE_DEFINES_$(CONFIG_i386) += -DTCC_TARGET_I386
|
||||||
|
NATIVE_DEFINES_$(CONFIG_x86-64) += -DTCC_TARGET_X86_64
|
||||||
|
NATIVE_DEFINES_$(CONFIG_WIN32) += -DTCC_TARGET_PE
|
||||||
|
NATIVE_DEFINES_$(CONFIG_uClibc) += -DTCC_UCLIBC
|
||||||
|
NATIVE_DEFINES_$(CONFIG_arm) += -DTCC_TARGET_ARM
|
||||||
|
NATIVE_DEFINES_$(CONFIG_arm_eabihf) += -DTCC_ARM_EABI -DTCC_ARM_HARDFLOAT
|
||||||
|
NATIVE_DEFINES_$(CONFIG_arm_eabi) += -DTCC_ARM_EABI
|
||||||
|
NATIVE_DEFINES_$(CONFIG_arm_vfp) += -DTCC_ARM_VFP
|
||||||
|
NATIVE_DEFINES_$(CONFIG_arm64) += -DTCC_TARGET_ARM64
|
||||||
|
NATIVE_DEFINES += $(NATIVE_DEFINES_yes)
|
||||||
|
|
||||||
|
ifeq ($(TOP),.)
|
||||||
|
|
||||||
|
PROGS=tcc$(EXESUF)
|
||||||
|
I386_CROSS = i386-linux-gnu-tcc$(EXESUF)
|
||||||
|
WIN32_CROSS = i386-win-mingw32-tcc$(EXESUF)
|
||||||
|
WIN64_CROSS = x86_64-win-mingw32-tcc$(EXESUF)
|
||||||
|
WINCE_CROSS = arm-win-mingw32ce-tcc$(EXESUF)
|
||||||
|
X64_CROSS = x86_64-linux-gnu-tcc$(EXESUF)
|
||||||
|
ARM_FPA_CROSS = arm-linux-fpa-tcc$(EXESUF)
|
||||||
|
ARM_FPA_LD_CROSS = arm-linux-fpa-ld-tcc$(EXESUF)
|
||||||
|
ARM_VFP_CROSS = arm-linux-gnu-tcc$(EXESUF)
|
||||||
|
ARM_EABI_CROSS = arm-linux-gnueabi-tcc$(EXESUF)
|
||||||
|
ARM_EABIHF_CROSS = arm-linux-gnueabihf-tcc$(EXESUF)
|
||||||
|
ARM_CROSS = $(ARM_FPA_CROSS) $(ARM_FPA_LD_CROSS) $(ARM_VFP_CROSS) $(ARM_EABI_CROSS)
|
||||||
|
ARM64_CROSS = arm64-tcc$(EXESUF)
|
||||||
|
C67_CROSS = c67-tcc$(EXESUF)
|
||||||
|
|
||||||
|
# Legacy symlinks for cross compilers
|
||||||
|
$(I386_CROSS)_LINK = i386-tcc$(EXESUF)
|
||||||
|
$(WIN32_CROSS)_LINK = i386-win-tcc$(EXESUF)
|
||||||
|
$(WIN64_CROSS)_LINK = x86_64-win-tcc$(EXESUF)
|
||||||
|
$(WINCE_CROSS)_LINK = arm-win-tcc$(EXESUF)
|
||||||
|
$(X64_CROSS)_LINK = x86_64-tcc$(EXESUF)
|
||||||
|
$(ARM_FPA_CROSS)_LINK = arm-fpa-tcc$(EXESUF)
|
||||||
|
$(ARM_FPA_LD_CROSS)_LINK = arm-fpa-ld-tcc$(EXESUF)
|
||||||
|
$(ARM_VFP_CROSS)_LINK = arm-vfp-tcc$(EXESUF)
|
||||||
|
$(ARM_EABI_CROSS)_LINK = arm-eabi-tcc$(EXESUF)
|
||||||
|
|
||||||
|
ifeq ($(TARGETOS),Windows)
|
||||||
|
ifeq ($(ARCH),i386)
|
||||||
|
PROGS:=$($(WIN32_CROSS)_LINK)
|
||||||
|
$($(WIN32_CROSS)_LINK)_TCC = yes
|
||||||
|
endif
|
||||||
|
ifeq ($(ARCH),x86-64)
|
||||||
|
PROGS:=$($(WIN64_CROSS)_LINK)
|
||||||
|
$($(WIN64_CROSS)_LINK)_TCC = yes
|
||||||
|
endif
|
||||||
|
endif
|
||||||
|
|
||||||
|
ifeq ($(TARGETOS),Linux)
|
||||||
|
ifeq ($(ARCH),i386)
|
||||||
|
PROGS:=$($(I386_CROSS)_LINK)
|
||||||
|
$($(I386_CROSS)_LINK)_TCC = yes
|
||||||
|
endif
|
||||||
|
ifeq ($(ARCH),x86-64)
|
||||||
|
PROGS:=$($(X64_CROSS)_LINK)
|
||||||
|
$($(X64_CROSS)_LINK)_TCC = yes
|
||||||
|
endif
|
||||||
|
endif
|
||||||
|
|
||||||
|
CORE_FILES = tcc.c libtcc.c tccpp.c tccgen.c tccelf.c tccasm.c tccrun.c
|
||||||
|
CORE_FILES += tcc.h config.h libtcc.h tcctok.h
|
||||||
|
I386_FILES = $(CORE_FILES) i386-gen.c i386-asm.c i386-asm.h i386-tok.h
|
||||||
|
WIN32_FILES = $(CORE_FILES) i386-gen.c i386-asm.c i386-asm.h i386-tok.h tccpe.c
|
||||||
|
WIN64_FILES = $(CORE_FILES) x86_64-gen.c i386-asm.c x86_64-asm.h tccpe.c
|
||||||
|
WINCE_FILES = $(CORE_FILES) arm-gen.c tccpe.c
|
||||||
|
X86_64_FILES = $(CORE_FILES) x86_64-gen.c i386-asm.c x86_64-asm.h
|
||||||
|
ARM_FILES = $(CORE_FILES) arm-gen.c
|
||||||
|
ARM64_FILES = $(CORE_FILES) arm64-gen.c
|
||||||
|
C67_FILES = $(CORE_FILES) c67-gen.c tcccoff.c
|
||||||
|
|
||||||
|
ifdef CONFIG_WIN64
|
||||||
|
PROGS+=tiny_impdef$(EXESUF) tiny_libmaker$(EXESUF)
|
||||||
|
NATIVE_FILES=$(WIN64_FILES)
|
||||||
|
PROGS_CROSS=$(WIN32_CROSS) $(I386_CROSS) $(X64_CROSS) $(ARM_CROSS) $(ARM64_CROSS) $(C67_CROSS) $(WINCE_CROSS)
|
||||||
|
LIBTCC1_CROSS=lib/i386-win/libtcc1.a
|
||||||
|
LIBTCC1=libtcc1.a
|
||||||
|
else ifdef CONFIG_WIN32
|
||||||
|
PROGS+=tiny_impdef$(EXESUF) tiny_libmaker$(EXESUF)
|
||||||
|
NATIVE_FILES=$(WIN32_FILES)
|
||||||
|
PROGS_CROSS=$(WIN64_CROSS) $(I386_CROSS) $(X64_CROSS) $(ARM_CROSS) $(ARM64_CROSS) $(C67_CROSS) $(WINCE_CROSS)
|
||||||
|
LIBTCC1_CROSS=lib/x86_64-win/libtcc1.a
|
||||||
|
LIBTCC1=libtcc1.a
|
||||||
|
else ifeq ($(ARCH),i386)
|
||||||
|
NATIVE_FILES=$(I386_FILES)
|
||||||
|
PROGS_CROSS=$($(X64_CROSS)_LINK) $($(WIN32_CROSS)_LINK) $($(WIN64_CROSS)_LINK) $(ARM_CROSS) $(ARM64_CROSS) $(C67_CROSS) $(WINCE_CROSS)
|
||||||
|
LIBTCC1_CROSS=lib/i386-win/libtcc1.a lib/x86_64-win/libtcc1.a lib/i386/libtcc1.a lib/x86_64/libtcc1.a \
|
||||||
|
lib/arm64/libtcc1.a
|
||||||
|
LIBTCC1=libtcc1.a
|
||||||
|
else ifeq ($(ARCH),x86-64)
|
||||||
|
ifeq ($(TARGETOS),Darwin)
|
||||||
|
NATIVE_FILES=$(X86_64_FILES)
|
||||||
|
PROGS_CROSS=$($(I386_CROSS)_LINK) $($(WIN32_CROSS)_LINK) $($(WIN64_CROSS)_LINK) $(ARM_CROSS) $(C67_CROSS) $(WINCE_CROSS)
|
||||||
|
LIBTCC1_CROSS=lib/i386-win/libtcc1.a lib/x86_64-win/libtcc1.a lib/i386/libtcc1.a lib/x86_64/libtcc1.a
|
||||||
|
LIBTCC1=libtcc1.a
|
||||||
|
else
|
||||||
|
NATIVE_FILES=$(X86_64_FILES)
|
||||||
|
PROGS_CROSS=$($(I386_CROSS)_LINK) $($(WIN32_CROSS)_LINK) $($(WIN64_CROSS)_LINK) $(ARM_CROSS) $(ARM64_CROSS) $(C67_CROSS) $(WINCE_CROSS)
|
||||||
|
LIBTCC1_CROSS=lib/i386-win/libtcc1.a lib/x86_64-win/libtcc1.a lib/i386/libtcc1.a lib/x86_64/libtcc1.a \
|
||||||
|
lib/arm64/libtcc1.a
|
||||||
|
LIBTCC1=libtcc1.a
|
||||||
|
endif
|
||||||
|
else ifeq ($(ARCH),arm)
|
||||||
|
NATIVE_FILES=$(ARM_FILES)
|
||||||
|
PROGS_CROSS=$(I386_CROSS) $(X64_CROSS) $(WIN32_CROSS) $(WIN64_CROSS) $(ARM64_CROSS) $(C67_CROSS) $(WINCE_CROSS)
|
||||||
|
LIBTCC1=libtcc1.a
|
||||||
|
LIBTCC1_CROSS=lib/i386-win/libtcc1.a lib/x86_64-win/libtcc1.a lib/i386/libtcc1.a
|
||||||
|
else ifeq ($(ARCH),arm64)
|
||||||
|
NATIVE_FILES=$(ARM64_FILES)
|
||||||
|
PROGS_CROSS=$(I386_CROSS) $(X64_CROSS) $(WIN32_CROSS) $(WIN64_CROSS) $(ARM_CROSS) $(C67_CROSS) $(WINCE_CROSS)
|
||||||
|
LIBTCC1=libtcc1.a
|
||||||
|
LIBTCC1_CROSS=lib/i386-win/libtcc1.a lib/x86_64-win/libtcc1.a lib/i386/libtcc1.a
|
||||||
|
endif
|
||||||
|
PROGS_CROSS_LINK=$(foreach PROG_CROSS,$(PROGS_CROSS),$($(PROG_CROSS)_LINK))
|
||||||
|
|
||||||
|
ifeq ($(TARGETOS),Darwin)
|
||||||
|
PROGS+=tiny_libmaker$(EXESUF)
|
||||||
|
endif
|
||||||
|
|
||||||
|
TCCLIBS = $(LIBTCC1) $(LIBTCC) $(LIBTCC_EXTRA)
|
||||||
|
TCCDOCS = tcc.1 tcc-doc.html tcc-doc.info
|
||||||
|
|
||||||
|
ifdef CONFIG_CROSS
|
||||||
|
PROGS+=$(PROGS_CROSS)
|
||||||
|
TCCLIBS+=$(LIBTCC1_CROSS)
|
||||||
|
endif
|
||||||
|
|
||||||
|
all: $(PROGS) $(TCCLIBS) $(TCCDOCS)
|
||||||
|
|
||||||
|
# Host Tiny C Compiler
|
||||||
|
tcc$(EXESUF): tcc.o $(LIBTCC)
|
||||||
|
$(CC) -o $@ $^ $(LIBS) $(CPPFLAGS) $(CFLAGS) $(LDFLAGS) $(LINK_LIBTCC)
|
||||||
|
|
||||||
|
# Cross Tiny C Compilers
|
||||||
|
%-tcc$(EXESUF): tcc.c
|
||||||
|
$(CC) -o $@ $< -DONE_SOURCE $(if $($@_TCC),$(NATIVE_DEFINES),$(DEFINES)) $(CPPFLAGS) $(CFLAGS) $(LIBS) $(LDFLAGS)
|
||||||
|
$(if $($@_LINK),ln -sf $@ $($@_LINK))
|
||||||
|
$(if $($@_TCC),ln -sf $@ tcc$(EXESUF))
|
||||||
|
|
||||||
|
# profiling version
|
||||||
|
tcc_p$(EXESUF): $(NATIVE_FILES)
|
||||||
|
$(CC) -o $@ $< -DONE_SOURCE $(NATIVE_DEFINES) $(CPPFLAGS_P) $(CFLAGS_P) $(LIBS_P) $(LDFLAGS_P)
|
||||||
|
|
||||||
|
$(I386_CROSS) $($(I386_CROSS)_LINK): DEFINES = -DTCC_TARGET_I386
|
||||||
|
$(X64_CROSS) $($(X64_CROSS)_LINK): DEFINES = -DTCC_TARGET_X86_64
|
||||||
|
$(WIN32_CROSS) $($(WIN32_CROSS)_LINK): DEFINES = -DTCC_TARGET_I386 -DTCC_TARGET_PE \
|
||||||
|
-DCONFIG_TCCDIR="\"$(tccdir)/win32\"" \
|
||||||
|
-DCONFIG_TCC_LIBPATHS="\"{B}/lib/32;{B}/lib\""
|
||||||
|
$(WIN64_CROSS) $($(WIN64_CROSS)_LINK): DEFINES = -DTCC_TARGET_X86_64 -DTCC_TARGET_PE \
|
||||||
|
-DCONFIG_TCCDIR="\"$(tccdir)/win32\"" \
|
||||||
|
-DCONFIG_TCC_LIBPATHS="\"{B}/lib/64;{B}/lib\""
|
||||||
|
$(WINCE_CROSS): DEFINES = -DTCC_TARGET_PE
|
||||||
|
$(C67_CROSS): DEFINES = -DTCC_TARGET_C67
|
||||||
|
$(ARM_FPA_CROSS): DEFINES = -DTCC_TARGET_ARM
|
||||||
|
$(ARM_FPA_LD_CROSS)$(EXESUF): DEFINES = -DTCC_TARGET_ARM -DLDOUBLE_SIZE=12
|
||||||
|
$(ARM_VFP_CROSS): DEFINES = -DTCC_TARGET_ARM -DTCC_ARM_VFP
|
||||||
|
$(ARM_EABI_CROSS): DEFINES = -DTCC_TARGET_ARM -DTCC_ARM_EABI -DTCC_ARM_VFP
|
||||||
|
$(ARM64_CROSS): DEFINES = -DTCC_TARGET_ARM64
|
||||||
|
|
||||||
|
$(I386_CROSS) $($(I386_CROSS)_LINK): $(I386_FILES)
|
||||||
|
$(X64_CROSS) $($(X64_CROSS)_LINK): $(X86_64_FILES)
|
||||||
|
$(WIN32_CROSS) $($(WIN32_CROSS)_LINK): $(WIN32_FILES)
|
||||||
|
$(WIN64_CROSS) $($(WIN64_CROSS)_LINK): $(WIN64_FILES)
|
||||||
|
$(WINCE_CROSS) $($(WINCE_CROSS)_LINK): $(WINCE_FILES)
|
||||||
|
$(C67_CROSS) $($(C67_CROSS)_LINK): $(C67_FILES)
|
||||||
|
$(ARM_FPA_CROSS) $(ARM_FPA_LD_CROSS) $(ARM_VFP_CROSS) $(ARM_EABI_CROSS): $(ARM_FILES)
|
||||||
|
$($(ARM_FPA_CROSS)_LINK) $($(ARM_FPA_LD_CROSS)_LINK) $($(ARM_VFP_CROSS)_LINK) $($(ARM_EABI_CROSS)_LINK): $(ARM_FILES)
|
||||||
|
$(ARM64_CROSS): $(ARM64_FILES)
|
||||||
|
|
||||||
|
# libtcc generation and test
|
||||||
|
ifndef ONE_SOURCE
|
||||||
|
LIBTCC_OBJ = $(filter-out tcc.o,$(patsubst %.c,%.o,$(filter %.c,$(NATIVE_FILES))))
|
||||||
|
LIBTCC_INC = $(filter %.h,$(CORE_FILES)) $(filter-out $(CORE_FILES),$(NATIVE_FILES))
|
||||||
|
else
|
||||||
|
LIBTCC_OBJ = libtcc.o
|
||||||
|
LIBTCC_INC = $(NATIVE_FILES)
|
||||||
|
libtcc.o : NATIVE_DEFINES += -DONE_SOURCE
|
||||||
|
endif
|
||||||
|
|
||||||
|
$(LIBTCC_OBJ) tcc.o : %.o : %.c $(LIBTCC_INC)
|
||||||
|
$(CC) -o $@ -c $< $(NATIVE_DEFINES) $(CPPFLAGS) $(CFLAGS)
|
||||||
|
|
||||||
|
ifndef LIBTCC_DLL
|
||||||
|
libtcc.a: $(LIBTCC_OBJ)
|
||||||
|
$(AR) rcs $@ $^
|
||||||
|
endif
|
||||||
|
|
||||||
|
libtcc.so.1.0: $(LIBTCC_OBJ)
|
||||||
|
$(CC) -shared -Wl,-soname,$@ -o $@ $^ $(LDFLAGS)
|
||||||
|
|
||||||
|
libtcc.so.1.0: CFLAGS+=-fPIC
|
||||||
|
|
||||||
|
ifdef LIBTCC_DLL
|
||||||
|
libtcc.dll libtcc.def libtcc.a: $(LIBTCC_OBJ)
|
||||||
|
$(CC) -shared $^ -o $@ $(LDFLAGS) -Wl,--output-def,libtcc.def,--out-implib,libtcc.a
|
||||||
|
endif
|
||||||
|
|
||||||
|
# windows utilities
|
||||||
|
tiny_impdef$(EXESUF): win32/tools/tiny_impdef.c
|
||||||
|
$(CC) -o $@ $< $(CPPFLAGS) $(CFLAGS) $(LDFLAGS)
|
||||||
|
tiny_libmaker$(EXESUF): win32/tools/tiny_libmaker.c
|
||||||
|
$(CC) -o $@ $< $(CPPFLAGS) $(CFLAGS) $(LDFLAGS)
|
||||||
|
|
||||||
|
# TinyCC runtime libraries
|
||||||
|
libtcc1.a : FORCE
|
||||||
|
$(MAKE) -C lib native
|
||||||
|
if test ! -d $(ARCH); then mkdir $(ARCH); fi
|
||||||
|
if test ! -L $(ARCH)/$@; then ln -sf ../$@ $(ARCH)/$@; fi
|
||||||
|
lib/%/libtcc1.a : FORCE $(PROGS_CROSS)
|
||||||
|
$(MAKE) -C lib cross TARGET=$*
|
||||||
|
|
||||||
|
FORCE:
|
||||||
|
|
||||||
|
# install
|
||||||
|
TCC_INCLUDES = stdarg.h stddef.h stdbool.h float.h varargs.h
|
||||||
|
INSTALL=install
|
||||||
|
ifdef STRIP_BINARIES
|
||||||
|
INSTALLBIN=$(INSTALL) -s
|
||||||
|
else
|
||||||
|
INSTALLBIN=$(INSTALL)
|
||||||
|
endif
|
||||||
|
|
||||||
|
install-strip: install
|
||||||
|
strip $(foreach PROG,$(PROGS),"$(bindir)"/$(PROG))
|
||||||
|
|
||||||
|
ifndef CONFIG_WIN32
|
||||||
|
install: $(PROGS) $(TCCLIBS) $(TCCDOCS)
|
||||||
|
mkdir -p "$(bindir)"
|
||||||
|
$(INSTALLBIN) -m755 $(PROGS) "$(bindir)"
|
||||||
|
cp -P tcc$(EXESUF) "$(bindir)"
|
||||||
|
mkdir -p "$(mandir)/man1"
|
||||||
|
-$(INSTALL) -m644 tcc.1 "$(mandir)/man1"
|
||||||
|
mkdir -p "$(infodir)"
|
||||||
|
-$(INSTALL) -m644 tcc-doc.info "$(infodir)"
|
||||||
|
mkdir -p "$(tccdir)"
|
||||||
|
mkdir -p "$(tccdir)/include"
|
||||||
|
ifneq ($(LIBTCC1),)
|
||||||
|
mkdir -p "$(tccdir)/$(ARCH)"
|
||||||
|
$(INSTALL) -m644 $(LIBTCC1) "$(tccdir)/$(ARCH)"
|
||||||
|
endif
|
||||||
|
$(INSTALL) -m644 $(addprefix $(top_srcdir)/include/,$(TCC_INCLUDES)) $(top_srcdir)/tcclib.h "$(tccdir)/include"
|
||||||
|
mkdir -p "$(libdir)"
|
||||||
|
$(INSTALL) -m644 $(LIBTCC) "$(libdir)"
|
||||||
|
ifdef DISABLE_STATIC
|
||||||
|
ln -sf "$(ln_libdir)/libtcc.so.1.0" "$(libdir)/libtcc.so.1"
|
||||||
|
ln -sf "$(ln_libdir)/libtcc.so.1.0" "$(libdir)/libtcc.so"
|
||||||
|
endif
|
||||||
|
mkdir -p "$(includedir)"
|
||||||
|
$(INSTALL) -m644 $(top_srcdir)/libtcc.h "$(includedir)"
|
||||||
|
mkdir -p "$(docdir)"
|
||||||
|
-$(INSTALL) -m644 tcc-doc.html "$(docdir)"
|
||||||
|
ifdef CONFIG_CROSS
|
||||||
|
mkdir -p "$(tccdir)/win32/lib/32"
|
||||||
|
mkdir -p "$(tccdir)/win32/lib/64"
|
||||||
|
mkdir -p "$(tccdir)/i386"
|
||||||
|
mkdir -p "$(tccdir)/x86-64"
|
||||||
|
ifneq ($(HOST_OS),Darwin)
|
||||||
|
mkdir -p "$(tccdir)/arm64"
|
||||||
|
$(INSTALL) -m644 lib/arm64/libtcc1.a "$(tccdir)/arm64"
|
||||||
|
endif
|
||||||
|
$(INSTALL) -m644 lib/i386/libtcc1.a "$(tccdir)/i386"
|
||||||
|
$(INSTALL) -m644 lib/x86_64/libtcc1.a "$(tccdir)/x86-64"
|
||||||
|
$(INSTALL) -m644 $(top_srcdir)/win32/lib/*.def "$(tccdir)/win32/lib"
|
||||||
|
$(INSTALL) -m644 lib/i386-win/libtcc1.a "$(tccdir)/win32/lib/32"
|
||||||
|
$(INSTALL) -m644 lib/x86_64-win/libtcc1.a "$(tccdir)/win32/lib/64"
|
||||||
|
cp -r $(top_srcdir)/win32/include/. "$(tccdir)/win32/include"
|
||||||
|
cp -r "$(tccdir)/include" "$(tccdir)/win32"
|
||||||
|
endif
|
||||||
|
|
||||||
|
uninstall:
|
||||||
|
rm -fv $(foreach P,$(PROGS),"$(bindir)/$P")
|
||||||
|
rm -fv "$(bindir)/tcc$(EXESUF)"
|
||||||
|
rm -fv $(foreach P,$(LIBTCC1),"$(tccdir)/$P")
|
||||||
|
rm -fv $(foreach P,$(TCC_INCLUDES),"$(tccdir)/include/$P")
|
||||||
|
rm -fv "$(mandir)/man1/tcc.1" "$(infodir)/tcc-doc.info"
|
||||||
|
rm -fv "$(libdir)/$(LIBTCC)" "$(includedir)/libtcc.h"
|
||||||
|
rm -fv "$(libdir)/libtcc.so*"
|
||||||
|
rm -rv "$(tccdir)"
|
||||||
|
rm -rv "$(docdir)"
|
||||||
|
else
|
||||||
|
# on windows
|
||||||
|
install: $(PROGS) $(TCCLIBS) $(TCCDOCS)
|
||||||
|
mkdir -p "$(tccdir)"
|
||||||
|
mkdir -p "$(tccdir)/lib"
|
||||||
|
mkdir -p "$(tccdir)/include"
|
||||||
|
mkdir -p "$(tccdir)/examples"
|
||||||
|
mkdir -p "$(tccdir)/doc"
|
||||||
|
mkdir -p "$(tccdir)/libtcc"
|
||||||
|
$(INSTALLBIN) -m755 $(PROGS) "$(tccdir)"
|
||||||
|
$(INSTALLBIN) -m755 tcc.exe "$(tccdir)"
|
||||||
|
$(INSTALL) -m644 $(LIBTCC1) $(top_srcdir)/win32/lib/*.def "$(tccdir)/lib"
|
||||||
|
cp -r $(top_srcdir)/win32/include/. "$(tccdir)/include"
|
||||||
|
cp -r $(top_srcdir)/win32/examples/. "$(tccdir)/examples"
|
||||||
|
$(INSTALL) -m644 $(addprefix $(top_srcdir)/include/,$(TCC_INCLUDES)) $(top_srcdir)/tcclib.h "$(tccdir)/include"
|
||||||
|
$(INSTALL) -m644 tcc-doc.html $(top_srcdir)/win32/tcc-win32.txt "$(tccdir)/doc"
|
||||||
|
$(INSTALL) -m644 $(top_srcdir)/libtcc.h $(LIBTCC_EXTRA) "$(tccdir)/libtcc"
|
||||||
|
$(INSTALL) -m644 $(LIBTCC) "$(tccdir)"
|
||||||
|
ifdef CONFIG_CROSS
|
||||||
|
mkdir -p "$(tccdir)/lib/32"
|
||||||
|
mkdir -p "$(tccdir)/lib/64"
|
||||||
|
-$(INSTALL) -m644 lib/i386-win/libtcc1.a "$(tccdir)/lib/32"
|
||||||
|
-$(INSTALL) -m644 lib/x86_64-win/libtcc1.a "$(tccdir)/lib/64"
|
||||||
|
endif
|
||||||
|
|
||||||
|
uninstall:
|
||||||
|
rm -rfv "$(tccdir)/*"
|
||||||
|
endif
|
||||||
|
|
||||||
|
# documentation and man page
|
||||||
|
tcc-doc.html: tcc-doc.texi
|
||||||
|
-makeinfo --no-split --html --number-sections -o $@ $<
|
||||||
|
|
||||||
|
tcc.1: tcc-doc.texi
|
||||||
|
-$(top_srcdir)/texi2pod.pl $< tcc.pod
|
||||||
|
-pod2man --section=1 --center="Tiny C Compiler" --release=`cat $(top_srcdir)/VERSION` tcc.pod > $@
|
||||||
|
|
||||||
|
tcc-doc.info: tcc-doc.texi
|
||||||
|
-makeinfo $<
|
||||||
|
|
||||||
|
# in tests subdir
|
||||||
|
export LIBTCC1
|
||||||
|
|
||||||
|
%est:
|
||||||
|
$(MAKE) -C tests $@ 'PROGS_CROSS=$(PROGS_CROSS)'
|
||||||
|
|
||||||
clean:
|
clean:
|
||||||
$(MAKE) -C $(SRC_DIR) clean
|
rm -vf $(PROGS) tcc_p$(EXESUF) tcc.pod *~ *.o *.a *.so* *.out *.log \
|
||||||
|
*.exe a.out tags TAGS libtcc_test$(EXESUF) tcc$(EXESUF)
|
||||||
|
-rm -r $(ARCH) arm64
|
||||||
|
ifeq ($(HOST_OS),Linux)
|
||||||
|
-rm -r ./C:
|
||||||
|
endif
|
||||||
|
-rm *-tcc$(EXESUF)
|
||||||
|
$(MAKE) -C tests $@
|
||||||
|
ifneq ($(LIBTCC1),)
|
||||||
|
$(MAKE) -C lib $@
|
||||||
|
endif
|
||||||
|
|
||||||
|
distclean: clean
|
||||||
|
rm -vf config.h config.mak config.texi tcc.1 tcc-doc.info tcc-doc.html
|
||||||
|
|
||||||
|
config.mak:
|
||||||
|
@echo "Please run ./configure."
|
||||||
|
@exit 1
|
||||||
|
|
||||||
|
tags:
|
||||||
|
ctags $(top_srcdir)/*.[ch] $(top_srcdir)/include/*.h $(top_srcdir)/lib/*.[chS]
|
||||||
|
|
||||||
|
TAGS:
|
||||||
|
ctags -e $(top_srcdir)/*.[ch] $(top_srcdir)/include/*.h $(top_srcdir)/lib/*.[chS]
|
||||||
|
|
||||||
|
# create release tarball from *current* git branch (including tcc-doc.html
|
||||||
|
# and converting two files to CRLF)
|
||||||
|
TCC-VERSION := tcc-$(shell cat $(top_srcdir)/VERSION)
|
||||||
|
tar: tcc-doc.html
|
||||||
|
mkdir $(TCC-VERSION)
|
||||||
|
( cd $(TCC-VERSION) && git --git-dir ../.git checkout -f )
|
||||||
|
cp tcc-doc.html $(TCC-VERSION)
|
||||||
|
for f in tcc-win32.txt build-tcc.bat ; do \
|
||||||
|
cat win32/$$f | sed 's,\(.*\),\1\r,g' > $(TCC-VERSION)/win32/$$f ; \
|
||||||
|
done
|
||||||
|
tar cjf $(TCC-VERSION).tar.bz2 $(TCC-VERSION)
|
||||||
|
rm -rf $(TCC-VERSION)
|
||||||
|
git reset
|
||||||
|
|
||||||
|
.PHONY: all clean tar tags TAGS distclean install uninstall FORCE
|
||||||
|
|
||||||
|
endif # ifeq ($(TOP),.)
|
||||||
|
|
|
@ -58,7 +58,7 @@ typedef int RegArgs;
|
||||||
/******************************************************/
|
/******************************************************/
|
||||||
#else /* ! TARGET_DEFS_ONLY */
|
#else /* ! TARGET_DEFS_ONLY */
|
||||||
/******************************************************/
|
/******************************************************/
|
||||||
#include "../tcc.h"
|
#include "tcc.h"
|
||||||
#include <assert.h>
|
#include <assert.h>
|
||||||
|
|
||||||
ST_DATA const int reg_classes[NB_REGS] = {
|
ST_DATA const int reg_classes[NB_REGS] = {
|
|
@ -127,7 +127,7 @@ enum {
|
||||||
/******************************************************/
|
/******************************************************/
|
||||||
#else /* ! TARGET_DEFS_ONLY */
|
#else /* ! TARGET_DEFS_ONLY */
|
||||||
/******************************************************/
|
/******************************************************/
|
||||||
#include "../tcc.h"
|
#include "tcc.h"
|
||||||
|
|
||||||
ST_DATA const int reg_classes[NB_REGS] = {
|
ST_DATA const int reg_classes[NB_REGS] = {
|
||||||
/* eax */ RC_INT | RC_FLOAT | RC_EAX,
|
/* eax */ RC_INT | RC_FLOAT | RC_EAX,
|
||||||
|
@ -204,7 +204,7 @@ void C67_g(int c)
|
||||||
#endif
|
#endif
|
||||||
ind1 = ind + 4;
|
ind1 = ind + 4;
|
||||||
if (ind1 > (int) cur_text_section->data_allocated)
|
if (ind1 > (int) cur_text_section->data_allocated)
|
||||||
section_realloc(cur_text_section, ind1);
|
section_realloc(cur_text_section, ind1);
|
||||||
cur_text_section->data[ind] = c & 0xff;
|
cur_text_section->data[ind] = c & 0xff;
|
||||||
cur_text_section->data[ind + 1] = (c >> 8) & 0xff;
|
cur_text_section->data[ind + 1] = (c >> 8) & 0xff;
|
||||||
cur_text_section->data[ind + 2] = (c >> 16) & 0xff;
|
cur_text_section->data[ind + 2] = (c >> 16) & 0xff;
|
||||||
|
@ -218,26 +218,26 @@ void gsym_addr(int t, int a)
|
||||||
{
|
{
|
||||||
int n, *ptr;
|
int n, *ptr;
|
||||||
while (t) {
|
while (t) {
|
||||||
ptr = (int *) (cur_text_section->data + t);
|
ptr = (int *) (cur_text_section->data + t);
|
||||||
{
|
{
|
||||||
Sym *sym;
|
Sym *sym;
|
||||||
|
|
||||||
// extract 32 bit address from MVKH/MVKL
|
// extract 32 bit address from MVKH/MVKL
|
||||||
n = ((*ptr >> 7) & 0xffff);
|
n = ((*ptr >> 7) & 0xffff);
|
||||||
n |= ((*(ptr + 1) >> 7) & 0xffff) << 16;
|
n |= ((*(ptr + 1) >> 7) & 0xffff) << 16;
|
||||||
|
|
||||||
// define a label that will be relocated
|
// define a label that will be relocated
|
||||||
|
|
||||||
sym = get_sym_ref(&char_pointer_type, cur_text_section, a, 0);
|
sym = get_sym_ref(&char_pointer_type, cur_text_section, a, 0);
|
||||||
greloc(cur_text_section, sym, t, R_C60LO16);
|
greloc(cur_text_section, sym, t, R_C60LO16);
|
||||||
greloc(cur_text_section, sym, t + 4, R_C60HI16);
|
greloc(cur_text_section, sym, t + 4, R_C60HI16);
|
||||||
|
|
||||||
// clear out where the pointer was
|
// clear out where the pointer was
|
||||||
|
|
||||||
*ptr &= ~(0xffff << 7);
|
*ptr &= ~(0xffff << 7);
|
||||||
*(ptr + 1) &= ~(0xffff << 7);
|
*(ptr + 1) &= ~(0xffff << 7);
|
||||||
}
|
}
|
||||||
t = n;
|
t = n;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
|
@ -370,7 +370,7 @@ struct syment
|
||||||
#define INCREF_COFF(x) ((((x)&~N_BTMASK_COFF)<<N_TSHIFT_COFF)|(DT_PTR<<N_BTSHFT_COFF)|(x&N_BTMASK_COFF))
|
#define INCREF_COFF(x) ((((x)&~N_BTMASK_COFF)<<N_TSHIFT_COFF)|(DT_PTR<<N_BTSHFT_COFF)|(x&N_BTMASK_COFF))
|
||||||
#define DECREF_COFF(x) ((((x)>>N_TSHIFT_COFF)&~N_BTMASK_COFF)|((x)&N_BTMASK_COFF))
|
#define DECREF_COFF(x) ((((x)>>N_TSHIFT_COFF)&~N_BTMASK_COFF)|((x)&N_BTMASK_COFF))
|
||||||
|
|
||||||
|
|
||||||
/*------------------------------------------------------------------------*/
|
/*------------------------------------------------------------------------*/
|
||||||
/* AUXILIARY SYMBOL ENTRY */
|
/* AUXILIARY SYMBOL ENTRY */
|
||||||
/*------------------------------------------------------------------------*/
|
/*------------------------------------------------------------------------*/
|
|
@ -337,7 +337,7 @@ strip="${cross_prefix}${strip}"
|
||||||
CONFTEST=./conftest$EXESUF
|
CONFTEST=./conftest$EXESUF
|
||||||
|
|
||||||
if test -z "$cross_prefix" ; then
|
if test -z "$cross_prefix" ; then
|
||||||
if ! $cc -o $CONFTEST $source_path/src/conftest.c 2>/dev/null ; then
|
if ! $cc -o $CONFTEST $source_path/conftest.c 2>/dev/null ; then
|
||||||
echo "configure: error: '$cc' failed to compile conftest.c."
|
echo "configure: error: '$cc' failed to compile conftest.c."
|
||||||
else
|
else
|
||||||
bigendian="$($CONFTEST bigendian)"
|
bigendian="$($CONFTEST bigendian)"
|
||||||
|
@ -560,7 +560,7 @@ fi
|
||||||
version=`head $source_path/VERSION`
|
version=`head $source_path/VERSION`
|
||||||
echo "VERSION=$version" >>config.mak
|
echo "VERSION=$version" >>config.mak
|
||||||
echo "#define TCC_VERSION \"$version\"" >> $TMPH
|
echo "#define TCC_VERSION \"$version\"" >> $TMPH
|
||||||
echo "@set VERSION $version" >docs/config.texi
|
echo "@set VERSION $version" > config.texi
|
||||||
echo "SRC_PATH=$source_path" >>config.mak
|
echo "SRC_PATH=$source_path" >>config.mak
|
||||||
|
|
||||||
if test "$source_path_used" = "yes" ; then
|
if test "$source_path_used" = "yes" ; then
|
||||||
|
@ -573,9 +573,9 @@ else
|
||||||
fi
|
fi
|
||||||
echo 'top_builddir=$(TOP)' >>config.mak
|
echo 'top_builddir=$(TOP)' >>config.mak
|
||||||
|
|
||||||
diff $TMPH src/config.h >/dev/null 2>&1
|
diff $TMPH config.h >/dev/null 2>&1
|
||||||
if test $? -ne 0 ; then
|
if test $? -ne 0 ; then
|
||||||
mv -f $TMPH src/config.h
|
mv -f $TMPH config.h
|
||||||
else
|
else
|
||||||
echo "config.h is unchanged"
|
echo "config.h is unchanged"
|
||||||
fi
|
fi
|
||||||
|
|
|
@ -19,7 +19,7 @@
|
||||||
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "../tcc.h"
|
#include "tcc.h"
|
||||||
|
|
||||||
/* #define NB_ASM_REGS 8 */
|
/* #define NB_ASM_REGS 8 */
|
||||||
#define MAX_OPERANDS 3
|
#define MAX_OPERANDS 3
|
|
@ -89,7 +89,7 @@ enum {
|
||||||
/******************************************************/
|
/******************************************************/
|
||||||
#else /* ! TARGET_DEFS_ONLY */
|
#else /* ! TARGET_DEFS_ONLY */
|
||||||
/******************************************************/
|
/******************************************************/
|
||||||
#include "../tcc.h"
|
#include "tcc.h"
|
||||||
|
|
||||||
ST_DATA const int reg_classes[NB_REGS] = {
|
ST_DATA const int reg_classes[NB_REGS] = {
|
||||||
/* eax */ RC_INT | RC_EAX,
|
/* eax */ RC_INT | RC_EAX,
|
16
lib/Makefile
16
lib/Makefile
|
@ -2,9 +2,9 @@
|
||||||
# Tiny C Compiler Makefile for libtcc1.a
|
# Tiny C Compiler Makefile for libtcc1.a
|
||||||
#
|
#
|
||||||
|
|
||||||
TOP = ../src
|
TOP = ..
|
||||||
include $(TOP)/Makefile
|
include $(TOP)/Makefile
|
||||||
VPATH = $(top_srcdir)/../lib $(top_srcdir)/../win32/lib
|
VPATH = $(top_srcdir)/lib $(top_srcdir)/win32/lib
|
||||||
|
|
||||||
ifndef TARGET # native library
|
ifndef TARGET # native library
|
||||||
ifdef CONFIG_WIN64
|
ifdef CONFIG_WIN64
|
||||||
|
@ -37,7 +37,7 @@ endif
|
||||||
BCHECK_O = bcheck.o
|
BCHECK_O = bcheck.o
|
||||||
DIR = $(TARGET)
|
DIR = $(TARGET)
|
||||||
|
|
||||||
native : $(DIR)/libtcc1.a
|
native : ../libtcc1.a
|
||||||
cross : $(DIR)/libtcc1.a
|
cross : $(DIR)/libtcc1.a
|
||||||
|
|
||||||
native : TCC = $(TOP)/tcc$(EXESUF)
|
native : TCC = $(TOP)/tcc$(EXESUF)
|
||||||
|
@ -61,26 +61,26 @@ CFLAGS := $(filter-out -fstack-protector-strong,$(CFLAGS))
|
||||||
ifeq "$(TARGET)" "i386-win"
|
ifeq "$(TARGET)" "i386-win"
|
||||||
OBJ = $(addprefix $(DIR)/,$(WIN32_O))
|
OBJ = $(addprefix $(DIR)/,$(WIN32_O))
|
||||||
TGT = -DTCC_TARGET_I386 -DTCC_TARGET_PE
|
TGT = -DTCC_TARGET_I386 -DTCC_TARGET_PE
|
||||||
XCC ?= $(TCC) -B$(top_srcdir)/win32 -I$(top_srcdir)/../include
|
XCC ?= $(TCC) -B$(top_srcdir)/win32 -I$(top_srcdir)/include
|
||||||
XAR ?= $(DIR)/tiny_libmaker$(EXESUF)
|
XAR ?= $(DIR)/tiny_libmaker$(EXESUF)
|
||||||
PICFLAGS =
|
PICFLAGS =
|
||||||
else
|
else
|
||||||
ifeq "$(TARGET)" "x86_64-win"
|
ifeq "$(TARGET)" "x86_64-win"
|
||||||
OBJ = $(addprefix $(DIR)/,$(WIN64_O))
|
OBJ = $(addprefix $(DIR)/,$(WIN64_O))
|
||||||
TGT = -DTCC_TARGET_X86_64 -DTCC_TARGET_PE
|
TGT = -DTCC_TARGET_X86_64 -DTCC_TARGET_PE
|
||||||
XCC = $(TCC) -B$(top_srcdir)/win32 -I$(top_srcdir)/../include
|
XCC = $(TCC) -B$(top_srcdir)/win32 -I$(top_srcdir)/include
|
||||||
XAR ?= $(DIR)/tiny_libmaker$(EXESUF)
|
XAR ?= $(DIR)/tiny_libmaker$(EXESUF)
|
||||||
PICFLAGS =
|
PICFLAGS =
|
||||||
else
|
else
|
||||||
ifeq "$(TARGET)" "i386"
|
ifeq "$(TARGET)" "i386"
|
||||||
OBJ = $(addprefix $(DIR)/,$(I386_O))
|
OBJ = $(addprefix $(DIR)/,$(I386_O))
|
||||||
TGT = -DTCC_TARGET_I386
|
TGT = -DTCC_TARGET_I386
|
||||||
XCC ?= $(TCC) -B$(TOP) -I$(top_srcdir)/../include
|
XCC ?= $(TCC) -B$(TOP)
|
||||||
else
|
else
|
||||||
ifeq "$(TARGET)" "x86_64"
|
ifeq "$(TARGET)" "x86_64"
|
||||||
OBJ = $(addprefix $(DIR)/,$(X86_64_O))
|
OBJ = $(addprefix $(DIR)/,$(X86_64_O))
|
||||||
TGT = -DTCC_TARGET_X86_64
|
TGT = -DTCC_TARGET_X86_64
|
||||||
XCC ?= $(TCC) -B$(TOP) -I$(top_srcdir)/../include
|
XCC ?= $(TCC) -B$(TOP)
|
||||||
else
|
else
|
||||||
ifeq "$(TARGET)" "arm"
|
ifeq "$(TARGET)" "arm"
|
||||||
OBJ = $(addprefix $(DIR)/,$(ARM_O))
|
OBJ = $(addprefix $(DIR)/,$(ARM_O))
|
||||||
|
@ -110,7 +110,7 @@ endif
|
||||||
|
|
||||||
XAR ?= $(AR)
|
XAR ?= $(AR)
|
||||||
|
|
||||||
$(DIR)/libtcc1.a : $(OBJ) $(XAR)
|
$(DIR)/libtcc1.a ../libtcc1.a : $(OBJ) $(XAR)
|
||||||
$(XAR) rcs $@ $(OBJ)
|
$(XAR) rcs $@ $(OBJ)
|
||||||
$(DIR)/%.o : %.c
|
$(DIR)/%.o : %.c
|
||||||
$(XCC) -c $< -o $@ $(XFLAGS)
|
$(XCC) -c $< -o $@ $(XFLAGS)
|
||||||
|
|
|
@ -40,24 +40,24 @@ ST_DATA struct TCCState *tcc_state;
|
||||||
#include "tccelf.c"
|
#include "tccelf.c"
|
||||||
#include "tccrun.c"
|
#include "tccrun.c"
|
||||||
#ifdef TCC_TARGET_I386
|
#ifdef TCC_TARGET_I386
|
||||||
#include "x86/i386-gen.c"
|
#include "i386-gen.c"
|
||||||
#endif
|
#endif
|
||||||
#ifdef TCC_TARGET_ARM
|
#ifdef TCC_TARGET_ARM
|
||||||
#include "arm/arm-gen.c"
|
#include "arm-gen.c"
|
||||||
#endif
|
#endif
|
||||||
#ifdef TCC_TARGET_ARM64
|
#ifdef TCC_TARGET_ARM64
|
||||||
#include "arm/arm64-gen.c"
|
#include "arm64-gen.c"
|
||||||
#endif
|
#endif
|
||||||
#ifdef TCC_TARGET_C67
|
#ifdef TCC_TARGET_C67
|
||||||
#include "tms320c67/c67-gen.c"
|
#include "c67-gen.c"
|
||||||
#endif
|
#endif
|
||||||
#ifdef TCC_TARGET_X86_64
|
#ifdef TCC_TARGET_X86_64
|
||||||
#include "x86/x86_64-gen.c"
|
#include "x86_64-gen.c"
|
||||||
#endif
|
#endif
|
||||||
#ifdef CONFIG_TCC_ASM
|
#ifdef CONFIG_TCC_ASM
|
||||||
#include "tccasm.c"
|
#include "tccasm.c"
|
||||||
#if defined TCC_TARGET_I386 || defined TCC_TARGET_X86_64
|
#if defined TCC_TARGET_I386 || defined TCC_TARGET_X86_64
|
||||||
#include "x86/i386-asm.c"
|
#include "i386-asm.c"
|
||||||
#endif
|
#endif
|
||||||
#endif
|
#endif
|
||||||
#ifdef TCC_TARGET_COFF
|
#ifdef TCC_TARGET_COFF
|
||||||
|
@ -672,7 +672,7 @@ ST_FUNC void put_extern_sym2(Sym *sym, Section *section,
|
||||||
}
|
}
|
||||||
#else
|
#else
|
||||||
if (! (sym->type.t & VT_STATIC))
|
if (! (sym->type.t & VT_STATIC))
|
||||||
other = (sym->type.t & VT_VIS_MASK) >> VT_VIS_SHIFT;
|
other = (sym->type.t & VT_VIS_MASK) >> VT_VIS_SHIFT;
|
||||||
#endif
|
#endif
|
||||||
if (tcc_state->leading_underscore && can_add_underscore) {
|
if (tcc_state->leading_underscore && can_add_underscore) {
|
||||||
buf1[0] = '_';
|
buf1[0] = '_';
|
||||||
|
@ -2101,11 +2101,11 @@ PUB_FUNC int tcc_parse_args(TCCState *s, int argc, char **argv)
|
||||||
s->static_link = 1;
|
s->static_link = 1;
|
||||||
break;
|
break;
|
||||||
case TCC_OPTION_std:
|
case TCC_OPTION_std:
|
||||||
/* silently ignore, a current purpose:
|
/* silently ignore, a current purpose:
|
||||||
allow to use a tcc as a reference compiler for "make test" */
|
allow to use a tcc as a reference compiler for "make test" */
|
||||||
break;
|
break;
|
||||||
case TCC_OPTION_shared:
|
case TCC_OPTION_shared:
|
||||||
if (s->output_type)
|
if (s->output_type)
|
||||||
tcc_warning("-shared: some compiler action already specified (%d)", s->output_type);
|
tcc_warning("-shared: some compiler action already specified (%d)", s->output_type);
|
||||||
s->output_type = TCC_OUTPUT_DLL;
|
s->output_type = TCC_OUTPUT_DLL;
|
||||||
break;
|
break;
|
||||||
|
@ -2124,7 +2124,7 @@ PUB_FUNC int tcc_parse_args(TCCState *s, int argc, char **argv)
|
||||||
break;
|
break;
|
||||||
case TCC_OPTION_r:
|
case TCC_OPTION_r:
|
||||||
/* generate a .o merging several output files */
|
/* generate a .o merging several output files */
|
||||||
if (s->output_type)
|
if (s->output_type)
|
||||||
tcc_warning("-r: some compiler action already specified (%d)", s->output_type);
|
tcc_warning("-r: some compiler action already specified (%d)", s->output_type);
|
||||||
s->option_r = 1;
|
s->option_r = 1;
|
||||||
s->output_type = TCC_OUTPUT_OBJ;
|
s->output_type = TCC_OUTPUT_OBJ;
|
||||||
|
@ -2163,7 +2163,7 @@ PUB_FUNC int tcc_parse_args(TCCState *s, int argc, char **argv)
|
||||||
s->print_search_dirs = 1;
|
s->print_search_dirs = 1;
|
||||||
break;
|
break;
|
||||||
case TCC_OPTION_run:
|
case TCC_OPTION_run:
|
||||||
if (s->output_type)
|
if (s->output_type)
|
||||||
tcc_warning("-run: some compiler action already specified (%d)", s->output_type);
|
tcc_warning("-run: some compiler action already specified (%d)", s->output_type);
|
||||||
s->output_type = TCC_OUTPUT_MEMORY;
|
s->output_type = TCC_OUTPUT_MEMORY;
|
||||||
tcc_set_options(s, optarg);
|
tcc_set_options(s, optarg);
|
||||||
|
@ -2194,7 +2194,7 @@ PUB_FUNC int tcc_parse_args(TCCState *s, int argc, char **argv)
|
||||||
cstr_ccat(&linker_arg, '\0');
|
cstr_ccat(&linker_arg, '\0');
|
||||||
break;
|
break;
|
||||||
case TCC_OPTION_E:
|
case TCC_OPTION_E:
|
||||||
if (s->output_type)
|
if (s->output_type)
|
||||||
tcc_warning("-E: some compiler action already specified (%d)", s->output_type);
|
tcc_warning("-E: some compiler action already specified (%d)", s->output_type);
|
||||||
s->output_type = TCC_OUTPUT_PREPROCESS;
|
s->output_type = TCC_OUTPUT_PREPROCESS;
|
||||||
break;
|
break;
|
||||||
|
@ -2251,13 +2251,13 @@ PUB_FUNC int tcc_parse_args(TCCState *s, int argc, char **argv)
|
||||||
}
|
}
|
||||||
|
|
||||||
if (s->output_type == 0)
|
if (s->output_type == 0)
|
||||||
s->output_type = TCC_OUTPUT_EXE;
|
s->output_type = TCC_OUTPUT_EXE;
|
||||||
|
|
||||||
if (pthread && s->output_type != TCC_OUTPUT_OBJ)
|
if (pthread && s->output_type != TCC_OUTPUT_OBJ)
|
||||||
tcc_set_options(s, "-lpthread");
|
tcc_set_options(s, "-lpthread");
|
||||||
|
|
||||||
if (s->output_type == TCC_OUTPUT_EXE)
|
if (s->output_type == TCC_OUTPUT_EXE)
|
||||||
tcc_set_linker(s, (const char *)linker_arg.data);
|
tcc_set_linker(s, (const char *)linker_arg.data);
|
||||||
cstr_free(&linker_arg);
|
cstr_free(&linker_arg);
|
||||||
|
|
||||||
return optind;
|
return optind;
|
421
src/Makefile
421
src/Makefile
|
@ -1,421 +0,0 @@
|
||||||
#
|
|
||||||
# Tiny C Compiler Makefile
|
|
||||||
#
|
|
||||||
|
|
||||||
TOP ?= .
|
|
||||||
include $(TOP)/../config.mak
|
|
||||||
VPATH = $(top_srcdir)
|
|
||||||
|
|
||||||
CPPFLAGS += -I$(TOP) # for config.h
|
|
||||||
|
|
||||||
ifneq (-$(findstring gcc,$(CC))-,-gcc-)
|
|
||||||
ifeq (-$(findstring clang,$(CC))-,-clang-)
|
|
||||||
# make clang accept gnuisms in libtcc1.c
|
|
||||||
CFLAGS+=-fheinous-gnu-extensions
|
|
||||||
endif
|
|
||||||
endif
|
|
||||||
|
|
||||||
CPPFLAGS_P=$(CPPFLAGS) -DCONFIG_TCC_STATIC
|
|
||||||
CFLAGS_P=$(CFLAGS) -pg -static
|
|
||||||
LIBS_P=
|
|
||||||
LDFLAGS_P=$(LDFLAGS)
|
|
||||||
|
|
||||||
ifdef CONFIG_WIN64
|
|
||||||
CONFIG_WIN32=yes
|
|
||||||
endif
|
|
||||||
|
|
||||||
ifndef CONFIG_WIN32
|
|
||||||
LIBS=-lm
|
|
||||||
ifndef CONFIG_NOLDL
|
|
||||||
LIBS+=-ldl
|
|
||||||
endif
|
|
||||||
endif
|
|
||||||
|
|
||||||
# make libtcc as static or dynamic library?
|
|
||||||
ifdef DISABLE_STATIC
|
|
||||||
ifndef CONFIG_WIN32
|
|
||||||
LIBTCC=libtcc.so.1.0
|
|
||||||
else
|
|
||||||
LIBTCC=libtcc.dll
|
|
||||||
LIBTCC_DLL=yes
|
|
||||||
LIBTCC_EXTRA=libtcc.def libtcc.a
|
|
||||||
endif
|
|
||||||
LINK_LIBTCC=-Wl,-rpath,"$(libdir)"
|
|
||||||
ifdef DISABLE_RPATH
|
|
||||||
LINK_LIBTCC=
|
|
||||||
endif
|
|
||||||
else
|
|
||||||
LIBTCC=libtcc.a
|
|
||||||
LINK_LIBTCC=
|
|
||||||
endif
|
|
||||||
|
|
||||||
CONFIG_$(ARCH) = yes
|
|
||||||
NATIVE_DEFINES_$(CONFIG_i386) += -DTCC_TARGET_I386
|
|
||||||
NATIVE_DEFINES_$(CONFIG_x86-64) += -DTCC_TARGET_X86_64
|
|
||||||
NATIVE_DEFINES_$(CONFIG_WIN32) += -DTCC_TARGET_PE
|
|
||||||
NATIVE_DEFINES_$(CONFIG_uClibc) += -DTCC_UCLIBC
|
|
||||||
NATIVE_DEFINES_$(CONFIG_arm) += -DTCC_TARGET_ARM
|
|
||||||
NATIVE_DEFINES_$(CONFIG_arm_eabihf) += -DTCC_ARM_EABI -DTCC_ARM_HARDFLOAT
|
|
||||||
NATIVE_DEFINES_$(CONFIG_arm_eabi) += -DTCC_ARM_EABI
|
|
||||||
NATIVE_DEFINES_$(CONFIG_arm_vfp) += -DTCC_ARM_VFP
|
|
||||||
NATIVE_DEFINES_$(CONFIG_arm64) += -DTCC_TARGET_ARM64
|
|
||||||
NATIVE_DEFINES += $(NATIVE_DEFINES_yes)
|
|
||||||
|
|
||||||
ifeq ($(TOP),.)
|
|
||||||
|
|
||||||
PROGS=tcc$(EXESUF)
|
|
||||||
I386_CROSS = i386-linux-gnu-tcc$(EXESUF)
|
|
||||||
WIN32_CROSS = i386-win-mingw32-tcc$(EXESUF)
|
|
||||||
WIN64_CROSS = x86_64-win-mingw32-tcc$(EXESUF)
|
|
||||||
WINCE_CROSS = arm-win-mingw32ce-tcc$(EXESUF)
|
|
||||||
X64_CROSS = x86_64-linux-gnu-tcc$(EXESUF)
|
|
||||||
ARM_FPA_CROSS = arm-linux-fpa-tcc$(EXESUF)
|
|
||||||
ARM_FPA_LD_CROSS = arm-linux-fpa-ld-tcc$(EXESUF)
|
|
||||||
ARM_VFP_CROSS = arm-linux-gnu-tcc$(EXESUF)
|
|
||||||
ARM_EABI_CROSS = arm-linux-gnueabi-tcc$(EXESUF)
|
|
||||||
ARM_EABIHF_CROSS = arm-linux-gnueabihf-tcc$(EXESUF)
|
|
||||||
ARM_CROSS = $(ARM_FPA_CROSS) $(ARM_FPA_LD_CROSS) $(ARM_VFP_CROSS) $(ARM_EABI_CROSS)
|
|
||||||
ARM64_CROSS = arm64-tcc$(EXESUF)
|
|
||||||
C67_CROSS = c67-tcc$(EXESUF)
|
|
||||||
|
|
||||||
# Legacy symlinks for cross compilers
|
|
||||||
$(I386_CROSS)_LINK = i386-tcc$(EXESUF)
|
|
||||||
$(WIN32_CROSS)_LINK = i386-win-tcc$(EXESUF)
|
|
||||||
$(WIN64_CROSS)_LINK = x86_64-win-tcc$(EXESUF)
|
|
||||||
$(WINCE_CROSS)_LINK = arm-win-tcc$(EXESUF)
|
|
||||||
$(X64_CROSS)_LINK = x86_64-tcc$(EXESUF)
|
|
||||||
$(ARM_FPA_CROSS)_LINK = arm-fpa-tcc$(EXESUF)
|
|
||||||
$(ARM_FPA_LD_CROSS)_LINK = arm-fpa-ld-tcc$(EXESUF)
|
|
||||||
$(ARM_VFP_CROSS)_LINK = arm-vfp-tcc$(EXESUF)
|
|
||||||
$(ARM_EABI_CROSS)_LINK = arm-eabi-tcc$(EXESUF)
|
|
||||||
|
|
||||||
ifeq ($(TARGETOS),Windows)
|
|
||||||
ifeq ($(ARCH),i386)
|
|
||||||
PROGS:=$($(WIN32_CROSS)_LINK)
|
|
||||||
$($(WIN32_CROSS)_LINK)_TCC = yes
|
|
||||||
endif
|
|
||||||
ifeq ($(ARCH),x86-64)
|
|
||||||
PROGS:=$($(WIN64_CROSS)_LINK)
|
|
||||||
$($(WIN64_CROSS)_LINK)_TCC = yes
|
|
||||||
endif
|
|
||||||
endif
|
|
||||||
|
|
||||||
ifeq ($(TARGETOS),Linux)
|
|
||||||
ifeq ($(ARCH),i386)
|
|
||||||
PROGS:=$($(I386_CROSS)_LINK)
|
|
||||||
$($(I386_CROSS)_LINK)_TCC = yes
|
|
||||||
endif
|
|
||||||
ifeq ($(ARCH),x86-64)
|
|
||||||
PROGS:=$($(X64_CROSS)_LINK)
|
|
||||||
$($(X64_CROSS)_LINK)_TCC = yes
|
|
||||||
endif
|
|
||||||
endif
|
|
||||||
|
|
||||||
CORE_FILES = tcc.c libtcc.c tccpp.c tccgen.c tccelf.c tccasm.c tccrun.c
|
|
||||||
CORE_FILES += tcc.h config.h libtcc.h tcctok.h
|
|
||||||
I386_FILES = $(CORE_FILES) x86/i386-gen.c x86/i386-asm.c x86/i386-asm.h x86/i386-tok.h
|
|
||||||
WIN32_FILES = $(CORE_FILES) x86/i386-gen.c x86/i386-asm.c x86/i386-asm.h x86/i386-tok.h tccpe.c
|
|
||||||
WIN64_FILES = $(CORE_FILES) x86/x86_64-gen.c x86/i386-asm.c x86/x86_64-asm.h tccpe.c
|
|
||||||
WINCE_FILES = $(CORE_FILES) arm/arm-gen.c tccpe.c
|
|
||||||
X86_64_FILES = $(CORE_FILES) x86/x86_64-gen.c x86/i386-asm.c x86/x86_64-asm.h
|
|
||||||
ARM_FILES = $(CORE_FILES) arm/arm-gen.c
|
|
||||||
ARM64_FILES = $(CORE_FILES) arm/arm64-gen.c
|
|
||||||
C67_FILES = $(CORE_FILES) tms320c67/c67-gen.c tcccoff.c
|
|
||||||
|
|
||||||
ifdef CONFIG_WIN64
|
|
||||||
PROGS+=tiny_impdef$(EXESUF) tiny_libmaker$(EXESUF)
|
|
||||||
NATIVE_FILES=$(WIN64_FILES)
|
|
||||||
PROGS_CROSS=$(WIN32_CROSS) $(I386_CROSS) $(X64_CROSS) $(ARM_CROSS) $(ARM64_CROSS) $(C67_CROSS) $(WINCE_CROSS)
|
|
||||||
LIBTCC1_CROSS=lib/i386-win/libtcc1.a
|
|
||||||
LIBTCC1=libtcc1.a
|
|
||||||
else ifdef CONFIG_WIN32
|
|
||||||
PROGS+=tiny_impdef$(EXESUF) tiny_libmaker$(EXESUF)
|
|
||||||
NATIVE_FILES=$(WIN32_FILES)
|
|
||||||
PROGS_CROSS=$(WIN64_CROSS) $(I386_CROSS) $(X64_CROSS) $(ARM_CROSS) $(ARM64_CROSS) $(C67_CROSS) $(WINCE_CROSS)
|
|
||||||
LIBTCC1_CROSS=lib/x86_64-win/libtcc1.a
|
|
||||||
LIBTCC1=libtcc1.a
|
|
||||||
else ifeq ($(ARCH),i386)
|
|
||||||
NATIVE_FILES=$(I386_FILES)
|
|
||||||
PROGS_CROSS=$($(X64_CROSS)_LINK) $($(WIN32_CROSS)_LINK) $($(WIN64_CROSS)_LINK) $(ARM_CROSS) $(ARM64_CROSS) $(C67_CROSS) $(WINCE_CROSS)
|
|
||||||
LIBTCC1_CROSS=lib/i386-win/libtcc1.a lib/x86_64-win/libtcc1.a lib/i386/libtcc1.a lib/x86_64/libtcc1.a \
|
|
||||||
lib/arm64/libtcc1.a
|
|
||||||
LIBTCC1=libtcc1.a
|
|
||||||
else ifeq ($(ARCH),x86-64)
|
|
||||||
ifeq ($(TARGETOS),Darwin)
|
|
||||||
NATIVE_FILES=$(X86_64_FILES)
|
|
||||||
PROGS_CROSS=$($(I386_CROSS)_LINK) $($(WIN32_CROSS)_LINK) $($(WIN64_CROSS)_LINK) $(ARM_CROSS) $(C67_CROSS) $(WINCE_CROSS)
|
|
||||||
LIBTCC1_CROSS=lib/i386-win/libtcc1.a lib/x86_64-win/libtcc1.a lib/i386/libtcc1.a lib/x86_64/libtcc1.a
|
|
||||||
LIBTCC1=libtcc1.a
|
|
||||||
else
|
|
||||||
NATIVE_FILES=$(X86_64_FILES)
|
|
||||||
PROGS_CROSS=$($(I386_CROSS)_LINK) $($(WIN32_CROSS)_LINK) $($(WIN64_CROSS)_LINK) $(ARM_CROSS) $(ARM64_CROSS) $(C67_CROSS) $(WINCE_CROSS)
|
|
||||||
LIBTCC1_CROSS=lib/i386-win/libtcc1.a lib/x86_64-win/libtcc1.a lib/i386/libtcc1.a lib/x86_64/libtcc1.a \
|
|
||||||
lib/arm64/libtcc1.a
|
|
||||||
LIBTCC1=libtcc1.a
|
|
||||||
endif
|
|
||||||
else ifeq ($(ARCH),arm)
|
|
||||||
NATIVE_FILES=$(ARM_FILES)
|
|
||||||
PROGS_CROSS=$(I386_CROSS) $(X64_CROSS) $(WIN32_CROSS) $(WIN64_CROSS) $(ARM64_CROSS) $(C67_CROSS) $(WINCE_CROSS)
|
|
||||||
LIBTCC1=libtcc1.a
|
|
||||||
LIBTCC1_CROSS=lib/i386-win/libtcc1.a lib/x86_64-win/libtcc1.a lib/i386/libtcc1.a
|
|
||||||
else ifeq ($(ARCH),arm64)
|
|
||||||
NATIVE_FILES=$(ARM64_FILES)
|
|
||||||
PROGS_CROSS=$(I386_CROSS) $(X64_CROSS) $(WIN32_CROSS) $(WIN64_CROSS) $(ARM_CROSS) $(C67_CROSS) $(WINCE_CROSS)
|
|
||||||
LIBTCC1=libtcc1.a
|
|
||||||
LIBTCC1_CROSS=lib/i386-win/libtcc1.a lib/x86_64-win/libtcc1.a lib/i386/libtcc1.a
|
|
||||||
endif
|
|
||||||
PROGS_CROSS_LINK=$(foreach PROG_CROSS,$(PROGS_CROSS),$($(PROG_CROSS)_LINK))
|
|
||||||
|
|
||||||
ifeq ($(TARGETOS),Darwin)
|
|
||||||
PROGS+=tiny_libmaker$(EXESUF)
|
|
||||||
endif
|
|
||||||
|
|
||||||
TCCLIBS = $(LIBTCC1) $(LIBTCC) $(LIBTCC_EXTRA)
|
|
||||||
TCCDOCS = tcc.1 tcc-doc.html tcc-doc.info
|
|
||||||
|
|
||||||
ifdef CONFIG_CROSS
|
|
||||||
PROGS+=$(PROGS_CROSS)
|
|
||||||
TCCLIBS+=$(LIBTCC1_CROSS)
|
|
||||||
endif
|
|
||||||
|
|
||||||
all: $(PROGS) $(TCCLIBS) $(TCCDOCS)
|
|
||||||
|
|
||||||
# Host Tiny C Compiler
|
|
||||||
tcc$(EXESUF): tcc.o $(LIBTCC)
|
|
||||||
$(CC) -o $@ $^ $(LIBS) $(CPPFLAGS) $(CFLAGS) $(LDFLAGS) $(LINK_LIBTCC)
|
|
||||||
|
|
||||||
# Cross Tiny C Compilers
|
|
||||||
%-tcc$(EXESUF): tcc.c
|
|
||||||
$(CC) -o $@ $< -DONE_SOURCE $(if $($@_TCC),$(NATIVE_DEFINES),$(DEFINES)) $(CPPFLAGS) $(CFLAGS) $(LIBS) $(LDFLAGS)
|
|
||||||
$(if $($@_LINK),ln -sf $@ $($@_LINK))
|
|
||||||
$(if $($@_TCC),ln -sf $@ tcc$(EXESUF))
|
|
||||||
|
|
||||||
# profiling version
|
|
||||||
tcc_p$(EXESUF): $(NATIVE_FILES)
|
|
||||||
$(CC) -o $@ $< -DONE_SOURCE $(NATIVE_DEFINES) $(CPPFLAGS_P) $(CFLAGS_P) $(LIBS_P) $(LDFLAGS_P)
|
|
||||||
|
|
||||||
$(I386_CROSS) $($(I386_CROSS)_LINK): DEFINES = -DTCC_TARGET_I386
|
|
||||||
$(X64_CROSS) $($(X64_CROSS)_LINK): DEFINES = -DTCC_TARGET_X86_64
|
|
||||||
$(WIN32_CROSS) $($(WIN32_CROSS)_LINK): DEFINES = -DTCC_TARGET_I386 -DTCC_TARGET_PE \
|
|
||||||
-DCONFIG_TCCDIR="\"$(tccdir)/win32\"" \
|
|
||||||
-DCONFIG_TCC_LIBPATHS="\"{B}/lib/32;{B}/lib\""
|
|
||||||
$(WIN64_CROSS) $($(WIN64_CROSS)_LINK): DEFINES = -DTCC_TARGET_X86_64 -DTCC_TARGET_PE \
|
|
||||||
-DCONFIG_TCCDIR="\"$(tccdir)/win32\"" \
|
|
||||||
-DCONFIG_TCC_LIBPATHS="\"{B}/lib/64;{B}/lib\""
|
|
||||||
$(WINCE_CROSS): DEFINES = -DTCC_TARGET_PE
|
|
||||||
$(C67_CROSS): DEFINES = -DTCC_TARGET_C67
|
|
||||||
$(ARM_FPA_CROSS): DEFINES = -DTCC_TARGET_ARM
|
|
||||||
$(ARM_FPA_LD_CROSS)$(EXESUF): DEFINES = -DTCC_TARGET_ARM -DLDOUBLE_SIZE=12
|
|
||||||
$(ARM_VFP_CROSS): DEFINES = -DTCC_TARGET_ARM -DTCC_ARM_VFP
|
|
||||||
$(ARM_EABI_CROSS): DEFINES = -DTCC_TARGET_ARM -DTCC_ARM_EABI -DTCC_ARM_VFP
|
|
||||||
$(ARM64_CROSS): DEFINES = -DTCC_TARGET_ARM64
|
|
||||||
|
|
||||||
$(I386_CROSS) $($(I386_CROSS)_LINK): $(I386_FILES)
|
|
||||||
$(X64_CROSS) $($(X64_CROSS)_LINK): $(X86_64_FILES)
|
|
||||||
$(WIN32_CROSS) $($(WIN32_CROSS)_LINK): $(WIN32_FILES)
|
|
||||||
$(WIN64_CROSS) $($(WIN64_CROSS)_LINK): $(WIN64_FILES)
|
|
||||||
$(WINCE_CROSS) $($(WINCE_CROSS)_LINK): $(WINCE_FILES)
|
|
||||||
$(C67_CROSS) $($(C67_CROSS)_LINK): $(C67_FILES)
|
|
||||||
$(ARM_FPA_CROSS) $(ARM_FPA_LD_CROSS) $(ARM_VFP_CROSS) $(ARM_EABI_CROSS): $(ARM_FILES)
|
|
||||||
$($(ARM_FPA_CROSS)_LINK) $($(ARM_FPA_LD_CROSS)_LINK) $($(ARM_VFP_CROSS)_LINK) $($(ARM_EABI_CROSS)_LINK): $(ARM_FILES)
|
|
||||||
$(ARM64_CROSS): $(ARM64_FILES)
|
|
||||||
|
|
||||||
# libtcc generation and test
|
|
||||||
ifndef ONE_SOURCE
|
|
||||||
LIBTCC_OBJ = $(filter-out tcc.o,$(patsubst %.c,%.o,$(filter %.c,$(NATIVE_FILES))))
|
|
||||||
LIBTCC_INC = $(filter %.h,$(CORE_FILES)) $(filter-out $(CORE_FILES),$(NATIVE_FILES))
|
|
||||||
else
|
|
||||||
LIBTCC_OBJ = libtcc.o
|
|
||||||
LIBTCC_INC = $(NATIVE_FILES)
|
|
||||||
libtcc.o : NATIVE_DEFINES += -DONE_SOURCE
|
|
||||||
endif
|
|
||||||
|
|
||||||
$(LIBTCC_OBJ) tcc.o : %.o : %.c $(LIBTCC_INC)
|
|
||||||
$(CC) -o $@ -c $< $(NATIVE_DEFINES) $(CPPFLAGS) $(CFLAGS)
|
|
||||||
|
|
||||||
ifndef LIBTCC_DLL
|
|
||||||
libtcc.a: $(LIBTCC_OBJ)
|
|
||||||
$(AR) rcs $@ $^
|
|
||||||
endif
|
|
||||||
|
|
||||||
libtcc.so.1.0: $(LIBTCC_OBJ)
|
|
||||||
$(CC) -shared -Wl,-soname,$@ -o $@ $^ $(LDFLAGS)
|
|
||||||
|
|
||||||
libtcc.so.1.0: CFLAGS+=-fPIC
|
|
||||||
|
|
||||||
ifdef LIBTCC_DLL
|
|
||||||
libtcc.dll libtcc.def libtcc.a: $(LIBTCC_OBJ)
|
|
||||||
$(CC) -shared $^ -o $@ $(LDFLAGS) -Wl,--output-def,libtcc.def,--out-implib,libtcc.a
|
|
||||||
endif
|
|
||||||
|
|
||||||
# windows utilities
|
|
||||||
tiny_impdef$(EXESUF): ../win32/tools/tiny_impdef.c
|
|
||||||
$(CC) -o $@ $< $(CPPFLAGS) $(CFLAGS) $(LDFLAGS)
|
|
||||||
tiny_libmaker$(EXESUF): ../win32/tools/tiny_libmaker.c
|
|
||||||
$(CC) -o $@ $< $(CPPFLAGS) $(CFLAGS) $(LDFLAGS)
|
|
||||||
|
|
||||||
# TinyCC runtime libraries
|
|
||||||
libtcc1.a : FORCE
|
|
||||||
$(MAKE) -C ../lib native
|
|
||||||
if test ! -d $(ARCH); then mkdir $(ARCH); fi
|
|
||||||
if test ! -L $(ARCH)/$@; then ln -sf ../$@ $(ARCH)/$@; fi
|
|
||||||
lib/%/libtcc1.a : FORCE $(PROGS_CROSS)
|
|
||||||
$(MAKE) -C ../lib cross TARGET=$*
|
|
||||||
|
|
||||||
FORCE:
|
|
||||||
|
|
||||||
# install
|
|
||||||
TCC_INCLUDES = stdarg.h stddef.h stdbool.h float.h varargs.h
|
|
||||||
INSTALL=install
|
|
||||||
ifdef STRIP_BINARIES
|
|
||||||
INSTALLBIN=$(INSTALL) -s
|
|
||||||
else
|
|
||||||
INSTALLBIN=$(INSTALL)
|
|
||||||
endif
|
|
||||||
|
|
||||||
install-strip: install
|
|
||||||
strip $(foreach PROG,$(PROGS),"$(bindir)"/$(PROG))
|
|
||||||
|
|
||||||
ifndef CONFIG_WIN32
|
|
||||||
install: $(PROGS) $(TCCLIBS) $(TCCDOCS)
|
|
||||||
mkdir -p "$(bindir)"
|
|
||||||
$(INSTALLBIN) -m755 $(PROGS) "$(bindir)"
|
|
||||||
cp -P tcc$(EXESUF) "$(bindir)"
|
|
||||||
mkdir -p "$(mandir)/man1"
|
|
||||||
-$(INSTALL) -m644 tcc.1 "$(mandir)/man1"
|
|
||||||
mkdir -p "$(infodir)"
|
|
||||||
-$(INSTALL) -m644 tcc-doc.info "$(infodir)"
|
|
||||||
mkdir -p "$(tccdir)"
|
|
||||||
mkdir -p "$(tccdir)/include"
|
|
||||||
ifneq ($(LIBTCC1),)
|
|
||||||
mkdir -p "$(tccdir)/$(ARCH)"
|
|
||||||
$(INSTALL) -m644 $(LIBTCC1) "$(tccdir)/$(ARCH)"
|
|
||||||
endif
|
|
||||||
$(INSTALL) -m644 $(addprefix $(top_srcdir)/include/,$(TCC_INCLUDES)) $(top_srcdir)/tcclib.h "$(tccdir)/include"
|
|
||||||
mkdir -p "$(libdir)"
|
|
||||||
$(INSTALL) -m644 $(LIBTCC) "$(libdir)"
|
|
||||||
ifdef DISABLE_STATIC
|
|
||||||
ln -sf "$(ln_libdir)/libtcc.so.1.0" "$(libdir)/libtcc.so.1"
|
|
||||||
ln -sf "$(ln_libdir)/libtcc.so.1.0" "$(libdir)/libtcc.so"
|
|
||||||
endif
|
|
||||||
mkdir -p "$(includedir)"
|
|
||||||
$(INSTALL) -m644 $(top_srcdir)/libtcc.h "$(includedir)"
|
|
||||||
mkdir -p "$(docdir)"
|
|
||||||
-$(INSTALL) -m644 tcc-doc.html "$(docdir)"
|
|
||||||
ifdef CONFIG_CROSS
|
|
||||||
mkdir -p "$(tccdir)/win32/lib/32"
|
|
||||||
mkdir -p "$(tccdir)/win32/lib/64"
|
|
||||||
mkdir -p "$(tccdir)/i386"
|
|
||||||
mkdir -p "$(tccdir)/x86-64"
|
|
||||||
ifneq ($(HOST_OS),Darwin)
|
|
||||||
mkdir -p "$(tccdir)/arm64"
|
|
||||||
$(INSTALL) -m644 lib/arm64/libtcc1.a "$(tccdir)/arm64"
|
|
||||||
endif
|
|
||||||
$(INSTALL) -m644 lib/i386/libtcc1.a "$(tccdir)/i386"
|
|
||||||
$(INSTALL) -m644 lib/x86_64/libtcc1.a "$(tccdir)/x86-64"
|
|
||||||
$(INSTALL) -m644 $(top_srcdir)/win32/lib/*.def "$(tccdir)/win32/lib"
|
|
||||||
$(INSTALL) -m644 lib/i386-win/libtcc1.a "$(tccdir)/win32/lib/32"
|
|
||||||
$(INSTALL) -m644 lib/x86_64-win/libtcc1.a "$(tccdir)/win32/lib/64"
|
|
||||||
cp -r $(top_srcdir)/win32/include/. "$(tccdir)/win32/include"
|
|
||||||
cp -r "$(tccdir)/include" "$(tccdir)/win32"
|
|
||||||
endif
|
|
||||||
|
|
||||||
uninstall:
|
|
||||||
rm -fv $(foreach P,$(PROGS),"$(bindir)/$P")
|
|
||||||
rm -fv "$(bindir)/tcc$(EXESUF)"
|
|
||||||
rm -fv $(foreach P,$(LIBTCC1),"$(tccdir)/$P")
|
|
||||||
rm -fv $(foreach P,$(TCC_INCLUDES),"$(tccdir)/include/$P")
|
|
||||||
rm -fv "$(mandir)/man1/tcc.1" "$(infodir)/tcc-doc.info"
|
|
||||||
rm -fv "$(libdir)/$(LIBTCC)" "$(includedir)/libtcc.h"
|
|
||||||
rm -fv "$(libdir)/libtcc.so*"
|
|
||||||
rm -rv "$(tccdir)"
|
|
||||||
rm -rv "$(docdir)"
|
|
||||||
else
|
|
||||||
# on windows
|
|
||||||
install: $(PROGS) $(TCCLIBS) $(TCCDOCS)
|
|
||||||
mkdir -p "$(tccdir)"
|
|
||||||
mkdir -p "$(tccdir)/lib"
|
|
||||||
mkdir -p "$(tccdir)/include"
|
|
||||||
mkdir -p "$(tccdir)/examples"
|
|
||||||
mkdir -p "$(tccdir)/doc"
|
|
||||||
mkdir -p "$(tccdir)/libtcc"
|
|
||||||
$(INSTALLBIN) -m755 $(PROGS) "$(tccdir)"
|
|
||||||
$(INSTALLBIN) -m755 tcc.exe "$(tccdir)"
|
|
||||||
$(INSTALL) -m644 $(LIBTCC1) $(top_srcdir)/win32/lib/*.def "$(tccdir)/lib"
|
|
||||||
cp -r $(top_srcdir)/win32/include/. "$(tccdir)/include"
|
|
||||||
cp -r $(top_srcdir)/win32/examples/. "$(tccdir)/examples"
|
|
||||||
$(INSTALL) -m644 $(addprefix $(top_srcdir)/include/,$(TCC_INCLUDES)) $(top_srcdir)/tcclib.h "$(tccdir)/include"
|
|
||||||
$(INSTALL) -m644 tcc-doc.html $(top_srcdir)/win32/tcc-win32.txt "$(tccdir)/doc"
|
|
||||||
$(INSTALL) -m644 $(top_srcdir)/libtcc.h $(LIBTCC_EXTRA) "$(tccdir)/libtcc"
|
|
||||||
$(INSTALL) -m644 $(LIBTCC) "$(tccdir)"
|
|
||||||
ifdef CONFIG_CROSS
|
|
||||||
mkdir -p "$(tccdir)/lib/32"
|
|
||||||
mkdir -p "$(tccdir)/lib/64"
|
|
||||||
-$(INSTALL) -m644 lib/i386-win/libtcc1.a "$(tccdir)/lib/32"
|
|
||||||
-$(INSTALL) -m644 lib/x86_64-win/libtcc1.a "$(tccdir)/lib/64"
|
|
||||||
endif
|
|
||||||
|
|
||||||
uninstall:
|
|
||||||
rm -rfv "$(tccdir)/*"
|
|
||||||
endif
|
|
||||||
|
|
||||||
# documentation and man page
|
|
||||||
tcc-doc.html: ../docs/tcc-doc.texi
|
|
||||||
-makeinfo --no-split --html --number-sections -o $@ $<
|
|
||||||
|
|
||||||
tcc.1: ../docs/tcc-doc.texi
|
|
||||||
-$(top_srcdir)/../docs/texi2pod.pl $< tcc.pod
|
|
||||||
-pod2man --section=1 --center="Tiny C Compiler" --release=`cat $(top_srcdir)/../VERSION` tcc.pod > $@
|
|
||||||
|
|
||||||
tcc-doc.info: ../docs/tcc-doc.texi
|
|
||||||
-makeinfo $<
|
|
||||||
|
|
||||||
# in tests subdir
|
|
||||||
export LIBTCC1
|
|
||||||
|
|
||||||
%est:
|
|
||||||
$(MAKE) -C ../tests $@ 'PROGS_CROSS=$(PROGS_CROSS)'
|
|
||||||
|
|
||||||
clean:
|
|
||||||
rm -vf $(PROGS) tcc_p$(EXESUF) tcc.pod *~ *.o *.a *.so* *.out *.log \
|
|
||||||
*.exe a.out tags TAGS libtcc_test$(EXESUF) tcc$(EXESUF)
|
|
||||||
-rm -r $(ARCH) arm64
|
|
||||||
ifeq ($(HOST_OS),Linux)
|
|
||||||
-rm -r ./C:
|
|
||||||
endif
|
|
||||||
-rm *-tcc$(EXESUF)
|
|
||||||
$(MAKE) -C ../tests $@
|
|
||||||
ifneq ($(LIBTCC1),)
|
|
||||||
$(MAKE) -C ../lib $@
|
|
||||||
endif
|
|
||||||
|
|
||||||
distclean: clean
|
|
||||||
rm -vf config.h config.mak config.texi tcc.1 tcc-doc.info tcc-doc.html
|
|
||||||
|
|
||||||
config.mak:
|
|
||||||
@echo "Please run ./configure."
|
|
||||||
@exit 1
|
|
||||||
|
|
||||||
tags:
|
|
||||||
ctags $(top_srcdir)/*.[ch] $(top_srcdir)/include/*.h $(top_srcdir)/lib/*.[chS]
|
|
||||||
|
|
||||||
TAGS:
|
|
||||||
ctags -e $(top_srcdir)/*.[ch] $(top_srcdir)/include/*.h $(top_srcdir)/lib/*.[chS]
|
|
||||||
|
|
||||||
# create release tarball from *current* git branch (including tcc-doc.html
|
|
||||||
# and converting two files to CRLF)
|
|
||||||
TCC-VERSION := tcc-$(shell cat $(top_srcdir)/../VERSION)
|
|
||||||
tar: tcc-doc.html
|
|
||||||
mkdir $(TCC-VERSION)
|
|
||||||
( cd $(TCC-VERSION) && git --git-dir ../.git checkout -f )
|
|
||||||
cp tcc-doc.html $(TCC-VERSION)
|
|
||||||
for f in tcc-win32.txt build-tcc.bat ; do \
|
|
||||||
cat win32/$$f | sed 's,\(.*\),\1\r,g' > $(TCC-VERSION)/win32/$$f ; \
|
|
||||||
done
|
|
||||||
tar cjf $(TCC-VERSION).tar.bz2 $(TCC-VERSION)
|
|
||||||
rm -rf $(TCC-VERSION)
|
|
||||||
git reset
|
|
||||||
|
|
||||||
.PHONY: all clean tar tags TAGS distclean install uninstall FORCE
|
|
||||||
|
|
||||||
endif # ifeq ($(TOP),.)
|
|
2162
src/arm/arm-gen.c
2162
src/arm/arm-gen.c
File diff suppressed because it is too large
Load Diff
924
src/tcccoff.c
924
src/tcccoff.c
|
@ -1,924 +0,0 @@
|
||||||
/*
|
|
||||||
* COFF file handling for TCC
|
|
||||||
*
|
|
||||||
* Copyright (c) 2003, 2004 TK
|
|
||||||
* Copyright (c) 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
|
|
||||||
*/
|
|
||||||
|
|
||||||
#include "tcc.h"
|
|
||||||
|
|
||||||
#define MAXNSCNS 255 /* MAXIMUM NUMBER OF SECTIONS */
|
|
||||||
#define MAX_STR_TABLE 1000000
|
|
||||||
AOUTHDR o_filehdr; /* OPTIONAL (A.OUT) FILE HEADER */
|
|
||||||
|
|
||||||
SCNHDR section_header[MAXNSCNS];
|
|
||||||
|
|
||||||
#define MAX_FUNCS 1000
|
|
||||||
#define MAX_FUNC_NAME_LENGTH 128
|
|
||||||
|
|
||||||
int nFuncs;
|
|
||||||
char Func[MAX_FUNCS][MAX_FUNC_NAME_LENGTH];
|
|
||||||
char AssociatedFile[MAX_FUNCS][MAX_FUNC_NAME_LENGTH];
|
|
||||||
int LineNoFilePtr[MAX_FUNCS];
|
|
||||||
int EndAddress[MAX_FUNCS];
|
|
||||||
int LastLineNo[MAX_FUNCS];
|
|
||||||
int FuncEntries[MAX_FUNCS];
|
|
||||||
|
|
||||||
int OutputTheSection(Section* sect);
|
|
||||||
short int GetCoffFlags(const char* s);
|
|
||||||
void SortSymbolTable(void);
|
|
||||||
Section* FindSection(TCCState* s1, const char* sname);
|
|
||||||
|
|
||||||
int C67_main_entry_point;
|
|
||||||
|
|
||||||
int FindCoffSymbolIndex(const char* func_name);
|
|
||||||
int nb_syms;
|
|
||||||
|
|
||||||
typedef struct {
|
|
||||||
long tag;
|
|
||||||
long size;
|
|
||||||
long fileptr;
|
|
||||||
long nextsym;
|
|
||||||
short int dummy;
|
|
||||||
} AUXFUNC;
|
|
||||||
|
|
||||||
typedef struct {
|
|
||||||
long regmask;
|
|
||||||
unsigned short lineno;
|
|
||||||
unsigned short nentries;
|
|
||||||
int localframe;
|
|
||||||
int nextentry;
|
|
||||||
short int dummy;
|
|
||||||
} AUXBF;
|
|
||||||
|
|
||||||
typedef struct {
|
|
||||||
long dummy;
|
|
||||||
unsigned short lineno;
|
|
||||||
unsigned short dummy1;
|
|
||||||
int dummy2;
|
|
||||||
int dummy3;
|
|
||||||
unsigned short dummy4;
|
|
||||||
} AUXEF;
|
|
||||||
|
|
||||||
ST_FUNC int tcc_output_coff(TCCState* s1, FILE* f)
|
|
||||||
{
|
|
||||||
Section* tcc_sect;
|
|
||||||
SCNHDR* coff_sec;
|
|
||||||
int file_pointer;
|
|
||||||
char* Coff_str_table, *pCoff_str_table;
|
|
||||||
int CoffTextSectionNo, coff_nb_syms;
|
|
||||||
FILHDR file_hdr; /* FILE HEADER STRUCTURE */
|
|
||||||
Section* stext, *sdata, *sbss;
|
|
||||||
int i, NSectionsToOutput = 0;
|
|
||||||
|
|
||||||
Coff_str_table = pCoff_str_table = NULL;
|
|
||||||
|
|
||||||
stext = FindSection(s1, ".text");
|
|
||||||
sdata = FindSection(s1, ".data");
|
|
||||||
sbss = FindSection(s1, ".bss");
|
|
||||||
|
|
||||||
nb_syms = symtab_section->data_offset / sizeof(Elf32_Sym);
|
|
||||||
coff_nb_syms = FindCoffSymbolIndex("XXXXXXXXXX1");
|
|
||||||
|
|
||||||
file_hdr.f_magic = COFF_C67_MAGIC; /* magic number */
|
|
||||||
file_hdr.f_timdat = 0; /* time & date stamp */
|
|
||||||
file_hdr.f_opthdr = sizeof(AOUTHDR); /* sizeof(optional hdr) */
|
|
||||||
file_hdr.f_flags = 0x1143; /* flags (copied from what code composer does) */
|
|
||||||
file_hdr.f_TargetID = 0x99; /* for C6x = 0x0099 */
|
|
||||||
|
|
||||||
o_filehdr.magic = 0x0108; /* see magic.h */
|
|
||||||
o_filehdr.vstamp = 0x0190; /* version stamp */
|
|
||||||
o_filehdr.tsize =
|
|
||||||
stext->data_offset; /* text size in bytes, padded to FW bdry */
|
|
||||||
o_filehdr.dsize = sdata->data_offset; /* initialized data " " */
|
|
||||||
o_filehdr.bsize = sbss->data_offset; /* uninitialized data " " */
|
|
||||||
o_filehdr.entrypt = C67_main_entry_point; /* entry pt. */
|
|
||||||
o_filehdr.text_start = stext->sh_addr; /* base of text used for this file */
|
|
||||||
o_filehdr.data_start = sdata->sh_addr; /* base of data used for this file */
|
|
||||||
|
|
||||||
// create all the section headers
|
|
||||||
|
|
||||||
file_pointer = FILHSZ + sizeof(AOUTHDR);
|
|
||||||
|
|
||||||
CoffTextSectionNo = -1;
|
|
||||||
|
|
||||||
for (i = 1; i < s1->nb_sections; i++) {
|
|
||||||
coff_sec = §ion_header[i];
|
|
||||||
tcc_sect = s1->sections[i];
|
|
||||||
|
|
||||||
if (OutputTheSection(tcc_sect)) {
|
|
||||||
NSectionsToOutput++;
|
|
||||||
|
|
||||||
if (CoffTextSectionNo == -1 && tcc_sect == stext)
|
|
||||||
CoffTextSectionNo = NSectionsToOutput; // rem which coff sect
|
|
||||||
// number the .text sect
|
|
||||||
// is
|
|
||||||
|
|
||||||
strcpy(coff_sec->s_name, tcc_sect->name); /* section name */
|
|
||||||
|
|
||||||
coff_sec->s_paddr = tcc_sect->sh_addr; /* physical address */
|
|
||||||
coff_sec->s_vaddr = tcc_sect->sh_addr; /* virtual address */
|
|
||||||
coff_sec->s_size = tcc_sect->data_offset; /* section size */
|
|
||||||
coff_sec->s_scnptr = 0; /* file ptr to raw data for section */
|
|
||||||
coff_sec->s_relptr = 0; /* file ptr to relocation */
|
|
||||||
coff_sec->s_lnnoptr = 0; /* file ptr to line numbers */
|
|
||||||
coff_sec->s_nreloc = 0; /* number of relocation entries */
|
|
||||||
coff_sec->s_flags = GetCoffFlags(coff_sec->s_name); /* flags */
|
|
||||||
coff_sec->s_reserved = 0; /* reserved byte */
|
|
||||||
coff_sec->s_page = 0; /* memory page id */
|
|
||||||
|
|
||||||
file_pointer += sizeof(SCNHDR);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
file_hdr.f_nscns = NSectionsToOutput; /* number of sections */
|
|
||||||
|
|
||||||
// now loop through and determine file pointer locations
|
|
||||||
// for the raw data
|
|
||||||
|
|
||||||
for (i = 1; i < s1->nb_sections; i++) {
|
|
||||||
coff_sec = §ion_header[i];
|
|
||||||
tcc_sect = s1->sections[i];
|
|
||||||
|
|
||||||
if (OutputTheSection(tcc_sect)) {
|
|
||||||
// put raw data
|
|
||||||
coff_sec->s_scnptr =
|
|
||||||
file_pointer; /* file ptr to raw data for section */
|
|
||||||
file_pointer += coff_sec->s_size;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
// now loop through and determine file pointer locations
|
|
||||||
// for the relocation data
|
|
||||||
|
|
||||||
for (i = 1; i < s1->nb_sections; i++) {
|
|
||||||
coff_sec = §ion_header[i];
|
|
||||||
tcc_sect = s1->sections[i];
|
|
||||||
|
|
||||||
if (OutputTheSection(tcc_sect)) {
|
|
||||||
// put relocations data
|
|
||||||
if (coff_sec->s_nreloc > 0) {
|
|
||||||
coff_sec->s_relptr = file_pointer; /* file ptr to relocation */
|
|
||||||
file_pointer += coff_sec->s_nreloc * sizeof(struct reloc);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
// now loop through and determine file pointer locations
|
|
||||||
// for the line number data
|
|
||||||
|
|
||||||
for (i = 1; i < s1->nb_sections; i++) {
|
|
||||||
coff_sec = §ion_header[i];
|
|
||||||
tcc_sect = s1->sections[i];
|
|
||||||
|
|
||||||
coff_sec->s_nlnno = 0;
|
|
||||||
coff_sec->s_lnnoptr = 0;
|
|
||||||
|
|
||||||
if (s1->do_debug && tcc_sect == stext) {
|
|
||||||
// count how many line nos data
|
|
||||||
|
|
||||||
// also find association between source file name and function
|
|
||||||
// so we can sort the symbol table
|
|
||||||
|
|
||||||
Stab_Sym* sym, *sym_end;
|
|
||||||
char func_name[MAX_FUNC_NAME_LENGTH],
|
|
||||||
last_func_name[MAX_FUNC_NAME_LENGTH];
|
|
||||||
unsigned long func_addr, last_pc, pc;
|
|
||||||
const char* incl_files[INCLUDE_STACK_SIZE];
|
|
||||||
int incl_index, len, last_line_num;
|
|
||||||
const char* str, *p;
|
|
||||||
|
|
||||||
coff_sec->s_lnnoptr = file_pointer; /* file ptr to linno */
|
|
||||||
|
|
||||||
func_name[0] = '\0';
|
|
||||||
func_addr = 0;
|
|
||||||
incl_index = 0;
|
|
||||||
last_func_name[0] = '\0';
|
|
||||||
last_pc = 0xffffffff;
|
|
||||||
last_line_num = 1;
|
|
||||||
sym = (Stab_Sym*)stab_section->data + 1;
|
|
||||||
sym_end =
|
|
||||||
(Stab_Sym*)(stab_section->data + stab_section->data_offset);
|
|
||||||
|
|
||||||
nFuncs = 0;
|
|
||||||
while (sym < sym_end) {
|
|
||||||
switch (sym->n_type) {
|
|
||||||
/* function start or end */
|
|
||||||
case N_FUN:
|
|
||||||
if (sym->n_strx == 0) {
|
|
||||||
// end of function
|
|
||||||
|
|
||||||
coff_sec->s_nlnno++;
|
|
||||||
file_pointer += LINESZ;
|
|
||||||
|
|
||||||
pc = sym->n_value + func_addr;
|
|
||||||
func_name[0] = '\0';
|
|
||||||
func_addr = 0;
|
|
||||||
EndAddress[nFuncs] = pc;
|
|
||||||
FuncEntries[nFuncs] =
|
|
||||||
(file_pointer - LineNoFilePtr[nFuncs]) / LINESZ - 1;
|
|
||||||
LastLineNo[nFuncs++] = last_line_num + 1;
|
|
||||||
} else {
|
|
||||||
// beginning of function
|
|
||||||
|
|
||||||
LineNoFilePtr[nFuncs] = file_pointer;
|
|
||||||
coff_sec->s_nlnno++;
|
|
||||||
file_pointer += LINESZ;
|
|
||||||
|
|
||||||
str = (const char*)stabstr_section->data + sym->n_strx;
|
|
||||||
|
|
||||||
p = strchr(str, ':');
|
|
||||||
if (!p) {
|
|
||||||
pstrcpy(func_name, sizeof(func_name), str);
|
|
||||||
pstrcpy(Func[nFuncs], sizeof(func_name), str);
|
|
||||||
} else {
|
|
||||||
len = p - str;
|
|
||||||
if (len > sizeof(func_name) - 1)
|
|
||||||
len = sizeof(func_name) - 1;
|
|
||||||
memcpy(func_name, str, len);
|
|
||||||
memcpy(Func[nFuncs], str, len);
|
|
||||||
func_name[len] = '\0';
|
|
||||||
}
|
|
||||||
|
|
||||||
// save the file that it came in so we can sort later
|
|
||||||
pstrcpy(AssociatedFile[nFuncs], sizeof(func_name),
|
|
||||||
incl_files[incl_index - 1]);
|
|
||||||
|
|
||||||
func_addr = sym->n_value;
|
|
||||||
}
|
|
||||||
break;
|
|
||||||
|
|
||||||
/* line number info */
|
|
||||||
case N_SLINE:
|
|
||||||
pc = sym->n_value + func_addr;
|
|
||||||
|
|
||||||
last_pc = pc;
|
|
||||||
last_line_num = sym->n_desc;
|
|
||||||
|
|
||||||
/* XXX: slow! */
|
|
||||||
strcpy(last_func_name, func_name);
|
|
||||||
|
|
||||||
coff_sec->s_nlnno++;
|
|
||||||
file_pointer += LINESZ;
|
|
||||||
break;
|
|
||||||
/* include files */
|
|
||||||
case N_BINCL:
|
|
||||||
str = (const char*)stabstr_section->data + sym->n_strx;
|
|
||||||
add_incl:
|
|
||||||
if (incl_index < INCLUDE_STACK_SIZE) {
|
|
||||||
incl_files[incl_index++] = str;
|
|
||||||
}
|
|
||||||
break;
|
|
||||||
case N_EINCL:
|
|
||||||
if (incl_index > 1)
|
|
||||||
incl_index--;
|
|
||||||
break;
|
|
||||||
case N_SO:
|
|
||||||
if (sym->n_strx == 0) {
|
|
||||||
incl_index = 0; /* end of translation unit */
|
|
||||||
} else {
|
|
||||||
str = (const char*)stabstr_section->data + sym->n_strx;
|
|
||||||
/* do not add path */
|
|
||||||
len = strlen(str);
|
|
||||||
if (len > 0 && str[len - 1] != '/')
|
|
||||||
goto add_incl;
|
|
||||||
}
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
sym++;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
file_hdr.f_symptr = file_pointer; /* file pointer to symtab */
|
|
||||||
|
|
||||||
if (s1->do_debug)
|
|
||||||
file_hdr.f_nsyms = coff_nb_syms; /* number of symtab entries */
|
|
||||||
else
|
|
||||||
file_hdr.f_nsyms = 0;
|
|
||||||
|
|
||||||
file_pointer += file_hdr.f_nsyms * SYMNMLEN;
|
|
||||||
|
|
||||||
// OK now we are all set to write the file
|
|
||||||
|
|
||||||
fwrite(&file_hdr, FILHSZ, 1, f);
|
|
||||||
fwrite(&o_filehdr, sizeof(o_filehdr), 1, f);
|
|
||||||
|
|
||||||
// write section headers
|
|
||||||
for (i = 1; i < s1->nb_sections; i++) {
|
|
||||||
coff_sec = §ion_header[i];
|
|
||||||
tcc_sect = s1->sections[i];
|
|
||||||
|
|
||||||
if (OutputTheSection(tcc_sect)) {
|
|
||||||
fwrite(coff_sec, sizeof(SCNHDR), 1, f);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
// write raw data
|
|
||||||
for (i = 1; i < s1->nb_sections; i++) {
|
|
||||||
coff_sec = §ion_header[i];
|
|
||||||
tcc_sect = s1->sections[i];
|
|
||||||
|
|
||||||
if (OutputTheSection(tcc_sect)) {
|
|
||||||
fwrite(tcc_sect->data, tcc_sect->data_offset, 1, f);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
// write relocation data
|
|
||||||
for (i = 1; i < s1->nb_sections; i++) {
|
|
||||||
coff_sec = §ion_header[i];
|
|
||||||
tcc_sect = s1->sections[i];
|
|
||||||
|
|
||||||
if (OutputTheSection(tcc_sect)) {
|
|
||||||
// put relocations data
|
|
||||||
if (coff_sec->s_nreloc > 0) {
|
|
||||||
fwrite(tcc_sect->reloc,
|
|
||||||
coff_sec->s_nreloc * sizeof(struct reloc), 1, f);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
// group the symbols in order of filename, func1, func2, etc
|
|
||||||
// finally global symbols
|
|
||||||
|
|
||||||
if (s1->do_debug)
|
|
||||||
SortSymbolTable();
|
|
||||||
|
|
||||||
// write line no data
|
|
||||||
|
|
||||||
for (i = 1; i < s1->nb_sections; i++) {
|
|
||||||
coff_sec = §ion_header[i];
|
|
||||||
tcc_sect = s1->sections[i];
|
|
||||||
|
|
||||||
if (s1->do_debug && tcc_sect == stext) {
|
|
||||||
// count how many line nos data
|
|
||||||
|
|
||||||
Stab_Sym* sym, *sym_end;
|
|
||||||
char func_name[128], last_func_name[128];
|
|
||||||
unsigned long func_addr, last_pc, pc;
|
|
||||||
const char* incl_files[INCLUDE_STACK_SIZE];
|
|
||||||
int incl_index, len, last_line_num;
|
|
||||||
const char* str, *p;
|
|
||||||
|
|
||||||
LINENO CoffLineNo;
|
|
||||||
|
|
||||||
func_name[0] = '\0';
|
|
||||||
func_addr = 0;
|
|
||||||
incl_index = 0;
|
|
||||||
last_func_name[0] = '\0';
|
|
||||||
last_pc = 0;
|
|
||||||
last_line_num = 1;
|
|
||||||
sym = (Stab_Sym*)stab_section->data + 1;
|
|
||||||
sym_end =
|
|
||||||
(Stab_Sym*)(stab_section->data + stab_section->data_offset);
|
|
||||||
|
|
||||||
while (sym < sym_end) {
|
|
||||||
switch (sym->n_type) {
|
|
||||||
/* function start or end */
|
|
||||||
case N_FUN:
|
|
||||||
if (sym->n_strx == 0) {
|
|
||||||
// end of function
|
|
||||||
|
|
||||||
CoffLineNo.l_addr.l_paddr = last_pc;
|
|
||||||
CoffLineNo.l_lnno = last_line_num + 1;
|
|
||||||
fwrite(&CoffLineNo, 6, 1, f);
|
|
||||||
|
|
||||||
pc = sym->n_value + func_addr;
|
|
||||||
func_name[0] = '\0';
|
|
||||||
func_addr = 0;
|
|
||||||
} else {
|
|
||||||
// beginning of function
|
|
||||||
|
|
||||||
str = (const char*)stabstr_section->data + sym->n_strx;
|
|
||||||
|
|
||||||
p = strchr(str, ':');
|
|
||||||
if (!p) {
|
|
||||||
pstrcpy(func_name, sizeof(func_name), str);
|
|
||||||
} else {
|
|
||||||
len = p - str;
|
|
||||||
if (len > sizeof(func_name) - 1)
|
|
||||||
len = sizeof(func_name) - 1;
|
|
||||||
memcpy(func_name, str, len);
|
|
||||||
func_name[len] = '\0';
|
|
||||||
}
|
|
||||||
func_addr = sym->n_value;
|
|
||||||
last_pc = func_addr;
|
|
||||||
last_line_num = -1;
|
|
||||||
|
|
||||||
// output a function begin
|
|
||||||
|
|
||||||
CoffLineNo.l_addr.l_symndx =
|
|
||||||
FindCoffSymbolIndex(func_name);
|
|
||||||
CoffLineNo.l_lnno = 0;
|
|
||||||
|
|
||||||
fwrite(&CoffLineNo, 6, 1, f);
|
|
||||||
}
|
|
||||||
break;
|
|
||||||
|
|
||||||
/* line number info */
|
|
||||||
case N_SLINE:
|
|
||||||
pc = sym->n_value + func_addr;
|
|
||||||
|
|
||||||
/* XXX: slow! */
|
|
||||||
strcpy(last_func_name, func_name);
|
|
||||||
|
|
||||||
// output a line reference
|
|
||||||
|
|
||||||
CoffLineNo.l_addr.l_paddr = last_pc;
|
|
||||||
|
|
||||||
if (last_line_num == -1) {
|
|
||||||
CoffLineNo.l_lnno = sym->n_desc;
|
|
||||||
} else {
|
|
||||||
CoffLineNo.l_lnno = last_line_num + 1;
|
|
||||||
}
|
|
||||||
|
|
||||||
fwrite(&CoffLineNo, 6, 1, f);
|
|
||||||
|
|
||||||
last_pc = pc;
|
|
||||||
last_line_num = sym->n_desc;
|
|
||||||
|
|
||||||
break;
|
|
||||||
|
|
||||||
/* include files */
|
|
||||||
case N_BINCL:
|
|
||||||
str = (const char*)stabstr_section->data + sym->n_strx;
|
|
||||||
add_incl2:
|
|
||||||
if (incl_index < INCLUDE_STACK_SIZE) {
|
|
||||||
incl_files[incl_index++] = str;
|
|
||||||
}
|
|
||||||
break;
|
|
||||||
case N_EINCL:
|
|
||||||
if (incl_index > 1)
|
|
||||||
incl_index--;
|
|
||||||
break;
|
|
||||||
case N_SO:
|
|
||||||
if (sym->n_strx == 0) {
|
|
||||||
incl_index = 0; /* end of translation unit */
|
|
||||||
} else {
|
|
||||||
str = (const char*)stabstr_section->data + sym->n_strx;
|
|
||||||
/* do not add path */
|
|
||||||
len = strlen(str);
|
|
||||||
if (len > 0 && str[len - 1] != '/')
|
|
||||||
goto add_incl2;
|
|
||||||
}
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
sym++;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
// write symbol table
|
|
||||||
if (s1->do_debug) {
|
|
||||||
int k;
|
|
||||||
struct syment csym;
|
|
||||||
AUXFUNC auxfunc;
|
|
||||||
AUXBF auxbf;
|
|
||||||
AUXEF auxef;
|
|
||||||
int i;
|
|
||||||
Elf32_Sym* p;
|
|
||||||
const char* name;
|
|
||||||
int nstr;
|
|
||||||
int n = 0;
|
|
||||||
|
|
||||||
Coff_str_table = (char*)tcc_malloc(MAX_STR_TABLE);
|
|
||||||
pCoff_str_table = Coff_str_table;
|
|
||||||
nstr = 0;
|
|
||||||
|
|
||||||
p = (Elf32_Sym*)symtab_section->data;
|
|
||||||
|
|
||||||
for (i = 0; i < nb_syms; i++) {
|
|
||||||
|
|
||||||
name = symtab_section->link->data + p->st_name;
|
|
||||||
|
|
||||||
for (k = 0; k < 8; k++)
|
|
||||||
csym._n._n_name[k] = 0;
|
|
||||||
|
|
||||||
if (strlen(name) <= 8) {
|
|
||||||
strcpy(csym._n._n_name, name);
|
|
||||||
} else {
|
|
||||||
if (pCoff_str_table - Coff_str_table + strlen(name) >
|
|
||||||
MAX_STR_TABLE - 1)
|
|
||||||
tcc_error("String table too large");
|
|
||||||
|
|
||||||
csym._n._n_n._n_zeroes = 0;
|
|
||||||
csym._n._n_n._n_offset = pCoff_str_table - Coff_str_table + 4;
|
|
||||||
|
|
||||||
strcpy(pCoff_str_table, name);
|
|
||||||
pCoff_str_table += strlen(name) + 1; // skip over null
|
|
||||||
nstr++;
|
|
||||||
}
|
|
||||||
|
|
||||||
if (p->st_info == 4) {
|
|
||||||
// put a filename symbol
|
|
||||||
csym.n_value = 33; // ?????
|
|
||||||
csym.n_scnum = N_DEBUG;
|
|
||||||
csym.n_type = 0;
|
|
||||||
csym.n_sclass = C_FILE;
|
|
||||||
csym.n_numaux = 0;
|
|
||||||
fwrite(&csym, 18, 1, f);
|
|
||||||
n++;
|
|
||||||
|
|
||||||
} else if (p->st_info == 0x12) {
|
|
||||||
// find the function data
|
|
||||||
|
|
||||||
for (k = 0; k < nFuncs; k++) {
|
|
||||||
if (strcmp(name, Func[k]) == 0)
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
|
|
||||||
if (k >= nFuncs) {
|
|
||||||
tcc_error("debug info can't find function: %s", name);
|
|
||||||
}
|
|
||||||
// put a Function Name
|
|
||||||
|
|
||||||
csym.n_value = p->st_value; // physical address
|
|
||||||
csym.n_scnum = CoffTextSectionNo;
|
|
||||||
csym.n_type = MKTYPE(T_INT, DT_FCN, 0, 0, 0, 0, 0);
|
|
||||||
csym.n_sclass = C_EXT;
|
|
||||||
csym.n_numaux = 1;
|
|
||||||
fwrite(&csym, 18, 1, f);
|
|
||||||
|
|
||||||
// now put aux info
|
|
||||||
|
|
||||||
auxfunc.tag = 0;
|
|
||||||
auxfunc.size = EndAddress[k] - p->st_value;
|
|
||||||
auxfunc.fileptr = LineNoFilePtr[k];
|
|
||||||
auxfunc.nextsym = n + 6; // tktk
|
|
||||||
auxfunc.dummy = 0;
|
|
||||||
fwrite(&auxfunc, 18, 1, f);
|
|
||||||
|
|
||||||
// put a .bf
|
|
||||||
|
|
||||||
strcpy(csym._n._n_name, ".bf");
|
|
||||||
csym.n_value = p->st_value; // physical address
|
|
||||||
csym.n_scnum = CoffTextSectionNo;
|
|
||||||
csym.n_type = 0;
|
|
||||||
csym.n_sclass = C_FCN;
|
|
||||||
csym.n_numaux = 1;
|
|
||||||
fwrite(&csym, 18, 1, f);
|
|
||||||
|
|
||||||
// now put aux info
|
|
||||||
|
|
||||||
auxbf.regmask = 0;
|
|
||||||
auxbf.lineno = 0;
|
|
||||||
auxbf.nentries = FuncEntries[k];
|
|
||||||
auxbf.localframe = 0;
|
|
||||||
auxbf.nextentry = n + 6;
|
|
||||||
auxbf.dummy = 0;
|
|
||||||
fwrite(&auxbf, 18, 1, f);
|
|
||||||
|
|
||||||
// put a .ef
|
|
||||||
|
|
||||||
strcpy(csym._n._n_name, ".ef");
|
|
||||||
csym.n_value = EndAddress[k]; // physical address
|
|
||||||
csym.n_scnum = CoffTextSectionNo;
|
|
||||||
csym.n_type = 0;
|
|
||||||
csym.n_sclass = C_FCN;
|
|
||||||
csym.n_numaux = 1;
|
|
||||||
fwrite(&csym, 18, 1, f);
|
|
||||||
|
|
||||||
// now put aux info
|
|
||||||
|
|
||||||
auxef.dummy = 0;
|
|
||||||
auxef.lineno = LastLineNo[k];
|
|
||||||
auxef.dummy1 = 0;
|
|
||||||
auxef.dummy2 = 0;
|
|
||||||
auxef.dummy3 = 0;
|
|
||||||
auxef.dummy4 = 0;
|
|
||||||
fwrite(&auxef, 18, 1, f);
|
|
||||||
|
|
||||||
n += 6;
|
|
||||||
|
|
||||||
} else {
|
|
||||||
// try an put some type info
|
|
||||||
|
|
||||||
if ((p->st_other & VT_BTYPE) == VT_DOUBLE) {
|
|
||||||
csym.n_type = T_DOUBLE; // int
|
|
||||||
csym.n_sclass = C_EXT;
|
|
||||||
} else if ((p->st_other & VT_BTYPE) == VT_FLOAT) {
|
|
||||||
csym.n_type = T_FLOAT;
|
|
||||||
csym.n_sclass = C_EXT;
|
|
||||||
} else if ((p->st_other & VT_BTYPE) == VT_INT) {
|
|
||||||
csym.n_type = T_INT; // int
|
|
||||||
csym.n_sclass = C_EXT;
|
|
||||||
} else if ((p->st_other & VT_BTYPE) == VT_SHORT) {
|
|
||||||
csym.n_type = T_SHORT;
|
|
||||||
csym.n_sclass = C_EXT;
|
|
||||||
} else if ((p->st_other & VT_BTYPE) == VT_BYTE) {
|
|
||||||
csym.n_type = T_CHAR;
|
|
||||||
csym.n_sclass = C_EXT;
|
|
||||||
} else {
|
|
||||||
csym.n_type = T_INT; // just mark as a label
|
|
||||||
csym.n_sclass = C_LABEL;
|
|
||||||
}
|
|
||||||
|
|
||||||
csym.n_value = p->st_value;
|
|
||||||
csym.n_scnum = 2;
|
|
||||||
csym.n_numaux = 1;
|
|
||||||
fwrite(&csym, 18, 1, f);
|
|
||||||
|
|
||||||
auxfunc.tag = 0;
|
|
||||||
auxfunc.size = 0x20;
|
|
||||||
auxfunc.fileptr = 0;
|
|
||||||
auxfunc.nextsym = 0;
|
|
||||||
auxfunc.dummy = 0;
|
|
||||||
fwrite(&auxfunc, 18, 1, f);
|
|
||||||
n++;
|
|
||||||
n++;
|
|
||||||
}
|
|
||||||
|
|
||||||
p++;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
if (s1->do_debug) {
|
|
||||||
// write string table
|
|
||||||
|
|
||||||
// first write the size
|
|
||||||
i = pCoff_str_table - Coff_str_table;
|
|
||||||
fwrite(&i, 4, 1, f);
|
|
||||||
|
|
||||||
// then write the strings
|
|
||||||
fwrite(Coff_str_table, i, 1, f);
|
|
||||||
|
|
||||||
tcc_free(Coff_str_table);
|
|
||||||
}
|
|
||||||
|
|
||||||
return 0;
|
|
||||||
}
|
|
||||||
|
|
||||||
// group the symbols in order of filename, func1, func2, etc
|
|
||||||
// finally global symbols
|
|
||||||
|
|
||||||
void SortSymbolTable(void)
|
|
||||||
{
|
|
||||||
int i, j, k, n = 0;
|
|
||||||
Elf32_Sym* p, *p2, *NewTable;
|
|
||||||
char* name, *name2;
|
|
||||||
|
|
||||||
NewTable = (Elf32_Sym*)tcc_malloc(nb_syms * sizeof(Elf32_Sym));
|
|
||||||
|
|
||||||
p = (Elf32_Sym*)symtab_section->data;
|
|
||||||
|
|
||||||
// find a file symbol, copy it over
|
|
||||||
// then scan the whole symbol list and copy any function
|
|
||||||
// symbols that match the file association
|
|
||||||
|
|
||||||
for (i = 0; i < nb_syms; i++) {
|
|
||||||
if (p->st_info == 4) {
|
|
||||||
name = (char*)symtab_section->link->data + p->st_name;
|
|
||||||
|
|
||||||
// this is a file symbol, copy it over
|
|
||||||
|
|
||||||
NewTable[n++] = *p;
|
|
||||||
|
|
||||||
p2 = (Elf32_Sym*)symtab_section->data;
|
|
||||||
|
|
||||||
for (j = 0; j < nb_syms; j++) {
|
|
||||||
if (p2->st_info == 0x12) {
|
|
||||||
// this is a func symbol
|
|
||||||
|
|
||||||
name2 = (char*)symtab_section->link->data + p2->st_name;
|
|
||||||
|
|
||||||
// find the function data index
|
|
||||||
|
|
||||||
for (k = 0; k < nFuncs; k++) {
|
|
||||||
if (strcmp(name2, Func[k]) == 0)
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
|
|
||||||
if (k >= nFuncs) {
|
|
||||||
tcc_error("debug (sort) info can't find function: %s",
|
|
||||||
name2);
|
|
||||||
}
|
|
||||||
|
|
||||||
if (strcmp(AssociatedFile[k], name) == 0) {
|
|
||||||
// yes they match copy it over
|
|
||||||
|
|
||||||
NewTable[n++] = *p2;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
p2++;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
p++;
|
|
||||||
}
|
|
||||||
|
|
||||||
// now all the filename and func symbols should have been copied over
|
|
||||||
// copy all the rest over (all except file and funcs)
|
|
||||||
|
|
||||||
p = (Elf32_Sym*)symtab_section->data;
|
|
||||||
for (i = 0; i < nb_syms; i++) {
|
|
||||||
if (p->st_info != 4 && p->st_info != 0x12) {
|
|
||||||
NewTable[n++] = *p;
|
|
||||||
}
|
|
||||||
p++;
|
|
||||||
}
|
|
||||||
|
|
||||||
if (n != nb_syms)
|
|
||||||
tcc_error("Internal Compiler error, debug info");
|
|
||||||
|
|
||||||
// copy it all back
|
|
||||||
|
|
||||||
p = (Elf32_Sym*)symtab_section->data;
|
|
||||||
for (i = 0; i < nb_syms; i++) {
|
|
||||||
*p++ = NewTable[i];
|
|
||||||
}
|
|
||||||
|
|
||||||
tcc_free(NewTable);
|
|
||||||
}
|
|
||||||
|
|
||||||
int FindCoffSymbolIndex(const char* func_name)
|
|
||||||
{
|
|
||||||
int i, n = 0;
|
|
||||||
Elf32_Sym* p;
|
|
||||||
char* name;
|
|
||||||
|
|
||||||
p = (Elf32_Sym*)symtab_section->data;
|
|
||||||
|
|
||||||
for (i = 0; i < nb_syms; i++) {
|
|
||||||
|
|
||||||
name = (char*)symtab_section->link->data + p->st_name;
|
|
||||||
|
|
||||||
if (p->st_info == 4) {
|
|
||||||
// put a filename symbol
|
|
||||||
n++;
|
|
||||||
} else if (p->st_info == 0x12) {
|
|
||||||
|
|
||||||
if (strcmp(func_name, name) == 0)
|
|
||||||
return n;
|
|
||||||
|
|
||||||
n += 6;
|
|
||||||
|
|
||||||
// put a Function Name
|
|
||||||
|
|
||||||
// now put aux info
|
|
||||||
|
|
||||||
// put a .bf
|
|
||||||
|
|
||||||
// now put aux info
|
|
||||||
|
|
||||||
// put a .ef
|
|
||||||
|
|
||||||
// now put aux info
|
|
||||||
|
|
||||||
} else {
|
|
||||||
n += 2;
|
|
||||||
}
|
|
||||||
|
|
||||||
p++;
|
|
||||||
}
|
|
||||||
|
|
||||||
return n; // total number of symbols
|
|
||||||
}
|
|
||||||
|
|
||||||
int OutputTheSection(Section* sect)
|
|
||||||
{
|
|
||||||
const char* s = sect->name;
|
|
||||||
|
|
||||||
if (!strcmp(s, ".text"))
|
|
||||||
return 1;
|
|
||||||
else if (!strcmp(s, ".data"))
|
|
||||||
return 1;
|
|
||||||
else
|
|
||||||
return 0;
|
|
||||||
}
|
|
||||||
|
|
||||||
short int GetCoffFlags(const char* s)
|
|
||||||
{
|
|
||||||
if (!strcmp(s, ".text"))
|
|
||||||
return STYP_TEXT | STYP_DATA | STYP_ALIGN | 0x400;
|
|
||||||
else if (!strcmp(s, ".data"))
|
|
||||||
return STYP_DATA;
|
|
||||||
else if (!strcmp(s, ".bss"))
|
|
||||||
return STYP_BSS;
|
|
||||||
else if (!strcmp(s, ".stack"))
|
|
||||||
return STYP_BSS | STYP_ALIGN | 0x200;
|
|
||||||
else if (!strcmp(s, ".cinit"))
|
|
||||||
return STYP_COPY | STYP_DATA | STYP_ALIGN | 0x200;
|
|
||||||
else
|
|
||||||
return 0;
|
|
||||||
}
|
|
||||||
|
|
||||||
Section* FindSection(TCCState* s1, const char* sname)
|
|
||||||
{
|
|
||||||
Section* s;
|
|
||||||
int i;
|
|
||||||
|
|
||||||
for (i = 1; i < s1->nb_sections; i++) {
|
|
||||||
s = s1->sections[i];
|
|
||||||
|
|
||||||
if (!strcmp(sname, s->name))
|
|
||||||
return s;
|
|
||||||
}
|
|
||||||
|
|
||||||
tcc_error("could not find section %s", sname);
|
|
||||||
return 0;
|
|
||||||
}
|
|
||||||
|
|
||||||
ST_FUNC int tcc_load_coff(TCCState* s1, int fd)
|
|
||||||
{
|
|
||||||
// tktk TokenSym *ts;
|
|
||||||
|
|
||||||
FILE* f;
|
|
||||||
unsigned int str_size;
|
|
||||||
char* Coff_str_table, *name;
|
|
||||||
int i, k;
|
|
||||||
struct syment csym;
|
|
||||||
char name2[9];
|
|
||||||
FILHDR file_hdr; /* FILE HEADER STRUCTURE */
|
|
||||||
|
|
||||||
f = fdopen(fd, "rb");
|
|
||||||
if (!f) {
|
|
||||||
tcc_error("Unable to open .out file for input");
|
|
||||||
}
|
|
||||||
|
|
||||||
if (fread(&file_hdr, FILHSZ, 1, f) != 1)
|
|
||||||
tcc_error("error reading .out file for input");
|
|
||||||
|
|
||||||
if (fread(&o_filehdr, sizeof(o_filehdr), 1, f) != 1)
|
|
||||||
tcc_error("error reading .out file for input");
|
|
||||||
|
|
||||||
// first read the string table
|
|
||||||
|
|
||||||
if (fseek(f, file_hdr.f_symptr + file_hdr.f_nsyms * SYMESZ, SEEK_SET))
|
|
||||||
tcc_error("error reading .out file for input");
|
|
||||||
|
|
||||||
if (fread(&str_size, sizeof(int), 1, f) != 1)
|
|
||||||
tcc_error("error reading .out file for input");
|
|
||||||
|
|
||||||
Coff_str_table = (char*)tcc_malloc(str_size);
|
|
||||||
|
|
||||||
if (fread(Coff_str_table, str_size - 4, 1, f) != 1)
|
|
||||||
tcc_error("error reading .out file for input");
|
|
||||||
|
|
||||||
// read/process all the symbols
|
|
||||||
|
|
||||||
// seek back to symbols
|
|
||||||
|
|
||||||
if (fseek(f, file_hdr.f_symptr, SEEK_SET))
|
|
||||||
tcc_error("error reading .out file for input");
|
|
||||||
|
|
||||||
for (i = 0; i < file_hdr.f_nsyms; i++) {
|
|
||||||
if (fread(&csym, SYMESZ, 1, f) != 1)
|
|
||||||
tcc_error("error reading .out file for input");
|
|
||||||
|
|
||||||
if (csym._n._n_n._n_zeroes == 0) {
|
|
||||||
name = Coff_str_table + csym._n._n_n._n_offset - 4;
|
|
||||||
} else {
|
|
||||||
name = csym._n._n_name;
|
|
||||||
|
|
||||||
if (name[7] != 0) {
|
|
||||||
for (k = 0; k < 8; k++)
|
|
||||||
name2[k] = name[k];
|
|
||||||
|
|
||||||
name2[8] = 0;
|
|
||||||
|
|
||||||
name = name2;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
// if (strcmp("_DAC_Buffer",name)==0) // tktk
|
|
||||||
// name[0]=0;
|
|
||||||
|
|
||||||
if (((csym.n_type & 0x30) == 0x20 && csym.n_sclass == 0x2) ||
|
|
||||||
((csym.n_type & 0x30) == 0x30 && csym.n_sclass == 0x2) ||
|
|
||||||
(csym.n_type == 0x4 && csym.n_sclass == 0x2) ||
|
|
||||||
(csym.n_type == 0x8 && csym.n_sclass == 0x2) || // structures
|
|
||||||
(csym.n_type == 0x18 &&
|
|
||||||
csym.n_sclass == 0x2) || // pointer to structure
|
|
||||||
(csym.n_type == 0x7 && csym.n_sclass == 0x2) || // doubles
|
|
||||||
(csym.n_type == 0x6 && csym.n_sclass == 0x2)) // floats
|
|
||||||
{
|
|
||||||
// strip off any leading underscore (except for other main routine)
|
|
||||||
|
|
||||||
if (name[0] == '_' && strcmp(name, "_main") != 0)
|
|
||||||
name++;
|
|
||||||
|
|
||||||
tcc_add_symbol(s1, name, (void*)(uintptr_t)csym.n_value);
|
|
||||||
}
|
|
||||||
// skip any aux records
|
|
||||||
|
|
||||||
if (csym.n_numaux == 1) {
|
|
||||||
if (fread(&csym, SYMESZ, 1, f) != 1)
|
|
||||||
tcc_error("error reading .out file for input");
|
|
||||||
i++;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
return 0;
|
|
||||||
}
|
|
|
@ -293,20 +293,20 @@
|
||||||
|
|
||||||
#define TARGET_DEFS_ONLY
|
#define TARGET_DEFS_ONLY
|
||||||
#ifdef TCC_TARGET_I386
|
#ifdef TCC_TARGET_I386
|
||||||
# include "x86/i386-gen.c"
|
# include "i386-gen.c"
|
||||||
#endif
|
#endif
|
||||||
#ifdef TCC_TARGET_X86_64
|
#ifdef TCC_TARGET_X86_64
|
||||||
# include "x86/x86_64-gen.c"
|
# include "x86_64-gen.c"
|
||||||
#endif
|
#endif
|
||||||
#ifdef TCC_TARGET_ARM
|
#ifdef TCC_TARGET_ARM
|
||||||
# include "arm/arm-gen.c"
|
# include "arm-gen.c"
|
||||||
#endif
|
#endif
|
||||||
#ifdef TCC_TARGET_ARM64
|
#ifdef TCC_TARGET_ARM64
|
||||||
# include "arm/arm64-gen.c"
|
# include "arm64-gen.c"
|
||||||
#endif
|
#endif
|
||||||
#ifdef TCC_TARGET_C67
|
#ifdef TCC_TARGET_C67
|
||||||
# include "coff.h"
|
# include "coff.h"
|
||||||
# include "tms320c67c67-gen.c"
|
# include "c67-gen.c"
|
||||||
#endif
|
#endif
|
||||||
#undef TARGET_DEFS_ONLY
|
#undef TARGET_DEFS_ONLY
|
||||||
|
|
|
@ -92,10 +92,10 @@ static void asm_expr_unary(TCCState *s1, ExprValue *pe)
|
||||||
break;
|
break;
|
||||||
case TOK_CCHAR:
|
case TOK_CCHAR:
|
||||||
case TOK_LCHAR:
|
case TOK_LCHAR:
|
||||||
pe->v = tokc.i;
|
pe->v = tokc.i;
|
||||||
pe->sym = NULL;
|
pe->sym = NULL;
|
||||||
next();
|
next();
|
||||||
break;
|
break;
|
||||||
case '(':
|
case '(':
|
||||||
next();
|
next();
|
||||||
asm_expr(s1, pe);
|
asm_expr(s1, pe);
|
||||||
|
@ -492,25 +492,25 @@ static void asm_parse_directive(TCCState *s1)
|
||||||
case TOK_ASM_global:
|
case TOK_ASM_global:
|
||||||
case TOK_ASM_weak:
|
case TOK_ASM_weak:
|
||||||
case TOK_ASM_hidden:
|
case TOK_ASM_hidden:
|
||||||
tok1 = tok;
|
tok1 = tok;
|
||||||
do {
|
do {
|
||||||
Sym *sym;
|
Sym *sym;
|
||||||
|
|
||||||
next();
|
next();
|
||||||
sym = label_find(tok);
|
sym = label_find(tok);
|
||||||
if (!sym) {
|
if (!sym) {
|
||||||
sym = label_push(&s1->asm_labels, tok, 0);
|
sym = label_push(&s1->asm_labels, tok, 0);
|
||||||
sym->type.t = VT_VOID;
|
sym->type.t = VT_VOID;
|
||||||
}
|
}
|
||||||
if (tok1 != TOK_ASM_hidden)
|
if (tok1 != TOK_ASM_hidden)
|
||||||
sym->type.t &= ~VT_STATIC;
|
sym->type.t &= ~VT_STATIC;
|
||||||
if (tok1 == TOK_ASM_weak)
|
if (tok1 == TOK_ASM_weak)
|
||||||
sym->type.t |= VT_WEAK;
|
sym->type.t |= VT_WEAK;
|
||||||
else if (tok1 == TOK_ASM_hidden)
|
else if (tok1 == TOK_ASM_hidden)
|
||||||
sym->type.t |= STV_HIDDEN << VT_VIS_SHIFT;
|
sym->type.t |= STV_HIDDEN << VT_VIS_SHIFT;
|
||||||
next();
|
next();
|
||||||
} while (tok == ',');
|
} while (tok == ',');
|
||||||
break;
|
break;
|
||||||
case TOK_ASM_string:
|
case TOK_ASM_string:
|
||||||
case TOK_ASM_ascii:
|
case TOK_ASM_ascii:
|
||||||
case TOK_ASM_asciz:
|
case TOK_ASM_asciz:
|
||||||
|
@ -536,24 +536,24 @@ static void asm_parse_directive(TCCState *s1)
|
||||||
break;
|
break;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
case TOK_ASM_text:
|
case TOK_ASM_text:
|
||||||
case TOK_ASM_data:
|
case TOK_ASM_data:
|
||||||
case TOK_ASM_bss:
|
case TOK_ASM_bss:
|
||||||
{
|
{
|
||||||
char sname[64];
|
char sname[64];
|
||||||
tok1 = tok;
|
tok1 = tok;
|
||||||
n = 0;
|
n = 0;
|
||||||
next();
|
next();
|
||||||
if (tok != ';' && tok != TOK_LINEFEED) {
|
if (tok != ';' && tok != TOK_LINEFEED) {
|
||||||
n = asm_int_expr(s1);
|
n = asm_int_expr(s1);
|
||||||
next();
|
next();
|
||||||
}
|
}
|
||||||
sprintf(sname, (n?".%s%d":".%s"), get_tok_str(tok1, NULL), n);
|
sprintf(sname, (n?".%s%d":".%s"), get_tok_str(tok1, NULL), n);
|
||||||
use_section(s1, sname);
|
use_section(s1, sname);
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
case TOK_ASM_file:
|
case TOK_ASM_file:
|
||||||
{
|
{
|
||||||
char filename[512];
|
char filename[512];
|
|
@ -0,0 +1,948 @@
|
||||||
|
/*
|
||||||
|
* COFF file handling for TCC
|
||||||
|
*
|
||||||
|
* Copyright (c) 2003, 2004 TK
|
||||||
|
* Copyright (c) 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
|
||||||
|
*/
|
||||||
|
|
||||||
|
#include "tcc.h"
|
||||||
|
|
||||||
|
#define MAXNSCNS 255 /* MAXIMUM NUMBER OF SECTIONS */
|
||||||
|
#define MAX_STR_TABLE 1000000
|
||||||
|
AOUTHDR o_filehdr; /* OPTIONAL (A.OUT) FILE HEADER */
|
||||||
|
|
||||||
|
SCNHDR section_header[MAXNSCNS];
|
||||||
|
|
||||||
|
#define MAX_FUNCS 1000
|
||||||
|
#define MAX_FUNC_NAME_LENGTH 128
|
||||||
|
|
||||||
|
int nFuncs;
|
||||||
|
char Func[MAX_FUNCS][MAX_FUNC_NAME_LENGTH];
|
||||||
|
char AssociatedFile[MAX_FUNCS][MAX_FUNC_NAME_LENGTH];
|
||||||
|
int LineNoFilePtr[MAX_FUNCS];
|
||||||
|
int EndAddress[MAX_FUNCS];
|
||||||
|
int LastLineNo[MAX_FUNCS];
|
||||||
|
int FuncEntries[MAX_FUNCS];
|
||||||
|
|
||||||
|
int OutputTheSection(Section * sect);
|
||||||
|
short int GetCoffFlags(const char *s);
|
||||||
|
void SortSymbolTable(void);
|
||||||
|
Section *FindSection(TCCState * s1, const char *sname);
|
||||||
|
|
||||||
|
int C67_main_entry_point;
|
||||||
|
|
||||||
|
int FindCoffSymbolIndex(const char *func_name);
|
||||||
|
int nb_syms;
|
||||||
|
|
||||||
|
typedef struct {
|
||||||
|
long tag;
|
||||||
|
long size;
|
||||||
|
long fileptr;
|
||||||
|
long nextsym;
|
||||||
|
short int dummy;
|
||||||
|
} AUXFUNC;
|
||||||
|
|
||||||
|
typedef struct {
|
||||||
|
long regmask;
|
||||||
|
unsigned short lineno;
|
||||||
|
unsigned short nentries;
|
||||||
|
int localframe;
|
||||||
|
int nextentry;
|
||||||
|
short int dummy;
|
||||||
|
} AUXBF;
|
||||||
|
|
||||||
|
typedef struct {
|
||||||
|
long dummy;
|
||||||
|
unsigned short lineno;
|
||||||
|
unsigned short dummy1;
|
||||||
|
int dummy2;
|
||||||
|
int dummy3;
|
||||||
|
unsigned short dummy4;
|
||||||
|
} AUXEF;
|
||||||
|
|
||||||
|
ST_FUNC int tcc_output_coff(TCCState *s1, FILE *f)
|
||||||
|
{
|
||||||
|
Section *tcc_sect;
|
||||||
|
SCNHDR *coff_sec;
|
||||||
|
int file_pointer;
|
||||||
|
char *Coff_str_table, *pCoff_str_table;
|
||||||
|
int CoffTextSectionNo, coff_nb_syms;
|
||||||
|
FILHDR file_hdr; /* FILE HEADER STRUCTURE */
|
||||||
|
Section *stext, *sdata, *sbss;
|
||||||
|
int i, NSectionsToOutput = 0;
|
||||||
|
|
||||||
|
Coff_str_table = pCoff_str_table = NULL;
|
||||||
|
|
||||||
|
stext = FindSection(s1, ".text");
|
||||||
|
sdata = FindSection(s1, ".data");
|
||||||
|
sbss = FindSection(s1, ".bss");
|
||||||
|
|
||||||
|
nb_syms = symtab_section->data_offset / sizeof(Elf32_Sym);
|
||||||
|
coff_nb_syms = FindCoffSymbolIndex("XXXXXXXXXX1");
|
||||||
|
|
||||||
|
file_hdr.f_magic = COFF_C67_MAGIC; /* magic number */
|
||||||
|
file_hdr.f_timdat = 0; /* time & date stamp */
|
||||||
|
file_hdr.f_opthdr = sizeof(AOUTHDR); /* sizeof(optional hdr) */
|
||||||
|
file_hdr.f_flags = 0x1143; /* flags (copied from what code composer does) */
|
||||||
|
file_hdr.f_TargetID = 0x99; /* for C6x = 0x0099 */
|
||||||
|
|
||||||
|
o_filehdr.magic = 0x0108; /* see magic.h */
|
||||||
|
o_filehdr.vstamp = 0x0190; /* version stamp */
|
||||||
|
o_filehdr.tsize = stext->data_offset; /* text size in bytes, padded to FW bdry */
|
||||||
|
o_filehdr.dsize = sdata->data_offset; /* initialized data " " */
|
||||||
|
o_filehdr.bsize = sbss->data_offset; /* uninitialized data " " */
|
||||||
|
o_filehdr.entrypt = C67_main_entry_point; /* entry pt. */
|
||||||
|
o_filehdr.text_start = stext->sh_addr; /* base of text used for this file */
|
||||||
|
o_filehdr.data_start = sdata->sh_addr; /* base of data used for this file */
|
||||||
|
|
||||||
|
|
||||||
|
// create all the section headers
|
||||||
|
|
||||||
|
file_pointer = FILHSZ + sizeof(AOUTHDR);
|
||||||
|
|
||||||
|
CoffTextSectionNo = -1;
|
||||||
|
|
||||||
|
for (i = 1; i < s1->nb_sections; i++) {
|
||||||
|
coff_sec = §ion_header[i];
|
||||||
|
tcc_sect = s1->sections[i];
|
||||||
|
|
||||||
|
if (OutputTheSection(tcc_sect)) {
|
||||||
|
NSectionsToOutput++;
|
||||||
|
|
||||||
|
if (CoffTextSectionNo == -1 && tcc_sect == stext)
|
||||||
|
CoffTextSectionNo = NSectionsToOutput; // rem which coff sect number the .text sect is
|
||||||
|
|
||||||
|
strcpy(coff_sec->s_name, tcc_sect->name); /* section name */
|
||||||
|
|
||||||
|
coff_sec->s_paddr = tcc_sect->sh_addr; /* physical address */
|
||||||
|
coff_sec->s_vaddr = tcc_sect->sh_addr; /* virtual address */
|
||||||
|
coff_sec->s_size = tcc_sect->data_offset; /* section size */
|
||||||
|
coff_sec->s_scnptr = 0; /* file ptr to raw data for section */
|
||||||
|
coff_sec->s_relptr = 0; /* file ptr to relocation */
|
||||||
|
coff_sec->s_lnnoptr = 0; /* file ptr to line numbers */
|
||||||
|
coff_sec->s_nreloc = 0; /* number of relocation entries */
|
||||||
|
coff_sec->s_flags = GetCoffFlags(coff_sec->s_name); /* flags */
|
||||||
|
coff_sec->s_reserved = 0; /* reserved byte */
|
||||||
|
coff_sec->s_page = 0; /* memory page id */
|
||||||
|
|
||||||
|
file_pointer += sizeof(SCNHDR);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
file_hdr.f_nscns = NSectionsToOutput; /* number of sections */
|
||||||
|
|
||||||
|
// now loop through and determine file pointer locations
|
||||||
|
// for the raw data
|
||||||
|
|
||||||
|
|
||||||
|
for (i = 1; i < s1->nb_sections; i++) {
|
||||||
|
coff_sec = §ion_header[i];
|
||||||
|
tcc_sect = s1->sections[i];
|
||||||
|
|
||||||
|
if (OutputTheSection(tcc_sect)) {
|
||||||
|
// put raw data
|
||||||
|
coff_sec->s_scnptr = file_pointer; /* file ptr to raw data for section */
|
||||||
|
file_pointer += coff_sec->s_size;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// now loop through and determine file pointer locations
|
||||||
|
// for the relocation data
|
||||||
|
|
||||||
|
for (i = 1; i < s1->nb_sections; i++) {
|
||||||
|
coff_sec = §ion_header[i];
|
||||||
|
tcc_sect = s1->sections[i];
|
||||||
|
|
||||||
|
if (OutputTheSection(tcc_sect)) {
|
||||||
|
// put relocations data
|
||||||
|
if (coff_sec->s_nreloc > 0) {
|
||||||
|
coff_sec->s_relptr = file_pointer; /* file ptr to relocation */
|
||||||
|
file_pointer += coff_sec->s_nreloc * sizeof(struct reloc);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// now loop through and determine file pointer locations
|
||||||
|
// for the line number data
|
||||||
|
|
||||||
|
for (i = 1; i < s1->nb_sections; i++) {
|
||||||
|
coff_sec = §ion_header[i];
|
||||||
|
tcc_sect = s1->sections[i];
|
||||||
|
|
||||||
|
coff_sec->s_nlnno = 0;
|
||||||
|
coff_sec->s_lnnoptr = 0;
|
||||||
|
|
||||||
|
if (s1->do_debug && tcc_sect == stext) {
|
||||||
|
// count how many line nos data
|
||||||
|
|
||||||
|
// also find association between source file name and function
|
||||||
|
// so we can sort the symbol table
|
||||||
|
|
||||||
|
|
||||||
|
Stab_Sym *sym, *sym_end;
|
||||||
|
char func_name[MAX_FUNC_NAME_LENGTH],
|
||||||
|
last_func_name[MAX_FUNC_NAME_LENGTH];
|
||||||
|
unsigned long func_addr, last_pc, pc;
|
||||||
|
const char *incl_files[INCLUDE_STACK_SIZE];
|
||||||
|
int incl_index, len, last_line_num;
|
||||||
|
const char *str, *p;
|
||||||
|
|
||||||
|
coff_sec->s_lnnoptr = file_pointer; /* file ptr to linno */
|
||||||
|
|
||||||
|
|
||||||
|
func_name[0] = '\0';
|
||||||
|
func_addr = 0;
|
||||||
|
incl_index = 0;
|
||||||
|
last_func_name[0] = '\0';
|
||||||
|
last_pc = 0xffffffff;
|
||||||
|
last_line_num = 1;
|
||||||
|
sym = (Stab_Sym *) stab_section->data + 1;
|
||||||
|
sym_end =
|
||||||
|
(Stab_Sym *) (stab_section->data +
|
||||||
|
stab_section->data_offset);
|
||||||
|
|
||||||
|
nFuncs = 0;
|
||||||
|
while (sym < sym_end) {
|
||||||
|
switch (sym->n_type) {
|
||||||
|
/* function start or end */
|
||||||
|
case N_FUN:
|
||||||
|
if (sym->n_strx == 0) {
|
||||||
|
// end of function
|
||||||
|
|
||||||
|
coff_sec->s_nlnno++;
|
||||||
|
file_pointer += LINESZ;
|
||||||
|
|
||||||
|
pc = sym->n_value + func_addr;
|
||||||
|
func_name[0] = '\0';
|
||||||
|
func_addr = 0;
|
||||||
|
EndAddress[nFuncs] = pc;
|
||||||
|
FuncEntries[nFuncs] =
|
||||||
|
(file_pointer -
|
||||||
|
LineNoFilePtr[nFuncs]) / LINESZ - 1;
|
||||||
|
LastLineNo[nFuncs++] = last_line_num + 1;
|
||||||
|
} else {
|
||||||
|
// beginning of function
|
||||||
|
|
||||||
|
LineNoFilePtr[nFuncs] = file_pointer;
|
||||||
|
coff_sec->s_nlnno++;
|
||||||
|
file_pointer += LINESZ;
|
||||||
|
|
||||||
|
str =
|
||||||
|
(const char *) stabstr_section->data +
|
||||||
|
sym->n_strx;
|
||||||
|
|
||||||
|
p = strchr(str, ':');
|
||||||
|
if (!p) {
|
||||||
|
pstrcpy(func_name, sizeof(func_name), str);
|
||||||
|
pstrcpy(Func[nFuncs], sizeof(func_name), str);
|
||||||
|
} else {
|
||||||
|
len = p - str;
|
||||||
|
if (len > sizeof(func_name) - 1)
|
||||||
|
len = sizeof(func_name) - 1;
|
||||||
|
memcpy(func_name, str, len);
|
||||||
|
memcpy(Func[nFuncs], str, len);
|
||||||
|
func_name[len] = '\0';
|
||||||
|
}
|
||||||
|
|
||||||
|
// save the file that it came in so we can sort later
|
||||||
|
pstrcpy(AssociatedFile[nFuncs], sizeof(func_name),
|
||||||
|
incl_files[incl_index - 1]);
|
||||||
|
|
||||||
|
func_addr = sym->n_value;
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
|
||||||
|
/* line number info */
|
||||||
|
case N_SLINE:
|
||||||
|
pc = sym->n_value + func_addr;
|
||||||
|
|
||||||
|
last_pc = pc;
|
||||||
|
last_line_num = sym->n_desc;
|
||||||
|
|
||||||
|
/* XXX: slow! */
|
||||||
|
strcpy(last_func_name, func_name);
|
||||||
|
|
||||||
|
coff_sec->s_nlnno++;
|
||||||
|
file_pointer += LINESZ;
|
||||||
|
break;
|
||||||
|
/* include files */
|
||||||
|
case N_BINCL:
|
||||||
|
str =
|
||||||
|
(const char *) stabstr_section->data + sym->n_strx;
|
||||||
|
add_incl:
|
||||||
|
if (incl_index < INCLUDE_STACK_SIZE) {
|
||||||
|
incl_files[incl_index++] = str;
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
case N_EINCL:
|
||||||
|
if (incl_index > 1)
|
||||||
|
incl_index--;
|
||||||
|
break;
|
||||||
|
case N_SO:
|
||||||
|
if (sym->n_strx == 0) {
|
||||||
|
incl_index = 0; /* end of translation unit */
|
||||||
|
} else {
|
||||||
|
str =
|
||||||
|
(const char *) stabstr_section->data +
|
||||||
|
sym->n_strx;
|
||||||
|
/* do not add path */
|
||||||
|
len = strlen(str);
|
||||||
|
if (len > 0 && str[len - 1] != '/')
|
||||||
|
goto add_incl;
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
sym++;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
file_hdr.f_symptr = file_pointer; /* file pointer to symtab */
|
||||||
|
|
||||||
|
if (s1->do_debug)
|
||||||
|
file_hdr.f_nsyms = coff_nb_syms; /* number of symtab entries */
|
||||||
|
else
|
||||||
|
file_hdr.f_nsyms = 0;
|
||||||
|
|
||||||
|
file_pointer += file_hdr.f_nsyms * SYMNMLEN;
|
||||||
|
|
||||||
|
// OK now we are all set to write the file
|
||||||
|
|
||||||
|
|
||||||
|
fwrite(&file_hdr, FILHSZ, 1, f);
|
||||||
|
fwrite(&o_filehdr, sizeof(o_filehdr), 1, f);
|
||||||
|
|
||||||
|
// write section headers
|
||||||
|
for (i = 1; i < s1->nb_sections; i++) {
|
||||||
|
coff_sec = §ion_header[i];
|
||||||
|
tcc_sect = s1->sections[i];
|
||||||
|
|
||||||
|
if (OutputTheSection(tcc_sect)) {
|
||||||
|
fwrite(coff_sec, sizeof(SCNHDR), 1, f);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// write raw data
|
||||||
|
for (i = 1; i < s1->nb_sections; i++) {
|
||||||
|
coff_sec = §ion_header[i];
|
||||||
|
tcc_sect = s1->sections[i];
|
||||||
|
|
||||||
|
if (OutputTheSection(tcc_sect)) {
|
||||||
|
fwrite(tcc_sect->data, tcc_sect->data_offset, 1, f);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// write relocation data
|
||||||
|
for (i = 1; i < s1->nb_sections; i++) {
|
||||||
|
coff_sec = §ion_header[i];
|
||||||
|
tcc_sect = s1->sections[i];
|
||||||
|
|
||||||
|
if (OutputTheSection(tcc_sect)) {
|
||||||
|
// put relocations data
|
||||||
|
if (coff_sec->s_nreloc > 0) {
|
||||||
|
fwrite(tcc_sect->reloc,
|
||||||
|
coff_sec->s_nreloc * sizeof(struct reloc), 1, f);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
// group the symbols in order of filename, func1, func2, etc
|
||||||
|
// finally global symbols
|
||||||
|
|
||||||
|
if (s1->do_debug)
|
||||||
|
SortSymbolTable();
|
||||||
|
|
||||||
|
// write line no data
|
||||||
|
|
||||||
|
for (i = 1; i < s1->nb_sections; i++) {
|
||||||
|
coff_sec = §ion_header[i];
|
||||||
|
tcc_sect = s1->sections[i];
|
||||||
|
|
||||||
|
if (s1->do_debug && tcc_sect == stext) {
|
||||||
|
// count how many line nos data
|
||||||
|
|
||||||
|
|
||||||
|
Stab_Sym *sym, *sym_end;
|
||||||
|
char func_name[128], last_func_name[128];
|
||||||
|
unsigned long func_addr, last_pc, pc;
|
||||||
|
const char *incl_files[INCLUDE_STACK_SIZE];
|
||||||
|
int incl_index, len, last_line_num;
|
||||||
|
const char *str, *p;
|
||||||
|
|
||||||
|
LINENO CoffLineNo;
|
||||||
|
|
||||||
|
func_name[0] = '\0';
|
||||||
|
func_addr = 0;
|
||||||
|
incl_index = 0;
|
||||||
|
last_func_name[0] = '\0';
|
||||||
|
last_pc = 0;
|
||||||
|
last_line_num = 1;
|
||||||
|
sym = (Stab_Sym *) stab_section->data + 1;
|
||||||
|
sym_end =
|
||||||
|
(Stab_Sym *) (stab_section->data +
|
||||||
|
stab_section->data_offset);
|
||||||
|
|
||||||
|
while (sym < sym_end) {
|
||||||
|
switch (sym->n_type) {
|
||||||
|
/* function start or end */
|
||||||
|
case N_FUN:
|
||||||
|
if (sym->n_strx == 0) {
|
||||||
|
// end of function
|
||||||
|
|
||||||
|
CoffLineNo.l_addr.l_paddr = last_pc;
|
||||||
|
CoffLineNo.l_lnno = last_line_num + 1;
|
||||||
|
fwrite(&CoffLineNo, 6, 1, f);
|
||||||
|
|
||||||
|
pc = sym->n_value + func_addr;
|
||||||
|
func_name[0] = '\0';
|
||||||
|
func_addr = 0;
|
||||||
|
} else {
|
||||||
|
// beginning of function
|
||||||
|
|
||||||
|
str =
|
||||||
|
(const char *) stabstr_section->data +
|
||||||
|
sym->n_strx;
|
||||||
|
|
||||||
|
|
||||||
|
p = strchr(str, ':');
|
||||||
|
if (!p) {
|
||||||
|
pstrcpy(func_name, sizeof(func_name), str);
|
||||||
|
} else {
|
||||||
|
len = p - str;
|
||||||
|
if (len > sizeof(func_name) - 1)
|
||||||
|
len = sizeof(func_name) - 1;
|
||||||
|
memcpy(func_name, str, len);
|
||||||
|
func_name[len] = '\0';
|
||||||
|
}
|
||||||
|
func_addr = sym->n_value;
|
||||||
|
last_pc = func_addr;
|
||||||
|
last_line_num = -1;
|
||||||
|
|
||||||
|
// output a function begin
|
||||||
|
|
||||||
|
CoffLineNo.l_addr.l_symndx =
|
||||||
|
FindCoffSymbolIndex(func_name);
|
||||||
|
CoffLineNo.l_lnno = 0;
|
||||||
|
|
||||||
|
fwrite(&CoffLineNo, 6, 1, f);
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
|
||||||
|
/* line number info */
|
||||||
|
case N_SLINE:
|
||||||
|
pc = sym->n_value + func_addr;
|
||||||
|
|
||||||
|
|
||||||
|
/* XXX: slow! */
|
||||||
|
strcpy(last_func_name, func_name);
|
||||||
|
|
||||||
|
// output a line reference
|
||||||
|
|
||||||
|
CoffLineNo.l_addr.l_paddr = last_pc;
|
||||||
|
|
||||||
|
if (last_line_num == -1) {
|
||||||
|
CoffLineNo.l_lnno = sym->n_desc;
|
||||||
|
} else {
|
||||||
|
CoffLineNo.l_lnno = last_line_num + 1;
|
||||||
|
}
|
||||||
|
|
||||||
|
fwrite(&CoffLineNo, 6, 1, f);
|
||||||
|
|
||||||
|
last_pc = pc;
|
||||||
|
last_line_num = sym->n_desc;
|
||||||
|
|
||||||
|
break;
|
||||||
|
|
||||||
|
/* include files */
|
||||||
|
case N_BINCL:
|
||||||
|
str =
|
||||||
|
(const char *) stabstr_section->data + sym->n_strx;
|
||||||
|
add_incl2:
|
||||||
|
if (incl_index < INCLUDE_STACK_SIZE) {
|
||||||
|
incl_files[incl_index++] = str;
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
case N_EINCL:
|
||||||
|
if (incl_index > 1)
|
||||||
|
incl_index--;
|
||||||
|
break;
|
||||||
|
case N_SO:
|
||||||
|
if (sym->n_strx == 0) {
|
||||||
|
incl_index = 0; /* end of translation unit */
|
||||||
|
} else {
|
||||||
|
str =
|
||||||
|
(const char *) stabstr_section->data +
|
||||||
|
sym->n_strx;
|
||||||
|
/* do not add path */
|
||||||
|
len = strlen(str);
|
||||||
|
if (len > 0 && str[len - 1] != '/')
|
||||||
|
goto add_incl2;
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
sym++;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// write symbol table
|
||||||
|
if (s1->do_debug) {
|
||||||
|
int k;
|
||||||
|
struct syment csym;
|
||||||
|
AUXFUNC auxfunc;
|
||||||
|
AUXBF auxbf;
|
||||||
|
AUXEF auxef;
|
||||||
|
int i;
|
||||||
|
Elf32_Sym *p;
|
||||||
|
const char *name;
|
||||||
|
int nstr;
|
||||||
|
int n = 0;
|
||||||
|
|
||||||
|
Coff_str_table = (char *) tcc_malloc(MAX_STR_TABLE);
|
||||||
|
pCoff_str_table = Coff_str_table;
|
||||||
|
nstr = 0;
|
||||||
|
|
||||||
|
p = (Elf32_Sym *) symtab_section->data;
|
||||||
|
|
||||||
|
|
||||||
|
for (i = 0; i < nb_syms; i++) {
|
||||||
|
|
||||||
|
name = symtab_section->link->data + p->st_name;
|
||||||
|
|
||||||
|
for (k = 0; k < 8; k++)
|
||||||
|
csym._n._n_name[k] = 0;
|
||||||
|
|
||||||
|
if (strlen(name) <= 8) {
|
||||||
|
strcpy(csym._n._n_name, name);
|
||||||
|
} else {
|
||||||
|
if (pCoff_str_table - Coff_str_table + strlen(name) >
|
||||||
|
MAX_STR_TABLE - 1)
|
||||||
|
tcc_error("String table too large");
|
||||||
|
|
||||||
|
csym._n._n_n._n_zeroes = 0;
|
||||||
|
csym._n._n_n._n_offset =
|
||||||
|
pCoff_str_table - Coff_str_table + 4;
|
||||||
|
|
||||||
|
strcpy(pCoff_str_table, name);
|
||||||
|
pCoff_str_table += strlen(name) + 1; // skip over null
|
||||||
|
nstr++;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (p->st_info == 4) {
|
||||||
|
// put a filename symbol
|
||||||
|
csym.n_value = 33; // ?????
|
||||||
|
csym.n_scnum = N_DEBUG;
|
||||||
|
csym.n_type = 0;
|
||||||
|
csym.n_sclass = C_FILE;
|
||||||
|
csym.n_numaux = 0;
|
||||||
|
fwrite(&csym, 18, 1, f);
|
||||||
|
n++;
|
||||||
|
|
||||||
|
} else if (p->st_info == 0x12) {
|
||||||
|
// find the function data
|
||||||
|
|
||||||
|
for (k = 0; k < nFuncs; k++) {
|
||||||
|
if (strcmp(name, Func[k]) == 0)
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (k >= nFuncs) {
|
||||||
|
tcc_error("debug info can't find function: %s", name);
|
||||||
|
}
|
||||||
|
// put a Function Name
|
||||||
|
|
||||||
|
csym.n_value = p->st_value; // physical address
|
||||||
|
csym.n_scnum = CoffTextSectionNo;
|
||||||
|
csym.n_type = MKTYPE(T_INT, DT_FCN, 0, 0, 0, 0, 0);
|
||||||
|
csym.n_sclass = C_EXT;
|
||||||
|
csym.n_numaux = 1;
|
||||||
|
fwrite(&csym, 18, 1, f);
|
||||||
|
|
||||||
|
// now put aux info
|
||||||
|
|
||||||
|
auxfunc.tag = 0;
|
||||||
|
auxfunc.size = EndAddress[k] - p->st_value;
|
||||||
|
auxfunc.fileptr = LineNoFilePtr[k];
|
||||||
|
auxfunc.nextsym = n + 6; // tktk
|
||||||
|
auxfunc.dummy = 0;
|
||||||
|
fwrite(&auxfunc, 18, 1, f);
|
||||||
|
|
||||||
|
// put a .bf
|
||||||
|
|
||||||
|
strcpy(csym._n._n_name, ".bf");
|
||||||
|
csym.n_value = p->st_value; // physical address
|
||||||
|
csym.n_scnum = CoffTextSectionNo;
|
||||||
|
csym.n_type = 0;
|
||||||
|
csym.n_sclass = C_FCN;
|
||||||
|
csym.n_numaux = 1;
|
||||||
|
fwrite(&csym, 18, 1, f);
|
||||||
|
|
||||||
|
// now put aux info
|
||||||
|
|
||||||
|
auxbf.regmask = 0;
|
||||||
|
auxbf.lineno = 0;
|
||||||
|
auxbf.nentries = FuncEntries[k];
|
||||||
|
auxbf.localframe = 0;
|
||||||
|
auxbf.nextentry = n + 6;
|
||||||
|
auxbf.dummy = 0;
|
||||||
|
fwrite(&auxbf, 18, 1, f);
|
||||||
|
|
||||||
|
// put a .ef
|
||||||
|
|
||||||
|
strcpy(csym._n._n_name, ".ef");
|
||||||
|
csym.n_value = EndAddress[k]; // physical address
|
||||||
|
csym.n_scnum = CoffTextSectionNo;
|
||||||
|
csym.n_type = 0;
|
||||||
|
csym.n_sclass = C_FCN;
|
||||||
|
csym.n_numaux = 1;
|
||||||
|
fwrite(&csym, 18, 1, f);
|
||||||
|
|
||||||
|
// now put aux info
|
||||||
|
|
||||||
|
auxef.dummy = 0;
|
||||||
|
auxef.lineno = LastLineNo[k];
|
||||||
|
auxef.dummy1 = 0;
|
||||||
|
auxef.dummy2 = 0;
|
||||||
|
auxef.dummy3 = 0;
|
||||||
|
auxef.dummy4 = 0;
|
||||||
|
fwrite(&auxef, 18, 1, f);
|
||||||
|
|
||||||
|
n += 6;
|
||||||
|
|
||||||
|
} else {
|
||||||
|
// try an put some type info
|
||||||
|
|
||||||
|
if ((p->st_other & VT_BTYPE) == VT_DOUBLE) {
|
||||||
|
csym.n_type = T_DOUBLE; // int
|
||||||
|
csym.n_sclass = C_EXT;
|
||||||
|
} else if ((p->st_other & VT_BTYPE) == VT_FLOAT) {
|
||||||
|
csym.n_type = T_FLOAT;
|
||||||
|
csym.n_sclass = C_EXT;
|
||||||
|
} else if ((p->st_other & VT_BTYPE) == VT_INT) {
|
||||||
|
csym.n_type = T_INT; // int
|
||||||
|
csym.n_sclass = C_EXT;
|
||||||
|
} else if ((p->st_other & VT_BTYPE) == VT_SHORT) {
|
||||||
|
csym.n_type = T_SHORT;
|
||||||
|
csym.n_sclass = C_EXT;
|
||||||
|
} else if ((p->st_other & VT_BTYPE) == VT_BYTE) {
|
||||||
|
csym.n_type = T_CHAR;
|
||||||
|
csym.n_sclass = C_EXT;
|
||||||
|
} else {
|
||||||
|
csym.n_type = T_INT; // just mark as a label
|
||||||
|
csym.n_sclass = C_LABEL;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
csym.n_value = p->st_value;
|
||||||
|
csym.n_scnum = 2;
|
||||||
|
csym.n_numaux = 1;
|
||||||
|
fwrite(&csym, 18, 1, f);
|
||||||
|
|
||||||
|
auxfunc.tag = 0;
|
||||||
|
auxfunc.size = 0x20;
|
||||||
|
auxfunc.fileptr = 0;
|
||||||
|
auxfunc.nextsym = 0;
|
||||||
|
auxfunc.dummy = 0;
|
||||||
|
fwrite(&auxfunc, 18, 1, f);
|
||||||
|
n++;
|
||||||
|
n++;
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
p++;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if (s1->do_debug) {
|
||||||
|
// write string table
|
||||||
|
|
||||||
|
// first write the size
|
||||||
|
i = pCoff_str_table - Coff_str_table;
|
||||||
|
fwrite(&i, 4, 1, f);
|
||||||
|
|
||||||
|
// then write the strings
|
||||||
|
fwrite(Coff_str_table, i, 1, f);
|
||||||
|
|
||||||
|
tcc_free(Coff_str_table);
|
||||||
|
}
|
||||||
|
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
// group the symbols in order of filename, func1, func2, etc
|
||||||
|
// finally global symbols
|
||||||
|
|
||||||
|
void SortSymbolTable(void)
|
||||||
|
{
|
||||||
|
int i, j, k, n = 0;
|
||||||
|
Elf32_Sym *p, *p2, *NewTable;
|
||||||
|
char *name, *name2;
|
||||||
|
|
||||||
|
NewTable = (Elf32_Sym *) tcc_malloc(nb_syms * sizeof(Elf32_Sym));
|
||||||
|
|
||||||
|
p = (Elf32_Sym *) symtab_section->data;
|
||||||
|
|
||||||
|
|
||||||
|
// find a file symbol, copy it over
|
||||||
|
// then scan the whole symbol list and copy any function
|
||||||
|
// symbols that match the file association
|
||||||
|
|
||||||
|
for (i = 0; i < nb_syms; i++) {
|
||||||
|
if (p->st_info == 4) {
|
||||||
|
name = (char *) symtab_section->link->data + p->st_name;
|
||||||
|
|
||||||
|
// this is a file symbol, copy it over
|
||||||
|
|
||||||
|
NewTable[n++] = *p;
|
||||||
|
|
||||||
|
p2 = (Elf32_Sym *) symtab_section->data;
|
||||||
|
|
||||||
|
for (j = 0; j < nb_syms; j++) {
|
||||||
|
if (p2->st_info == 0x12) {
|
||||||
|
// this is a func symbol
|
||||||
|
|
||||||
|
name2 =
|
||||||
|
(char *) symtab_section->link->data + p2->st_name;
|
||||||
|
|
||||||
|
// find the function data index
|
||||||
|
|
||||||
|
for (k = 0; k < nFuncs; k++) {
|
||||||
|
if (strcmp(name2, Func[k]) == 0)
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (k >= nFuncs) {
|
||||||
|
tcc_error("debug (sort) info can't find function: %s", name2);
|
||||||
|
}
|
||||||
|
|
||||||
|
if (strcmp(AssociatedFile[k], name) == 0) {
|
||||||
|
// yes they match copy it over
|
||||||
|
|
||||||
|
NewTable[n++] = *p2;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
p2++;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
p++;
|
||||||
|
}
|
||||||
|
|
||||||
|
// now all the filename and func symbols should have been copied over
|
||||||
|
// copy all the rest over (all except file and funcs)
|
||||||
|
|
||||||
|
p = (Elf32_Sym *) symtab_section->data;
|
||||||
|
for (i = 0; i < nb_syms; i++) {
|
||||||
|
if (p->st_info != 4 && p->st_info != 0x12) {
|
||||||
|
NewTable[n++] = *p;
|
||||||
|
}
|
||||||
|
p++;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (n != nb_syms)
|
||||||
|
tcc_error("Internal Compiler error, debug info");
|
||||||
|
|
||||||
|
// copy it all back
|
||||||
|
|
||||||
|
p = (Elf32_Sym *) symtab_section->data;
|
||||||
|
for (i = 0; i < nb_syms; i++) {
|
||||||
|
*p++ = NewTable[i];
|
||||||
|
}
|
||||||
|
|
||||||
|
tcc_free(NewTable);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
int FindCoffSymbolIndex(const char *func_name)
|
||||||
|
{
|
||||||
|
int i, n = 0;
|
||||||
|
Elf32_Sym *p;
|
||||||
|
char *name;
|
||||||
|
|
||||||
|
p = (Elf32_Sym *) symtab_section->data;
|
||||||
|
|
||||||
|
for (i = 0; i < nb_syms; i++) {
|
||||||
|
|
||||||
|
name = (char *) symtab_section->link->data + p->st_name;
|
||||||
|
|
||||||
|
if (p->st_info == 4) {
|
||||||
|
// put a filename symbol
|
||||||
|
n++;
|
||||||
|
} else if (p->st_info == 0x12) {
|
||||||
|
|
||||||
|
if (strcmp(func_name, name) == 0)
|
||||||
|
return n;
|
||||||
|
|
||||||
|
n += 6;
|
||||||
|
|
||||||
|
// put a Function Name
|
||||||
|
|
||||||
|
// now put aux info
|
||||||
|
|
||||||
|
// put a .bf
|
||||||
|
|
||||||
|
// now put aux info
|
||||||
|
|
||||||
|
// put a .ef
|
||||||
|
|
||||||
|
// now put aux info
|
||||||
|
|
||||||
|
} else {
|
||||||
|
n += 2;
|
||||||
|
}
|
||||||
|
|
||||||
|
p++;
|
||||||
|
}
|
||||||
|
|
||||||
|
return n; // total number of symbols
|
||||||
|
}
|
||||||
|
|
||||||
|
int OutputTheSection(Section * sect)
|
||||||
|
{
|
||||||
|
const char *s = sect->name;
|
||||||
|
|
||||||
|
if (!strcmp(s, ".text"))
|
||||||
|
return 1;
|
||||||
|
else if (!strcmp(s, ".data"))
|
||||||
|
return 1;
|
||||||
|
else
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
short int GetCoffFlags(const char *s)
|
||||||
|
{
|
||||||
|
if (!strcmp(s, ".text"))
|
||||||
|
return STYP_TEXT | STYP_DATA | STYP_ALIGN | 0x400;
|
||||||
|
else if (!strcmp(s, ".data"))
|
||||||
|
return STYP_DATA;
|
||||||
|
else if (!strcmp(s, ".bss"))
|
||||||
|
return STYP_BSS;
|
||||||
|
else if (!strcmp(s, ".stack"))
|
||||||
|
return STYP_BSS | STYP_ALIGN | 0x200;
|
||||||
|
else if (!strcmp(s, ".cinit"))
|
||||||
|
return STYP_COPY | STYP_DATA | STYP_ALIGN | 0x200;
|
||||||
|
else
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
Section *FindSection(TCCState * s1, const char *sname)
|
||||||
|
{
|
||||||
|
Section *s;
|
||||||
|
int i;
|
||||||
|
|
||||||
|
for (i = 1; i < s1->nb_sections; i++) {
|
||||||
|
s = s1->sections[i];
|
||||||
|
|
||||||
|
if (!strcmp(sname, s->name))
|
||||||
|
return s;
|
||||||
|
}
|
||||||
|
|
||||||
|
tcc_error("could not find section %s", sname);
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
ST_FUNC int tcc_load_coff(TCCState * s1, int fd)
|
||||||
|
{
|
||||||
|
// tktk TokenSym *ts;
|
||||||
|
|
||||||
|
FILE *f;
|
||||||
|
unsigned int str_size;
|
||||||
|
char *Coff_str_table, *name;
|
||||||
|
int i, k;
|
||||||
|
struct syment csym;
|
||||||
|
char name2[9];
|
||||||
|
FILHDR file_hdr; /* FILE HEADER STRUCTURE */
|
||||||
|
|
||||||
|
f = fdopen(fd, "rb");
|
||||||
|
if (!f) {
|
||||||
|
tcc_error("Unable to open .out file for input");
|
||||||
|
}
|
||||||
|
|
||||||
|
if (fread(&file_hdr, FILHSZ, 1, f) != 1)
|
||||||
|
tcc_error("error reading .out file for input");
|
||||||
|
|
||||||
|
if (fread(&o_filehdr, sizeof(o_filehdr), 1, f) != 1)
|
||||||
|
tcc_error("error reading .out file for input");
|
||||||
|
|
||||||
|
// first read the string table
|
||||||
|
|
||||||
|
if (fseek(f, file_hdr.f_symptr + file_hdr.f_nsyms * SYMESZ, SEEK_SET))
|
||||||
|
tcc_error("error reading .out file for input");
|
||||||
|
|
||||||
|
if (fread(&str_size, sizeof(int), 1, f) != 1)
|
||||||
|
tcc_error("error reading .out file for input");
|
||||||
|
|
||||||
|
|
||||||
|
Coff_str_table = (char *) tcc_malloc(str_size);
|
||||||
|
|
||||||
|
if (fread(Coff_str_table, str_size - 4, 1, f) != 1)
|
||||||
|
tcc_error("error reading .out file for input");
|
||||||
|
|
||||||
|
// read/process all the symbols
|
||||||
|
|
||||||
|
// seek back to symbols
|
||||||
|
|
||||||
|
if (fseek(f, file_hdr.f_symptr, SEEK_SET))
|
||||||
|
tcc_error("error reading .out file for input");
|
||||||
|
|
||||||
|
for (i = 0; i < file_hdr.f_nsyms; i++) {
|
||||||
|
if (fread(&csym, SYMESZ, 1, f) != 1)
|
||||||
|
tcc_error("error reading .out file for input");
|
||||||
|
|
||||||
|
if (csym._n._n_n._n_zeroes == 0) {
|
||||||
|
name = Coff_str_table + csym._n._n_n._n_offset - 4;
|
||||||
|
} else {
|
||||||
|
name = csym._n._n_name;
|
||||||
|
|
||||||
|
if (name[7] != 0) {
|
||||||
|
for (k = 0; k < 8; k++)
|
||||||
|
name2[k] = name[k];
|
||||||
|
|
||||||
|
name2[8] = 0;
|
||||||
|
|
||||||
|
name = name2;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
// if (strcmp("_DAC_Buffer",name)==0) // tktk
|
||||||
|
// name[0]=0;
|
||||||
|
|
||||||
|
if (((csym.n_type & 0x30) == 0x20 && csym.n_sclass == 0x2) || ((csym.n_type & 0x30) == 0x30 && csym.n_sclass == 0x2) || (csym.n_type == 0x4 && csym.n_sclass == 0x2) || (csym.n_type == 0x8 && csym.n_sclass == 0x2) || // structures
|
||||||
|
(csym.n_type == 0x18 && csym.n_sclass == 0x2) || // pointer to structure
|
||||||
|
(csym.n_type == 0x7 && csym.n_sclass == 0x2) || // doubles
|
||||||
|
(csym.n_type == 0x6 && csym.n_sclass == 0x2)) // floats
|
||||||
|
{
|
||||||
|
// strip off any leading underscore (except for other main routine)
|
||||||
|
|
||||||
|
if (name[0] == '_' && strcmp(name, "_main") != 0)
|
||||||
|
name++;
|
||||||
|
|
||||||
|
tcc_add_symbol(s1, name, (void*)(uintptr_t)csym.n_value);
|
||||||
|
}
|
||||||
|
// skip any aux records
|
||||||
|
|
||||||
|
if (csym.n_numaux == 1) {
|
||||||
|
if (fread(&csym, SYMESZ, 1, f) != 1)
|
||||||
|
tcc_error("error reading .out file for input");
|
||||||
|
i++;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
return 0;
|
||||||
|
}
|
|
@ -451,7 +451,7 @@ ST_FUNC void relocate_syms(TCCState *s1, int do_resolve)
|
||||||
if (addr) {
|
if (addr) {
|
||||||
sym->st_value = (addr_t)addr;
|
sym->st_value = (addr_t)addr;
|
||||||
#ifdef DEBUG_RELOC
|
#ifdef DEBUG_RELOC
|
||||||
printf ("relocate_sym: %s -> 0x%lx\n", name, sym->st_value);
|
printf ("relocate_sym: %s -> 0x%lx\n", name, sym->st_value);
|
||||||
#endif
|
#endif
|
||||||
goto found;
|
goto found;
|
||||||
}
|
}
|
||||||
|
@ -580,10 +580,10 @@ ST_FUNC void relocate_section(TCCState *s1, Section *s)
|
||||||
{
|
{
|
||||||
int x, is_thumb, is_call, h, blx_avail, is_bl, th_ko;
|
int x, is_thumb, is_call, h, blx_avail, is_bl, th_ko;
|
||||||
x = (*(int *) ptr) & 0xffffff;
|
x = (*(int *) ptr) & 0xffffff;
|
||||||
if (sym->st_shndx == SHN_UNDEF)
|
if (sym->st_shndx == SHN_UNDEF)
|
||||||
val = s1->plt->sh_addr;
|
val = s1->plt->sh_addr;
|
||||||
#ifdef DEBUG_RELOC
|
#ifdef DEBUG_RELOC
|
||||||
printf ("reloc %d: x=0x%x val=0x%x ", type, x, val);
|
printf ("reloc %d: x=0x%x val=0x%x ", type, x, val);
|
||||||
#endif
|
#endif
|
||||||
(*(int *)ptr) &= 0xff000000;
|
(*(int *)ptr) &= 0xff000000;
|
||||||
if (x & 0x800000)
|
if (x & 0x800000)
|
||||||
|
@ -595,8 +595,8 @@ ST_FUNC void relocate_section(TCCState *s1, Section *s)
|
||||||
is_call = (type == R_ARM_CALL || (type == R_ARM_PC24 && is_bl));
|
is_call = (type == R_ARM_CALL || (type == R_ARM_PC24 && is_bl));
|
||||||
x += val - addr;
|
x += val - addr;
|
||||||
#ifdef DEBUG_RELOC
|
#ifdef DEBUG_RELOC
|
||||||
printf (" newx=0x%x name=%s\n", x,
|
printf (" newx=0x%x name=%s\n", x,
|
||||||
(char *) symtab_section->link->data + sym->st_name);
|
(char *) symtab_section->link->data + sym->st_name);
|
||||||
#endif
|
#endif
|
||||||
h = x & 2;
|
h = x & 2;
|
||||||
th_ko = (x & 3) && (!blx_avail || !is_call);
|
th_ko = (x & 3) && (!blx_avail || !is_call);
|
||||||
|
@ -797,21 +797,21 @@ ST_FUNC void relocate_section(TCCState *s1, Section *s)
|
||||||
break;
|
break;
|
||||||
case R_AARCH64_JUMP26:
|
case R_AARCH64_JUMP26:
|
||||||
case R_AARCH64_CALL26:
|
case R_AARCH64_CALL26:
|
||||||
/* This check must match the one in build_got_entries, testing
|
/* This check must match the one in build_got_entries, testing
|
||||||
if we really need a PLT slot. */
|
if we really need a PLT slot. */
|
||||||
if (sym->st_shndx == SHN_UNDEF)
|
if (sym->st_shndx == SHN_UNDEF)
|
||||||
/* We've put the PLT slot offset into r_addend when generating
|
/* We've put the PLT slot offset into r_addend when generating
|
||||||
it, and that's what we must use as relocation value (adjusted
|
it, and that's what we must use as relocation value (adjusted
|
||||||
by section offset of course). */
|
by section offset of course). */
|
||||||
val = s1->plt->sh_addr + rel->r_addend;
|
val = s1->plt->sh_addr + rel->r_addend;
|
||||||
#ifdef DEBUG_RELOC
|
#ifdef DEBUG_RELOC
|
||||||
printf ("reloc %d @ 0x%lx: val=0x%lx name=%s\n", type, addr, val,
|
printf ("reloc %d @ 0x%lx: val=0x%lx name=%s\n", type, addr, val,
|
||||||
(char *) symtab_section->link->data + sym->st_name);
|
(char *) symtab_section->link->data + sym->st_name);
|
||||||
#endif
|
#endif
|
||||||
if (((val - addr) + ((uint64_t)1 << 27)) & ~(uint64_t)0xffffffc)
|
if (((val - addr) + ((uint64_t)1 << 27)) & ~(uint64_t)0xffffffc)
|
||||||
{
|
{
|
||||||
tcc_error("R_AARCH64_(JUMP|CALL)26 relocation failed (val=%lx, addr=%lx)", addr, val);
|
tcc_error("R_AARCH64_(JUMP|CALL)26 relocation failed (val=%lx, addr=%lx)", addr, val);
|
||||||
}
|
}
|
||||||
*(uint32_t *)ptr = 0x14000000 | (type == R_AARCH64_CALL26) << 31 |
|
*(uint32_t *)ptr = 0x14000000 | (type == R_AARCH64_CALL26) << 31 |
|
||||||
((val - addr) >> 2 & 0x3ffffff);
|
((val - addr) >> 2 & 0x3ffffff);
|
||||||
break;
|
break;
|
||||||
|
@ -836,9 +836,9 @@ ST_FUNC void relocate_section(TCCState *s1, Section *s)
|
||||||
case R_AARCH64_JUMP_SLOT:
|
case R_AARCH64_JUMP_SLOT:
|
||||||
/* They don't need addend */
|
/* They don't need addend */
|
||||||
#ifdef DEBUG_RELOC
|
#ifdef DEBUG_RELOC
|
||||||
printf ("reloc %d @ 0x%lx: val=0x%lx name=%s\n", type, addr,
|
printf ("reloc %d @ 0x%lx: val=0x%lx name=%s\n", type, addr,
|
||||||
val - rel->r_addend,
|
val - rel->r_addend,
|
||||||
(char *) symtab_section->link->data + sym->st_name);
|
(char *) symtab_section->link->data + sym->st_name);
|
||||||
#endif
|
#endif
|
||||||
*(addr_t *)ptr = val - rel->r_addend;
|
*(addr_t *)ptr = val - rel->r_addend;
|
||||||
break;
|
break;
|
||||||
|
@ -879,12 +879,12 @@ ST_FUNC void relocate_section(TCCState *s1, Section *s)
|
||||||
qrel->r_offset = rel->r_offset;
|
qrel->r_offset = rel->r_offset;
|
||||||
if (esym_index) {
|
if (esym_index) {
|
||||||
qrel->r_info = ELFW(R_INFO)(esym_index, R_X86_64_64);
|
qrel->r_info = ELFW(R_INFO)(esym_index, R_X86_64_64);
|
||||||
qrel->r_addend = rel->r_addend;
|
qrel->r_addend = rel->r_addend;
|
||||||
qrel++;
|
qrel++;
|
||||||
break;
|
break;
|
||||||
} else {
|
} else {
|
||||||
qrel->r_info = ELFW(R_INFO)(0, R_X86_64_RELATIVE);
|
qrel->r_info = ELFW(R_INFO)(0, R_X86_64_RELATIVE);
|
||||||
qrel->r_addend = *(long long *)ptr + val;
|
qrel->r_addend = *(long long *)ptr + val;
|
||||||
qrel++;
|
qrel++;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
@ -917,21 +917,21 @@ ST_FUNC void relocate_section(TCCState *s1, Section *s)
|
||||||
goto plt32pc32;
|
goto plt32pc32;
|
||||||
|
|
||||||
case R_X86_64_PLT32:
|
case R_X86_64_PLT32:
|
||||||
/* We've put the PLT slot offset into r_addend when generating
|
/* We've put the PLT slot offset into r_addend when generating
|
||||||
it, and that's what we must use as relocation value (adjusted
|
it, and that's what we must use as relocation value (adjusted
|
||||||
by section offset of course). */
|
by section offset of course). */
|
||||||
val = s1->plt->sh_addr + rel->r_addend;
|
val = s1->plt->sh_addr + rel->r_addend;
|
||||||
/* fallthrough. */
|
/* fallthrough. */
|
||||||
|
|
||||||
plt32pc32:
|
plt32pc32:
|
||||||
{
|
{
|
||||||
long long diff;
|
long long diff;
|
||||||
diff = (long long)val - addr;
|
diff = (long long)val - addr;
|
||||||
if (diff < -2147483648LL || diff > 2147483647LL) {
|
if (diff < -2147483648LL || diff > 2147483647LL) {
|
||||||
tcc_error("internal error: relocation failed");
|
tcc_error("internal error: relocation failed");
|
||||||
}
|
|
||||||
*(int *)ptr += diff;
|
|
||||||
}
|
}
|
||||||
|
*(int *)ptr += diff;
|
||||||
|
}
|
||||||
break;
|
break;
|
||||||
case R_X86_64_GLOB_DAT:
|
case R_X86_64_GLOB_DAT:
|
||||||
case R_X86_64_JUMP_SLOT:
|
case R_X86_64_JUMP_SLOT:
|
||||||
|
@ -1080,8 +1080,8 @@ static void build_got(TCCState *s1)
|
||||||
and 'info' can be modifed if more precise info comes from the DLL.
|
and 'info' can be modifed if more precise info comes from the DLL.
|
||||||
Returns offset of GOT or PLT slot. */
|
Returns offset of GOT or PLT slot. */
|
||||||
static unsigned long put_got_entry(TCCState *s1,
|
static unsigned long put_got_entry(TCCState *s1,
|
||||||
int reloc_type, unsigned long size, int info,
|
int reloc_type, unsigned long size, int info,
|
||||||
int sym_index)
|
int sym_index)
|
||||||
{
|
{
|
||||||
int index, need_plt_entry;
|
int index, need_plt_entry;
|
||||||
const char *name;
|
const char *name;
|
||||||
|
@ -1107,18 +1107,18 @@ static unsigned long put_got_entry(TCCState *s1,
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
if (need_plt_entry && !s1->plt) {
|
if (need_plt_entry && !s1->plt) {
|
||||||
/* add PLT */
|
/* add PLT */
|
||||||
s1->plt = new_section(s1, ".plt", SHT_PROGBITS,
|
s1->plt = new_section(s1, ".plt", SHT_PROGBITS,
|
||||||
SHF_ALLOC | SHF_EXECINSTR);
|
SHF_ALLOC | SHF_EXECINSTR);
|
||||||
s1->plt->sh_entsize = 4;
|
s1->plt->sh_entsize = 4;
|
||||||
}
|
}
|
||||||
|
|
||||||
/* If a got/plt entry already exists for that symbol, no need to add one */
|
/* If a got/plt entry already exists for that symbol, no need to add one */
|
||||||
if (sym_index < s1->nb_sym_attrs) {
|
if (sym_index < s1->nb_sym_attrs) {
|
||||||
if (need_plt_entry && s1->sym_attrs[sym_index].plt_offset)
|
if (need_plt_entry && s1->sym_attrs[sym_index].plt_offset)
|
||||||
return s1->sym_attrs[sym_index].plt_offset;
|
return s1->sym_attrs[sym_index].plt_offset;
|
||||||
else if (!need_plt_entry && s1->sym_attrs[sym_index].got_offset)
|
else if (!need_plt_entry && s1->sym_attrs[sym_index].got_offset)
|
||||||
return s1->sym_attrs[sym_index].got_offset;
|
return s1->sym_attrs[sym_index].got_offset;
|
||||||
}
|
}
|
||||||
|
|
||||||
symattr = alloc_sym_attr(s1, sym_index);
|
symattr = alloc_sym_attr(s1, sym_index);
|
||||||
|
@ -1135,7 +1135,7 @@ static unsigned long put_got_entry(TCCState *s1,
|
||||||
Section *plt;
|
Section *plt;
|
||||||
uint8_t *p;
|
uint8_t *p;
|
||||||
int modrm;
|
int modrm;
|
||||||
unsigned long relofs;
|
unsigned long relofs;
|
||||||
|
|
||||||
#if defined(TCC_OUTPUT_DLL_WITH_PLT)
|
#if defined(TCC_OUTPUT_DLL_WITH_PLT)
|
||||||
modrm = 0x25;
|
modrm = 0x25;
|
||||||
|
@ -1160,10 +1160,10 @@ static unsigned long put_got_entry(TCCState *s1,
|
||||||
put32(p + 8, PTR_SIZE * 2);
|
put32(p + 8, PTR_SIZE * 2);
|
||||||
}
|
}
|
||||||
|
|
||||||
/* The PLT slot refers to the relocation entry it needs
|
/* The PLT slot refers to the relocation entry it needs
|
||||||
via offset. The reloc entry is created below, so its
|
via offset. The reloc entry is created below, so its
|
||||||
offset is the current data_offset. */
|
offset is the current data_offset. */
|
||||||
relofs = s1->got->reloc ? s1->got->reloc->data_offset : 0;
|
relofs = s1->got->reloc ? s1->got->reloc->data_offset : 0;
|
||||||
symattr->plt_offset = plt->data_offset;
|
symattr->plt_offset = plt->data_offset;
|
||||||
p = section_ptr_add(plt, 16);
|
p = section_ptr_add(plt, 16);
|
||||||
p[0] = 0xff; /* jmp *(got + x) */
|
p[0] = 0xff; /* jmp *(got + x) */
|
||||||
|
@ -1171,20 +1171,20 @@ static unsigned long put_got_entry(TCCState *s1,
|
||||||
put32(p + 2, s1->got->data_offset);
|
put32(p + 2, s1->got->data_offset);
|
||||||
p[6] = 0x68; /* push $xxx */
|
p[6] = 0x68; /* push $xxx */
|
||||||
#ifdef TCC_TARGET_X86_64
|
#ifdef TCC_TARGET_X86_64
|
||||||
/* On x86-64, the relocation is referred to by _index_. */
|
/* On x86-64, the relocation is referred to by _index_. */
|
||||||
put32(p + 7, relofs / sizeof (ElfW_Rel));
|
put32(p + 7, relofs / sizeof (ElfW_Rel));
|
||||||
#else
|
#else
|
||||||
put32(p + 7, relofs);
|
put32(p + 7, relofs);
|
||||||
#endif
|
#endif
|
||||||
p[11] = 0xe9; /* jmp plt_start */
|
p[11] = 0xe9; /* jmp plt_start */
|
||||||
put32(p + 12, -(plt->data_offset));
|
put32(p + 12, -(plt->data_offset));
|
||||||
|
|
||||||
/* If this was an UNDEF symbol set the offset in the
|
/* If this was an UNDEF symbol set the offset in the
|
||||||
dynsymtab to the PLT slot, so that PC32 relocs to it
|
dynsymtab to the PLT slot, so that PC32 relocs to it
|
||||||
can be resolved. */
|
can be resolved. */
|
||||||
if (sym->st_shndx == SHN_UNDEF)
|
if (sym->st_shndx == SHN_UNDEF)
|
||||||
offset = plt->data_offset - 16;
|
offset = plt->data_offset - 16;
|
||||||
}
|
}
|
||||||
#elif defined(TCC_TARGET_ARM)
|
#elif defined(TCC_TARGET_ARM)
|
||||||
if (need_plt_entry) {
|
if (need_plt_entry) {
|
||||||
Section *plt;
|
Section *plt;
|
||||||
|
@ -1220,9 +1220,9 @@ static unsigned long put_got_entry(TCCState *s1,
|
||||||
|
|
||||||
/* the symbol is modified so that it will be relocated to
|
/* the symbol is modified so that it will be relocated to
|
||||||
the PLT */
|
the PLT */
|
||||||
if (sym->st_shndx == SHN_UNDEF)
|
if (sym->st_shndx == SHN_UNDEF)
|
||||||
offset = plt->data_offset - 16;
|
offset = plt->data_offset - 16;
|
||||||
}
|
}
|
||||||
#elif defined(TCC_TARGET_ARM64)
|
#elif defined(TCC_TARGET_ARM64)
|
||||||
if (need_plt_entry) {
|
if (need_plt_entry) {
|
||||||
Section *plt;
|
Section *plt;
|
||||||
|
@ -1250,29 +1250,29 @@ static unsigned long put_got_entry(TCCState *s1,
|
||||||
#error unsupported CPU
|
#error unsupported CPU
|
||||||
#endif
|
#endif
|
||||||
if (s1->dynsym) {
|
if (s1->dynsym) {
|
||||||
/* XXX This might generate multiple syms for name. */
|
/* XXX This might generate multiple syms for name. */
|
||||||
index = put_elf_sym(s1->dynsym, offset,
|
index = put_elf_sym(s1->dynsym, offset,
|
||||||
size, info, 0, sym->st_shndx, name);
|
size, info, 0, sym->st_shndx, name);
|
||||||
/* Create the relocation (it's against the GOT for PLT
|
/* Create the relocation (it's against the GOT for PLT
|
||||||
and GOT relocs). */
|
and GOT relocs). */
|
||||||
put_elf_reloc(s1->dynsym, s1->got,
|
put_elf_reloc(s1->dynsym, s1->got,
|
||||||
s1->got->data_offset,
|
s1->got->data_offset,
|
||||||
reloc_type, index);
|
reloc_type, index);
|
||||||
} else {
|
} else {
|
||||||
/* Without .dynsym (i.e. static link or memory output) we
|
/* Without .dynsym (i.e. static link or memory output) we
|
||||||
still need relocs against the generated got, so as to fill
|
still need relocs against the generated got, so as to fill
|
||||||
the entries with the symbol values (determined later). */
|
the entries with the symbol values (determined later). */
|
||||||
put_elf_reloc(symtab_section, s1->got,
|
put_elf_reloc(symtab_section, s1->got,
|
||||||
s1->got->data_offset,
|
s1->got->data_offset,
|
||||||
reloc_type, sym_index);
|
reloc_type, sym_index);
|
||||||
}
|
}
|
||||||
/* And now create the GOT slot itself. */
|
/* And now create the GOT slot itself. */
|
||||||
ptr = section_ptr_add(s1->got, PTR_SIZE);
|
ptr = section_ptr_add(s1->got, PTR_SIZE);
|
||||||
*ptr = 0;
|
*ptr = 0;
|
||||||
if (need_plt_entry)
|
if (need_plt_entry)
|
||||||
return symattr->plt_offset;
|
return symattr->plt_offset;
|
||||||
else
|
else
|
||||||
return symattr->got_offset;
|
return symattr->got_offset;
|
||||||
}
|
}
|
||||||
|
|
||||||
/* build GOT and PLT entries */
|
/* build GOT and PLT entries */
|
||||||
|
@ -1324,8 +1324,8 @@ ST_FUNC void build_got_entries(TCCState *s1)
|
||||||
build_got(s1);
|
build_got(s1);
|
||||||
sym_index = ELFW(R_SYM)(rel->r_info);
|
sym_index = ELFW(R_SYM)(rel->r_info);
|
||||||
sym = &((ElfW(Sym) *)symtab_section->data)[sym_index];
|
sym = &((ElfW(Sym) *)symtab_section->data)[sym_index];
|
||||||
if (type != R_ARM_GOTOFF && type != R_ARM_GOTPC
|
if (type != R_ARM_GOTOFF && type != R_ARM_GOTPC
|
||||||
&& sym->st_shndx == SHN_UNDEF) {
|
&& sym->st_shndx == SHN_UNDEF) {
|
||||||
unsigned long ofs;
|
unsigned long ofs;
|
||||||
/* look at the symbol got offset. If none, then add one */
|
/* look at the symbol got offset. If none, then add one */
|
||||||
if (type == R_ARM_GOT32)
|
if (type == R_ARM_GOT32)
|
||||||
|
@ -1333,27 +1333,27 @@ ST_FUNC void build_got_entries(TCCState *s1)
|
||||||
else
|
else
|
||||||
reloc_type = R_ARM_JUMP_SLOT;
|
reloc_type = R_ARM_JUMP_SLOT;
|
||||||
ofs = put_got_entry(s1, reloc_type, sym->st_size,
|
ofs = put_got_entry(s1, reloc_type, sym->st_size,
|
||||||
sym->st_info, sym_index);
|
sym->st_info, sym_index);
|
||||||
#ifdef DEBUG_RELOC
|
#ifdef DEBUG_RELOC
|
||||||
printf("maybegot: %s, %d, %d --> ofs=0x%x\n",
|
printf ("maybegot: %s, %d, %d --> ofs=0x%x\n",
|
||||||
(char *) symtab_section->link->data + sym->st_name,
|
(char *) symtab_section->link->data + sym->st_name,
|
||||||
type, sym->st_shndx, ofs);
|
type, sym->st_shndx, ofs);
|
||||||
#endif
|
#endif
|
||||||
if (type != R_ARM_GOT32) {
|
if (type != R_ARM_GOT32) {
|
||||||
addr_t *ptr = (addr_t*)(s1->sections[s->sh_info]->data
|
addr_t *ptr = (addr_t*)(s1->sections[s->sh_info]->data
|
||||||
+ rel->r_offset);
|
+ rel->r_offset);
|
||||||
/* x must be signed! */
|
/* x must be signed! */
|
||||||
int x = *ptr & 0xffffff;
|
int x = *ptr & 0xffffff;
|
||||||
x = (x << 8) >> 8;
|
x = (x << 8) >> 8;
|
||||||
x <<= 2;
|
x <<= 2;
|
||||||
x += ofs;
|
x += ofs;
|
||||||
x >>= 2;
|
x >>= 2;
|
||||||
#ifdef DEBUG_RELOC
|
#ifdef DEBUG_RELOC
|
||||||
printf ("insn=0x%x --> 0x%x (x==0x%x)\n", *ptr,
|
printf ("insn=0x%x --> 0x%x (x==0x%x)\n", *ptr,
|
||||||
(*ptr & 0xff000000) | x, x);
|
(*ptr & 0xff000000) | x, x);
|
||||||
#endif
|
#endif
|
||||||
*ptr = (*ptr & 0xff000000) | x;
|
*ptr = (*ptr & 0xff000000) | x;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
case R_ARM_THM_JUMP24:
|
case R_ARM_THM_JUMP24:
|
||||||
|
@ -1397,22 +1397,22 @@ ST_FUNC void build_got_entries(TCCState *s1)
|
||||||
sym_index);
|
sym_index);
|
||||||
break;
|
break;
|
||||||
|
|
||||||
case R_AARCH64_JUMP26:
|
case R_AARCH64_JUMP26:
|
||||||
case R_AARCH64_CALL26:
|
case R_AARCH64_CALL26:
|
||||||
if (!s1->got)
|
if (!s1->got)
|
||||||
build_got(s1);
|
build_got(s1);
|
||||||
sym_index = ELFW(R_SYM)(rel->r_info);
|
sym_index = ELFW(R_SYM)(rel->r_info);
|
||||||
sym = &((ElfW(Sym) *)symtab_section->data)[sym_index];
|
sym = &((ElfW(Sym) *)symtab_section->data)[sym_index];
|
||||||
if (sym->st_shndx == SHN_UNDEF) {
|
if (sym->st_shndx == SHN_UNDEF) {
|
||||||
unsigned long ofs;
|
unsigned long ofs;
|
||||||
reloc_type = R_AARCH64_JUMP_SLOT;
|
reloc_type = R_AARCH64_JUMP_SLOT;
|
||||||
ofs = put_got_entry(s1, reloc_type, sym->st_size,
|
ofs = put_got_entry(s1, reloc_type, sym->st_size,
|
||||||
sym->st_info, sym_index);
|
sym->st_info, sym_index);
|
||||||
/* We store the place of the generated PLT slot
|
/* We store the place of the generated PLT slot
|
||||||
in our addend. */
|
in our addend. */
|
||||||
rel->r_addend += ofs;
|
rel->r_addend += ofs;
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
#elif defined(TCC_TARGET_C67)
|
#elif defined(TCC_TARGET_C67)
|
||||||
case R_C60_GOT32:
|
case R_C60_GOT32:
|
||||||
case R_C60_GOTOFF:
|
case R_C60_GOTOFF:
|
||||||
|
@ -1439,29 +1439,29 @@ ST_FUNC void build_got_entries(TCCState *s1)
|
||||||
case R_X86_64_PLT32:
|
case R_X86_64_PLT32:
|
||||||
sym_index = ELFW(R_SYM)(rel->r_info);
|
sym_index = ELFW(R_SYM)(rel->r_info);
|
||||||
sym = &((ElfW(Sym) *)symtab_section->data)[sym_index];
|
sym = &((ElfW(Sym) *)symtab_section->data)[sym_index];
|
||||||
if (type == R_X86_64_PLT32 &&
|
if (type == R_X86_64_PLT32 &&
|
||||||
ELFW(ST_VISIBILITY)(sym->st_other) != STV_DEFAULT)
|
ELFW(ST_VISIBILITY)(sym->st_other) != STV_DEFAULT)
|
||||||
{
|
{
|
||||||
rel->r_info = ELFW(R_INFO)(sym_index, R_X86_64_PC32);
|
rel->r_info = ELFW(R_INFO)(sym_index, R_X86_64_PC32);
|
||||||
break;
|
break;
|
||||||
}
|
}
|
||||||
|
|
||||||
if (!s1->got)
|
if (!s1->got)
|
||||||
build_got(s1);
|
build_got(s1);
|
||||||
if (type == R_X86_64_GOT32 || type == R_X86_64_GOTPCREL ||
|
if (type == R_X86_64_GOT32 || type == R_X86_64_GOTPCREL ||
|
||||||
type == R_X86_64_PLT32) {
|
type == R_X86_64_PLT32) {
|
||||||
unsigned long ofs;
|
unsigned long ofs;
|
||||||
/* look at the symbol got offset. If none, then add one */
|
/* look at the symbol got offset. If none, then add one */
|
||||||
if (type == R_X86_64_GOT32 || type == R_X86_64_GOTPCREL)
|
if (type == R_X86_64_GOT32 || type == R_X86_64_GOTPCREL)
|
||||||
reloc_type = R_X86_64_GLOB_DAT;
|
reloc_type = R_X86_64_GLOB_DAT;
|
||||||
else
|
else
|
||||||
reloc_type = R_X86_64_JUMP_SLOT;
|
reloc_type = R_X86_64_JUMP_SLOT;
|
||||||
ofs = put_got_entry(s1, reloc_type, sym->st_size,
|
ofs = put_got_entry(s1, reloc_type, sym->st_size,
|
||||||
sym->st_info, sym_index);
|
sym->st_info, sym_index);
|
||||||
if (type == R_X86_64_PLT32)
|
if (type == R_X86_64_PLT32)
|
||||||
/* We store the place of the generated PLT slot
|
/* We store the place of the generated PLT slot
|
||||||
in our addend. */
|
in our addend. */
|
||||||
rel->r_addend += ofs;
|
rel->r_addend += ofs;
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
#else
|
#else
|
||||||
|
@ -1546,21 +1546,21 @@ static int tcc_add_support(TCCState *s1, const char *filename)
|
||||||
snprintf(buf, sizeof(buf), "%s/%s/%s", s1->tcc_lib_path,
|
snprintf(buf, sizeof(buf), "%s/%s/%s", s1->tcc_lib_path,
|
||||||
/* an cpu specific path inside tcc_lib_path, mainly for keeping libtcc1.a */
|
/* an cpu specific path inside tcc_lib_path, mainly for keeping libtcc1.a */
|
||||||
#ifdef TCC_TARGET_I386
|
#ifdef TCC_TARGET_I386
|
||||||
"i386"
|
"i386"
|
||||||
#endif
|
#endif
|
||||||
#ifdef TCC_TARGET_X86_64
|
#ifdef TCC_TARGET_X86_64
|
||||||
"x86_64"
|
"x86-64"
|
||||||
#endif
|
#endif
|
||||||
#ifdef TCC_TARGET_ARM
|
#ifdef TCC_TARGET_ARM
|
||||||
"arm"
|
"arm"
|
||||||
#endif
|
#endif
|
||||||
#ifdef TCC_TARGET_ARM64
|
#ifdef TCC_TARGET_ARM64
|
||||||
"arm64"
|
"arm64"
|
||||||
#endif
|
#endif
|
||||||
#ifdef TCC_TARGET_C67
|
#ifdef TCC_TARGET_C67
|
||||||
"C67"
|
"C67"
|
||||||
#endif
|
#endif
|
||||||
, filename);
|
,filename);
|
||||||
|
|
||||||
return tcc_add_file(s1, buf, TCC_FILETYPE_BINARY);
|
return tcc_add_file(s1, buf, TCC_FILETYPE_BINARY);
|
||||||
}
|
}
|
||||||
|
@ -1587,17 +1587,17 @@ ST_FUNC void tcc_add_bcheck(TCCState *s1)
|
||||||
when __bound_ptr_add, __bound_new_region,
|
when __bound_ptr_add, __bound_new_region,
|
||||||
__bound_delete_region called */
|
__bound_delete_region called */
|
||||||
|
|
||||||
int sym_index = find_elf_sym(symtab_section, "__bound_init");
|
int sym_index = find_elf_sym(symtab_section, "__bound_init");
|
||||||
if (sym_index) {
|
if (sym_index) {
|
||||||
Section *init_section = find_section(s1, ".init");
|
Section *init_section = find_section(s1, ".init");
|
||||||
unsigned char *pinit = section_ptr_add(init_section, 5);
|
unsigned char *pinit = section_ptr_add(init_section, 5);
|
||||||
pinit[0] = 0xe8;
|
pinit[0] = 0xe8;
|
||||||
put32(pinit + 1, -4);
|
put32(pinit + 1, -4);
|
||||||
put_elf_reloc(symtab_section, init_section,
|
put_elf_reloc(symtab_section, init_section,
|
||||||
init_section->data_offset - 4, R_386_PC32, sym_index);
|
init_section->data_offset - 4, R_386_PC32, sym_index);
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
tcc_warning("__bound_init not defined");
|
tcc_warning("__bound_init not defined");
|
||||||
}
|
}
|
||||||
#endif
|
#endif
|
||||||
}
|
}
|
||||||
|
@ -1905,11 +1905,11 @@ static void export_global_syms(TCCState *s1)
|
||||||
s1->symtab_to_dynsym = tcc_mallocz(sizeof(int) * nb_syms);
|
s1->symtab_to_dynsym = tcc_mallocz(sizeof(int) * nb_syms);
|
||||||
for_each_elem(symtab_section, 1, sym, ElfW(Sym)) {
|
for_each_elem(symtab_section, 1, sym, ElfW(Sym)) {
|
||||||
if (ELFW(ST_BIND)(sym->st_info) != STB_LOCAL) {
|
if (ELFW(ST_BIND)(sym->st_info) != STB_LOCAL) {
|
||||||
name = (char *) symtab_section->link->data + sym->st_name;
|
name = (char *) symtab_section->link->data + sym->st_name;
|
||||||
dynindex = put_elf_sym(s1->dynsym, sym->st_value, sym->st_size,
|
dynindex = put_elf_sym(s1->dynsym, sym->st_value, sym->st_size,
|
||||||
sym->st_info, 0, sym->st_shndx, name);
|
sym->st_info, 0, sym->st_shndx, name);
|
||||||
index = sym - (ElfW(Sym) *) symtab_section->data;
|
index = sym - (ElfW(Sym) *) symtab_section->data;
|
||||||
s1->symtab_to_dynsym[index] = dynindex;
|
s1->symtab_to_dynsym[index] = dynindex;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
@ -2179,15 +2179,15 @@ static int layout_sections(TCCState *s1, ElfW(Phdr) *phdr, int phnum,
|
||||||
file_offset += s->sh_size;
|
file_offset += s->sh_size;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
if (j == 0) {
|
if (j == 0) {
|
||||||
/* Make the first PT_LOAD segment include the program
|
/* Make the first PT_LOAD segment include the program
|
||||||
headers itself (and the ELF header as well), it'll
|
headers itself (and the ELF header as well), it'll
|
||||||
come out with same memory use but will make various
|
come out with same memory use but will make various
|
||||||
tools like binutils strip work better. */
|
tools like binutils strip work better. */
|
||||||
ph->p_offset &= ~(ph->p_align - 1);
|
ph->p_offset &= ~(ph->p_align - 1);
|
||||||
ph->p_vaddr &= ~(ph->p_align - 1);
|
ph->p_vaddr &= ~(ph->p_align - 1);
|
||||||
ph->p_paddr &= ~(ph->p_align - 1);
|
ph->p_paddr &= ~(ph->p_align - 1);
|
||||||
}
|
}
|
||||||
ph->p_filesz = file_offset - ph->p_offset;
|
ph->p_filesz = file_offset - ph->p_offset;
|
||||||
ph->p_memsz = addr - ph->p_vaddr;
|
ph->p_memsz = addr - ph->p_vaddr;
|
||||||
ph++;
|
ph++;
|
||||||
|
@ -2662,10 +2662,10 @@ static int elf_output_file(TCCState *s1, const char *filename)
|
||||||
for_each_elem(s1->dynsym, 1, sym, ElfW(Sym)) {
|
for_each_elem(s1->dynsym, 1, sym, ElfW(Sym)) {
|
||||||
if (sym->st_shndx == SHN_UNDEF) {
|
if (sym->st_shndx == SHN_UNDEF) {
|
||||||
/* relocate to PLT if symbol corresponds to a PLT entry,
|
/* relocate to PLT if symbol corresponds to a PLT entry,
|
||||||
but not if it's a weak symbol */
|
but not if it's a weak symbol */
|
||||||
if (ELFW(ST_BIND)(sym->st_info) == STB_WEAK)
|
if (ELFW(ST_BIND)(sym->st_info) == STB_WEAK)
|
||||||
sym->st_value = 0;
|
sym->st_value = 0;
|
||||||
else if (sym->st_value)
|
else if (sym->st_value)
|
||||||
sym->st_value += s1->plt->sh_addr;
|
sym->st_value += s1->plt->sh_addr;
|
||||||
} else if (sym->st_shndx < SHN_LORESERVE) {
|
} else if (sym->st_shndx < SHN_LORESERVE) {
|
||||||
/* do symbol relocation */
|
/* do symbol relocation */
|
||||||
|
@ -2690,14 +2690,14 @@ static int elf_output_file(TCCState *s1, const char *filename)
|
||||||
/* Create the ELF file with name 'filename' */
|
/* Create the ELF file with name 'filename' */
|
||||||
ret = tcc_write_elf_file(s1, filename, phnum, phdr, file_offset, sec_order);
|
ret = tcc_write_elf_file(s1, filename, phnum, phdr, file_offset, sec_order);
|
||||||
if (s1->do_strip) {
|
if (s1->do_strip) {
|
||||||
int rc;
|
int rc;
|
||||||
const char *strip_cmd = "sstrip "; // super strip utility from ELFkickers
|
const char *strip_cmd = "sstrip "; // super strip utility from ELFkickers
|
||||||
const char *null_dev = " 2> /dev/null";
|
const char *null_dev = " 2> /dev/null";
|
||||||
char buf[1050];
|
char buf[1050];
|
||||||
snprintf(buf, sizeof(buf), "%s%s%s", strip_cmd, filename, null_dev);
|
snprintf(buf, sizeof(buf), "%s%s%s", strip_cmd, filename, null_dev);
|
||||||
rc = system(buf);
|
rc = system(buf);
|
||||||
if (rc)
|
if (rc)
|
||||||
system(buf+1); // call a strip utility from binutils
|
system(buf+1); // call a strip utility from binutils
|
||||||
}
|
}
|
||||||
the_end:
|
the_end:
|
||||||
tcc_free(s1->symtab_to_dynsym);
|
tcc_free(s1->symtab_to_dynsym);
|
|
@ -323,7 +323,7 @@ static void apply_visibility(Sym *sym, CType *type)
|
||||||
ElfW(Sym) *esym;
|
ElfW(Sym) *esym;
|
||||||
|
|
||||||
esym = &((ElfW(Sym) *)symtab_section->data)[sym->c];
|
esym = &((ElfW(Sym) *)symtab_section->data)[sym->c];
|
||||||
vis >>= VT_VIS_SHIFT;
|
vis >>= VT_VIS_SHIFT;
|
||||||
esym->st_other = (esym->st_other & ~ELFW(ST_VISIBILITY)(-1)) | vis;
|
esym->st_other = (esym->st_other & ~ELFW(ST_VISIBILITY)(-1)) | vis;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
@ -1631,7 +1631,7 @@ static inline int is_null_pointer(SValue *p)
|
||||||
return 0;
|
return 0;
|
||||||
return ((p->type.t & VT_BTYPE) == VT_INT && p->c.i == 0) ||
|
return ((p->type.t & VT_BTYPE) == VT_INT && p->c.i == 0) ||
|
||||||
((p->type.t & VT_BTYPE) == VT_LLONG && p->c.ll == 0) ||
|
((p->type.t & VT_BTYPE) == VT_LLONG && p->c.ll == 0) ||
|
||||||
((p->type.t & VT_BTYPE) == VT_PTR && p->c.ptr_offset == 0);
|
((p->type.t & VT_BTYPE) == VT_PTR && p->c.ptr_offset == 0);
|
||||||
}
|
}
|
||||||
|
|
||||||
static inline int is_integer_btype(int bt)
|
static inline int is_integer_btype(int bt)
|
||||||
|
@ -1761,18 +1761,18 @@ ST_FUNC void gen_op(int op)
|
||||||
#if 0
|
#if 0
|
||||||
/* #ifdef CONFIG_TCC_BCHECK
|
/* #ifdef CONFIG_TCC_BCHECK
|
||||||
The main reason to removing this code:
|
The main reason to removing this code:
|
||||||
#include <stdio.h>
|
#include <stdio.h>
|
||||||
int main ()
|
int main ()
|
||||||
{
|
{
|
||||||
int v[10];
|
int v[10];
|
||||||
int i = 10;
|
int i = 10;
|
||||||
int j = 9;
|
int j = 9;
|
||||||
fprintf(stderr, "v+i-j = %p\n", v+i-j);
|
fprintf(stderr, "v+i-j = %p\n", v+i-j);
|
||||||
fprintf(stderr, "v+(i-j) = %p\n", v+(i-j));
|
fprintf(stderr, "v+(i-j) = %p\n", v+(i-j));
|
||||||
}
|
}
|
||||||
When this code is on. then the output looks like
|
When this code is on. then the output looks like
|
||||||
v+i-j = 0xfffffffe
|
v+i-j = 0xfffffffe
|
||||||
v+(i-j) = 0xbff84000
|
v+(i-j) = 0xbff84000
|
||||||
*/
|
*/
|
||||||
/* if evaluating constant expression, no code should be
|
/* if evaluating constant expression, no code should be
|
||||||
generated, so no bound check */
|
generated, so no bound check */
|
||||||
|
@ -2450,18 +2450,18 @@ static void gen_assign_cast(CType *dt)
|
||||||
dbt = dt->t & VT_BTYPE;
|
dbt = dt->t & VT_BTYPE;
|
||||||
sbt = st->t & VT_BTYPE;
|
sbt = st->t & VT_BTYPE;
|
||||||
if (sbt == VT_VOID || dbt == VT_VOID) {
|
if (sbt == VT_VOID || dbt == VT_VOID) {
|
||||||
if (sbt == VT_VOID && dbt == VT_VOID)
|
if (sbt == VT_VOID && dbt == VT_VOID)
|
||||||
; /*
|
; /*
|
||||||
It is Ok if both are void
|
It is Ok if both are void
|
||||||
A test program:
|
A test program:
|
||||||
void func1() {}
|
void func1() {}
|
||||||
void func2() {
|
void func2() {
|
||||||
return func1();
|
return func1();
|
||||||
}
|
}
|
||||||
gcc accepts this program
|
gcc accepts this program
|
||||||
*/
|
*/
|
||||||
else
|
else
|
||||||
tcc_error("cannot cast from/to void");
|
tcc_error("cannot cast from/to void");
|
||||||
}
|
}
|
||||||
if (dt->t & VT_CONSTANT)
|
if (dt->t & VT_CONSTANT)
|
||||||
tcc_warning("assignment of read-only location");
|
tcc_warning("assignment of read-only location");
|
||||||
|
@ -2542,7 +2542,7 @@ ST_FUNC void vstore(void)
|
||||||
dbt = ft & VT_BTYPE;
|
dbt = ft & VT_BTYPE;
|
||||||
if ((((sbt == VT_INT || sbt == VT_SHORT) && dbt == VT_BYTE) ||
|
if ((((sbt == VT_INT || sbt == VT_SHORT) && dbt == VT_BYTE) ||
|
||||||
(sbt == VT_INT && dbt == VT_SHORT))
|
(sbt == VT_INT && dbt == VT_SHORT))
|
||||||
&& !(vtop->type.t & VT_BITFIELD)) {
|
&& !(vtop->type.t & VT_BITFIELD)) {
|
||||||
/* optimize char/short casts */
|
/* optimize char/short casts */
|
||||||
delayed_cast = VT_MUSTCAST;
|
delayed_cast = VT_MUSTCAST;
|
||||||
vtop->type.t = ft & (VT_TYPE & ~(VT_BITFIELD | (-1 << VT_STRUCT_SHIFT)));
|
vtop->type.t = ft & (VT_TYPE & ~(VT_BITFIELD | (-1 << VT_STRUCT_SHIFT)));
|
||||||
|
@ -2764,20 +2764,20 @@ static void parse_attribute(AttributeDef *ad)
|
||||||
next();
|
next();
|
||||||
skip(')');
|
skip(')');
|
||||||
break;
|
break;
|
||||||
case TOK_VISIBILITY1:
|
case TOK_VISIBILITY1:
|
||||||
case TOK_VISIBILITY2:
|
case TOK_VISIBILITY2:
|
||||||
skip('(');
|
skip('(');
|
||||||
if (tok != TOK_STR)
|
if (tok != TOK_STR)
|
||||||
expect("visibility(\"default|hidden|internal|protected\")");
|
expect("visibility(\"default|hidden|internal|protected\")");
|
||||||
if (!strcmp (tokc.cstr->data, "default"))
|
if (!strcmp (tokc.cstr->data, "default"))
|
||||||
ad->a.visibility = STV_DEFAULT;
|
ad->a.visibility = STV_DEFAULT;
|
||||||
else if (!strcmp (tokc.cstr->data, "hidden"))
|
else if (!strcmp (tokc.cstr->data, "hidden"))
|
||||||
ad->a.visibility = STV_HIDDEN;
|
ad->a.visibility = STV_HIDDEN;
|
||||||
else if (!strcmp (tokc.cstr->data, "internal"))
|
else if (!strcmp (tokc.cstr->data, "internal"))
|
||||||
ad->a.visibility = STV_INTERNAL;
|
ad->a.visibility = STV_INTERNAL;
|
||||||
else if (!strcmp (tokc.cstr->data, "protected"))
|
else if (!strcmp (tokc.cstr->data, "protected"))
|
||||||
ad->a.visibility = STV_PROTECTED;
|
ad->a.visibility = STV_PROTECTED;
|
||||||
else
|
else
|
||||||
expect("visibility(\"default|hidden|internal|protected\")");
|
expect("visibility(\"default|hidden|internal|protected\")");
|
||||||
next();
|
next();
|
||||||
skip(')');
|
skip(')');
|
||||||
|
@ -2973,8 +2973,8 @@ static void struct_decl(CType *type, int u, int tdef)
|
||||||
while (tok != '}') {
|
while (tok != '}') {
|
||||||
parse_btype(&btype, &ad);
|
parse_btype(&btype, &ad);
|
||||||
while (1) {
|
while (1) {
|
||||||
if (flexible)
|
if (flexible)
|
||||||
tcc_error("flexible array member '%s' not at the end of struct",
|
tcc_error("flexible array member '%s' not at the end of struct",
|
||||||
get_tok_str(v, NULL));
|
get_tok_str(v, NULL));
|
||||||
bit_size = -1;
|
bit_size = -1;
|
||||||
v = 0;
|
v = 0;
|
||||||
|
@ -2982,22 +2982,22 @@ static void struct_decl(CType *type, int u, int tdef)
|
||||||
if (tok != ':') {
|
if (tok != ':') {
|
||||||
type_decl(&type1, &ad, &v, TYPE_DIRECT | TYPE_ABSTRACT);
|
type_decl(&type1, &ad, &v, TYPE_DIRECT | TYPE_ABSTRACT);
|
||||||
if (v == 0) {
|
if (v == 0) {
|
||||||
if ((type1.t & VT_BTYPE) != VT_STRUCT)
|
if ((type1.t & VT_BTYPE) != VT_STRUCT)
|
||||||
expect("identifier");
|
expect("identifier");
|
||||||
else {
|
else {
|
||||||
int v = btype.ref->v;
|
int v = btype.ref->v;
|
||||||
if (!(v & SYM_FIELD) && (v & ~SYM_STRUCT) < SYM_FIRST_ANOM) {
|
if (!(v & SYM_FIELD) && (v & ~SYM_STRUCT) < SYM_FIRST_ANOM) {
|
||||||
if (tcc_state->ms_extensions == 0)
|
if (tcc_state->ms_extensions == 0)
|
||||||
expect("identifier");
|
expect("identifier");
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
if (type_size(&type1, &align) < 0) {
|
if (type_size(&type1, &align) < 0) {
|
||||||
if ((a == TOK_STRUCT) && (type1.t & VT_ARRAY) && c)
|
if ((a == TOK_STRUCT) && (type1.t & VT_ARRAY) && c)
|
||||||
flexible = 1;
|
flexible = 1;
|
||||||
else
|
else
|
||||||
tcc_error("field '%s' has incomplete type",
|
tcc_error("field '%s' has incomplete type",
|
||||||
get_tok_str(v, NULL));
|
get_tok_str(v, NULL));
|
||||||
}
|
}
|
||||||
if ((type1.t & VT_BTYPE) == VT_FUNC ||
|
if ((type1.t & VT_BTYPE) == VT_FUNC ||
|
||||||
(type1.t & (VT_TYPEDEF | VT_STATIC | VT_EXTERN | VT_INLINE)))
|
(type1.t & (VT_TYPEDEF | VT_STATIC | VT_EXTERN | VT_INLINE)))
|
||||||
|
@ -3807,11 +3807,11 @@ ST_FUNC void unary(void)
|
||||||
gen_cast(&type);
|
gen_cast(&type);
|
||||||
}
|
}
|
||||||
} else if (tok == '{') {
|
} else if (tok == '{') {
|
||||||
/*
|
/*
|
||||||
if (nocode_wanted)
|
if (nocode_wanted)
|
||||||
tcc_error("statement expression in global scope"); */
|
tcc_error("statement expression in global scope"); */
|
||||||
/* this check breaks compilation of the linux 2.4.26 with the meesage:
|
/* this check breaks compilation of the linux 2.4.26 with the meesage:
|
||||||
linux/include/net/tcp.h:945: error: statement expression in global scope */
|
linux/include/net/tcp.h:945: error: statement expression in global scope */
|
||||||
|
|
||||||
/* save all registers */
|
/* save all registers */
|
||||||
save_regs(0);
|
save_regs(0);
|
||||||
|
@ -3872,12 +3872,12 @@ ST_FUNC void unary(void)
|
||||||
if ((vtop->type.t & VT_BTYPE) == VT_PTR)
|
if ((vtop->type.t & VT_BTYPE) == VT_PTR)
|
||||||
tcc_error("pointer not accepted for unary plus");
|
tcc_error("pointer not accepted for unary plus");
|
||||||
/* In order to force cast, we add zero, except for floating point
|
/* In order to force cast, we add zero, except for floating point
|
||||||
where we really need an noop (otherwise -0.0 will be transformed
|
where we really need an noop (otherwise -0.0 will be transformed
|
||||||
into +0.0). */
|
into +0.0). */
|
||||||
if (!is_float(vtop->type.t)) {
|
if (!is_float(vtop->type.t)) {
|
||||||
vpushi(0);
|
vpushi(0);
|
||||||
gen_op('+');
|
gen_op('+');
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
case TOK_SIZEOF:
|
case TOK_SIZEOF:
|
||||||
case TOK_ALIGNOF1:
|
case TOK_ALIGNOF1:
|
||||||
|
@ -4050,20 +4050,20 @@ ST_FUNC void unary(void)
|
||||||
next();
|
next();
|
||||||
unary();
|
unary();
|
||||||
t = vtop->type.t & VT_BTYPE;
|
t = vtop->type.t & VT_BTYPE;
|
||||||
if (is_float(t)) {
|
if (is_float(t)) {
|
||||||
/* In IEEE negate(x) isn't subtract(0,x), but rather
|
/* In IEEE negate(x) isn't subtract(0,x), but rather
|
||||||
subtract(-0, x). */
|
subtract(-0, x). */
|
||||||
vpush(&vtop->type);
|
vpush(&vtop->type);
|
||||||
if (t == VT_FLOAT)
|
if (t == VT_FLOAT)
|
||||||
vtop->c.f = -0.0f;
|
vtop->c.f = -0.0f;
|
||||||
else if (t == VT_DOUBLE)
|
else if (t == VT_DOUBLE)
|
||||||
vtop->c.d = -0.0;
|
vtop->c.d = -0.0;
|
||||||
else
|
else
|
||||||
vtop->c.ld = -0.0;
|
vtop->c.ld = -0.0;
|
||||||
} else
|
} else
|
||||||
vpushi(0);
|
vpushi(0);
|
||||||
vswap();
|
vswap();
|
||||||
gen_op('-');
|
gen_op('-');
|
||||||
break;
|
break;
|
||||||
case TOK_LAND:
|
case TOK_LAND:
|
||||||
if (!gnu_ext)
|
if (!gnu_ext)
|
||||||
|
@ -4142,7 +4142,7 @@ ST_FUNC void unary(void)
|
||||||
/* if forward reference, we must point to s */
|
/* if forward reference, we must point to s */
|
||||||
if (vtop->r & VT_SYM) {
|
if (vtop->r & VT_SYM) {
|
||||||
vtop->sym = s;
|
vtop->sym = s;
|
||||||
vtop->c.ptr_offset = 0;
|
vtop->c.ptr_offset = 0;
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
}
|
}
|
||||||
|
@ -4312,10 +4312,10 @@ ST_FUNC void unary(void)
|
||||||
|
|
||||||
|
|
||||||
size = type_size(&s->type, &align);
|
size = type_size(&s->type, &align);
|
||||||
/* We're writing whole regs often, make sure there's enough
|
/* We're writing whole regs often, make sure there's enough
|
||||||
space. Assume register size is power of 2. */
|
space. Assume register size is power of 2. */
|
||||||
if (regsize > align)
|
if (regsize > align)
|
||||||
align = regsize;
|
align = regsize;
|
||||||
loc = (loc - size) & -align;
|
loc = (loc - size) & -align;
|
||||||
addr = loc;
|
addr = loc;
|
||||||
#if defined(TCC_TARGET_X86_64) && !defined(TCC_TARGET_PE)
|
#if defined(TCC_TARGET_X86_64) && !defined(TCC_TARGET_PE)
|
||||||
|
@ -4610,16 +4610,16 @@ static void expr_cond(void)
|
||||||
(t2 & (VT_BTYPE | VT_UNSIGNED)) == (VT_LLONG | VT_UNSIGNED))
|
(t2 & (VT_BTYPE | VT_UNSIGNED)) == (VT_LLONG | VT_UNSIGNED))
|
||||||
type.t |= VT_UNSIGNED;
|
type.t |= VT_UNSIGNED;
|
||||||
} else if (bt1 == VT_PTR || bt2 == VT_PTR) {
|
} else if (bt1 == VT_PTR || bt2 == VT_PTR) {
|
||||||
/* If one is a null ptr constant the result type
|
/* If one is a null ptr constant the result type
|
||||||
is the other. */
|
is the other. */
|
||||||
if (is_null_pointer (vtop))
|
if (is_null_pointer (vtop))
|
||||||
type = type1;
|
type = type1;
|
||||||
else if (is_null_pointer (&sv))
|
else if (is_null_pointer (&sv))
|
||||||
type = type2;
|
type = type2;
|
||||||
/* XXX: test pointer compatibility, C99 has more elaborate
|
/* XXX: test pointer compatibility, C99 has more elaborate
|
||||||
rules here. */
|
rules here. */
|
||||||
else
|
else
|
||||||
type = type1;
|
type = type1;
|
||||||
} else if (bt1 == VT_FUNC || bt2 == VT_FUNC) {
|
} else if (bt1 == VT_FUNC || bt2 == VT_FUNC) {
|
||||||
/* XXX: test function pointer compatibility */
|
/* XXX: test function pointer compatibility */
|
||||||
type = bt1 == VT_FUNC ? type1 : type2;
|
type = bt1 == VT_FUNC ? type1 : type2;
|
||||||
|
@ -4783,16 +4783,17 @@ static void label_or_decl(int l)
|
||||||
int last_tok;
|
int last_tok;
|
||||||
|
|
||||||
/* fast test first */
|
/* fast test first */
|
||||||
if (tok >= TOK_UIDENT) {
|
if (tok >= TOK_UIDENT)
|
||||||
/* no need to save tokc because tok is an identifier */
|
{
|
||||||
last_tok = tok;
|
/* no need to save tokc because tok is an identifier */
|
||||||
next();
|
last_tok = tok;
|
||||||
if (tok == ':') {
|
next();
|
||||||
unget_tok(last_tok);
|
if (tok == ':') {
|
||||||
return;
|
unget_tok(last_tok);
|
||||||
}
|
return;
|
||||||
unget_tok(last_tok);
|
}
|
||||||
}
|
unget_tok(last_tok);
|
||||||
|
}
|
||||||
decl(l);
|
decl(l);
|
||||||
}
|
}
|
||||||
|
|
||||||
|
@ -4890,10 +4891,10 @@ static void block(int *bsym, int *csym, int *case_sym, int *def_sym,
|
||||||
Sym *p;
|
Sym *p;
|
||||||
switch(vtop->type.t & VT_BTYPE) {
|
switch(vtop->type.t & VT_BTYPE) {
|
||||||
/* case VT_PTR: */
|
/* case VT_PTR: */
|
||||||
/* this breaks a compilation of the linux kernel v2.4.26 */
|
/* this breaks a compilation of the linux kernel v2.4.26 */
|
||||||
/* pmd_t *new = ({ __asm__ __volatile__("ud2\n") ; ((pmd_t *)1); }); */
|
/* pmd_t *new = ({ __asm__ __volatile__("ud2\n") ; ((pmd_t *)1); }); */
|
||||||
/* Look a commit a80acab: Display error on statement expressions with complex return type */
|
/* Look a commit a80acab: Display error on statement expressions with complex return type */
|
||||||
/* A pointer is not a complex return type */
|
/* A pointer is not a complex return type */
|
||||||
case VT_STRUCT:
|
case VT_STRUCT:
|
||||||
case VT_ENUM:
|
case VT_ENUM:
|
||||||
case VT_FUNC:
|
case VT_FUNC:
|
||||||
|
@ -5641,38 +5642,38 @@ static void decl_initializer(CType *type, Section *sec, unsigned long c,
|
||||||
AttributeDef ad1;
|
AttributeDef ad1;
|
||||||
CType type1;
|
CType type1;
|
||||||
next();
|
next();
|
||||||
if (tcc_state->old_struct_init_code) {
|
if (tcc_state->old_struct_init_code) {
|
||||||
/* an old version of struct initialization.
|
/* an old version of struct initialization.
|
||||||
It have a problems. But with a new version
|
It have a problems. But with a new version
|
||||||
linux 2.4.26 can't load ramdisk.
|
linux 2.4.26 can't load ramdisk.
|
||||||
*/
|
*/
|
||||||
while (tok == '(') {
|
while (tok == '(') {
|
||||||
par_count++;
|
par_count++;
|
||||||
next();
|
next();
|
||||||
}
|
}
|
||||||
if (!parse_btype(&type1, &ad1))
|
if (!parse_btype(&type1, &ad1))
|
||||||
expect("cast");
|
expect("cast");
|
||||||
type_decl(&type1, &ad1, &n, TYPE_ABSTRACT);
|
type_decl(&type1, &ad1, &n, TYPE_ABSTRACT);
|
||||||
#if 0
|
#if 0
|
||||||
if (!is_assignable_types(type, &type1))
|
if (!is_assignable_types(type, &type1))
|
||||||
tcc_error("invalid type for cast");
|
tcc_error("invalid type for cast");
|
||||||
#endif
|
#endif
|
||||||
skip(')');
|
skip(')');
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
if (tok != '(') {
|
if (tok != '(') {
|
||||||
if (!parse_btype(&type1, &ad1))
|
if (!parse_btype(&type1, &ad1))
|
||||||
expect("cast");
|
expect("cast");
|
||||||
type_decl(&type1, &ad1, &n, TYPE_ABSTRACT);
|
type_decl(&type1, &ad1, &n, TYPE_ABSTRACT);
|
||||||
#if 0
|
#if 0
|
||||||
if (!is_assignable_types(type, &type1))
|
if (!is_assignable_types(type, &type1))
|
||||||
tcc_error("invalid type for cast");
|
tcc_error("invalid type for cast");
|
||||||
#endif
|
#endif
|
||||||
skip(')');
|
skip(')');
|
||||||
} else
|
} else
|
||||||
unget_tok(tok);
|
unget_tok(tok);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
no_oblock = 1;
|
no_oblock = 1;
|
||||||
|
@ -5698,28 +5699,28 @@ static void decl_initializer(CType *type, Section *sec, unsigned long c,
|
||||||
|
|
||||||
/* gr: skip fields from same union - ugly. */
|
/* gr: skip fields from same union - ugly. */
|
||||||
while (f->next) {
|
while (f->next) {
|
||||||
int align = 0;
|
int align = 0;
|
||||||
int f_size = type_size(&f->type, &align);
|
int f_size = type_size(&f->type, &align);
|
||||||
int f_type = (f->type.t & VT_BTYPE);
|
int f_type = (f->type.t & VT_BTYPE);
|
||||||
|
|
||||||
///printf("index: %2d %08x -- %2d %08x\n", f->c, f->type.t, f->next->c, f->next->type.t);
|
///printf("index: %2d %08x -- %2d %08x\n", f->c, f->type.t, f->next->c, f->next->type.t);
|
||||||
/* test for same offset */
|
/* test for same offset */
|
||||||
if (f->next->c != f->c)
|
if (f->next->c != f->c)
|
||||||
break;
|
break;
|
||||||
if ((f_type == VT_STRUCT) && (f_size == 0)) {
|
if ((f_type == VT_STRUCT) && (f_size == 0)) {
|
||||||
/*
|
/*
|
||||||
Lets assume a structure of size 0 can't be a member of the union.
|
Lets assume a structure of size 0 can't be a member of the union.
|
||||||
This allow to compile the following code from a linux kernel v2.4.26
|
This allow to compile the following code from a linux kernel v2.4.26
|
||||||
typedef struct { } rwlock_t;
|
typedef struct { } rwlock_t;
|
||||||
struct fs_struct {
|
struct fs_struct {
|
||||||
int count;
|
int count;
|
||||||
rwlock_t lock;
|
rwlock_t lock;
|
||||||
int umask;
|
int umask;
|
||||||
};
|
};
|
||||||
struct fs_struct init_fs = { { (1) }, (rwlock_t) {}, 0022, };
|
struct fs_struct init_fs = { { (1) }, (rwlock_t) {}, 0022, };
|
||||||
tcc-0.9.23 can succesfully compile this version of the kernel.
|
tcc-0.9.23 can succesfully compile this version of the kernel.
|
||||||
gcc don't have problems with this code too.
|
gcc don't have problems with this code too.
|
||||||
*/
|
*/
|
||||||
break;
|
break;
|
||||||
}
|
}
|
||||||
/* if yes, test for bitfield shift */
|
/* if yes, test for bitfield shift */
|
||||||
|
@ -5759,21 +5760,21 @@ static void decl_initializer(CType *type, Section *sec, unsigned long c,
|
||||||
/* just skip expression */
|
/* just skip expression */
|
||||||
parlevel = parlevel1 = 0;
|
parlevel = parlevel1 = 0;
|
||||||
while ((parlevel > 0 || parlevel1 > 0 ||
|
while ((parlevel > 0 || parlevel1 > 0 ||
|
||||||
(tok != '}' && tok != ',')) && tok != -1) {
|
(tok != '}' && tok != ',')) && tok != -1) {
|
||||||
if (tok == '(')
|
if (tok == '(')
|
||||||
parlevel++;
|
parlevel++;
|
||||||
else if (tok == ')') {
|
else if (tok == ')') {
|
||||||
if (parlevel == 0 && parlevel1 == 0)
|
if (parlevel == 0 && parlevel1 == 0)
|
||||||
break;
|
break;
|
||||||
parlevel--;
|
parlevel--;
|
||||||
}
|
}
|
||||||
else if (tok == '{')
|
else if (tok == '{')
|
||||||
parlevel1++;
|
parlevel1++;
|
||||||
else if (tok == '}') {
|
else if (tok == '}') {
|
||||||
if (parlevel == 0 && parlevel1 == 0)
|
if (parlevel == 0 && parlevel1 == 0)
|
||||||
break;
|
break;
|
||||||
parlevel1--;
|
parlevel1--;
|
||||||
}
|
}
|
||||||
next();
|
next();
|
||||||
}
|
}
|
||||||
} else {
|
} else {
|
||||||
|
@ -5994,12 +5995,12 @@ static void decl_initializer_alloc(CType *type, AttributeDef *ad, int r,
|
||||||
} else {
|
} else {
|
||||||
/* push global reference */
|
/* push global reference */
|
||||||
sym = get_sym_ref(type, sec, addr, size);
|
sym = get_sym_ref(type, sec, addr, size);
|
||||||
vpushsym(type, sym);
|
vpushsym(type, sym);
|
||||||
}
|
}
|
||||||
/* patch symbol weakness */
|
/* patch symbol weakness */
|
||||||
if (type->t & VT_WEAK)
|
if (type->t & VT_WEAK)
|
||||||
weaken_symbol(sym);
|
weaken_symbol(sym);
|
||||||
apply_visibility(sym, type);
|
apply_visibility(sym, type);
|
||||||
#ifdef CONFIG_TCC_BCHECK
|
#ifdef CONFIG_TCC_BCHECK
|
||||||
/* handles bounds now because the symbol must be defined
|
/* handles bounds now because the symbol must be defined
|
||||||
before for the relocation */
|
before for the relocation */
|
||||||
|
@ -6235,11 +6236,11 @@ static int decl0(int l, int is_for_loop_init)
|
||||||
if (((btype.t & VT_BTYPE) == VT_ENUM ||
|
if (((btype.t & VT_BTYPE) == VT_ENUM ||
|
||||||
(btype.t & VT_BTYPE) == VT_STRUCT) &&
|
(btype.t & VT_BTYPE) == VT_STRUCT) &&
|
||||||
tok == ';') {
|
tok == ';') {
|
||||||
if ((btype.t & VT_BTYPE) == VT_STRUCT) {
|
if ((btype.t & VT_BTYPE) == VT_STRUCT) {
|
||||||
int v = btype.ref->v;
|
int v = btype.ref->v;
|
||||||
if (!(v & SYM_FIELD) && (v & ~SYM_STRUCT) >= SYM_FIRST_ANOM)
|
if (!(v & SYM_FIELD) && (v & ~SYM_STRUCT) >= SYM_FIRST_ANOM)
|
||||||
tcc_warning("unnamed struct/union that defines no instances");
|
tcc_warning("unnamed struct/union that defines no instances");
|
||||||
}
|
}
|
||||||
next();
|
next();
|
||||||
continue;
|
continue;
|
||||||
}
|
}
|
||||||
|
@ -6285,7 +6286,7 @@ static int decl0(int l, int is_for_loop_init)
|
||||||
if (ad.a.func_export)
|
if (ad.a.func_export)
|
||||||
type.t |= VT_EXPORT;
|
type.t |= VT_EXPORT;
|
||||||
#endif
|
#endif
|
||||||
type.t |= ad.a.visibility << VT_VIS_SHIFT;
|
type.t |= ad.a.visibility << VT_VIS_SHIFT;
|
||||||
|
|
||||||
if (tok == '{') {
|
if (tok == '{') {
|
||||||
if (l == VT_LOCAL)
|
if (l == VT_LOCAL)
|
||||||
|
@ -6326,10 +6327,10 @@ static int decl0(int l, int is_for_loop_init)
|
||||||
if (sym->type.t & VT_STATIC)
|
if (sym->type.t & VT_STATIC)
|
||||||
type.t = (type.t & ~VT_EXTERN) | VT_STATIC;
|
type.t = (type.t & ~VT_EXTERN) | VT_STATIC;
|
||||||
|
|
||||||
/* If the definition has no visibility use the
|
/* If the definition has no visibility use the
|
||||||
one from prototype. */
|
one from prototype. */
|
||||||
if (! (type.t & VT_VIS_MASK))
|
if (! (type.t & VT_VIS_MASK))
|
||||||
type.t |= sym->type.t & VT_VIS_MASK;
|
type.t |= sym->type.t & VT_VIS_MASK;
|
||||||
|
|
||||||
if (!is_compatible_types(&sym->type, &type)) {
|
if (!is_compatible_types(&sym->type, &type)) {
|
||||||
func_error1:
|
func_error1:
|
|
@ -398,22 +398,22 @@ static int pe_find_import(TCCState * s1, ElfW(Sym) *sym)
|
||||||
s = pe_export_name(s1, sym);
|
s = pe_export_name(s1, sym);
|
||||||
if (n) {
|
if (n) {
|
||||||
/* second try: */
|
/* second try: */
|
||||||
if (sym->st_other & ST_PE_STDCALL) {
|
if (sym->st_other & ST_PE_STDCALL) {
|
||||||
/* try w/0 stdcall deco (windows API convention) */
|
/* try w/0 stdcall deco (windows API convention) */
|
||||||
p = strrchr(s, '@');
|
p = strrchr(s, '@');
|
||||||
if (!p || s[0] != '_')
|
if (!p || s[0] != '_')
|
||||||
break;
|
break;
|
||||||
strcpy(buffer, s+1)[p-s-1] = 0;
|
strcpy(buffer, s+1)[p-s-1] = 0;
|
||||||
} else if (s[0] != '_') { /* try non-ansi function */
|
} else if (s[0] != '_') { /* try non-ansi function */
|
||||||
buffer[0] = '_', strcpy(buffer + 1, s);
|
buffer[0] = '_', strcpy(buffer + 1, s);
|
||||||
} else if (0 == memcmp(s, "__imp__", 7)) { /* mingw 2.0 */
|
} else if (0 == memcmp(s, "__imp__", 7)) { /* mingw 2.0 */
|
||||||
strcpy(buffer, s + 6);
|
strcpy(buffer, s + 6);
|
||||||
} else if (0 == memcmp(s, "_imp___", 7)) { /* mingw 3.7 */
|
} else if (0 == memcmp(s, "_imp___", 7)) { /* mingw 3.7 */
|
||||||
strcpy(buffer, s + 6);
|
strcpy(buffer, s + 6);
|
||||||
} else {
|
} else {
|
||||||
break;
|
break;
|
||||||
}
|
}
|
||||||
s = buffer;
|
s = buffer;
|
||||||
}
|
}
|
||||||
sym_index = find_elf_sym(s1->dynsymtab_section, s);
|
sym_index = find_elf_sym(s1->dynsymtab_section, s);
|
||||||
// printf("find (%d) %d %s\n", n, sym_index, s);
|
// printf("find (%d) %d %s\n", n, sym_index, s);
|
||||||
|
@ -1636,7 +1636,7 @@ quit:
|
||||||
|
|
||||||
/* ------------------------------------------------------------- */
|
/* ------------------------------------------------------------- */
|
||||||
#define TINY_IMPDEF_GET_EXPORT_NAMES_ONLY
|
#define TINY_IMPDEF_GET_EXPORT_NAMES_ONLY
|
||||||
#include "../win32/tools/tiny_impdef.c"
|
#include "win32/tools/tiny_impdef.c"
|
||||||
|
|
||||||
static int pe_load_dll(TCCState *s1, const char *dllname, int fd)
|
static int pe_load_dll(TCCState *s1, const char *dllname, int fd)
|
||||||
{
|
{
|
||||||
|
@ -1841,13 +1841,13 @@ ST_FUNC int pe_output_file(TCCState * s1, const char *filename)
|
||||||
pe.subsystem = s1->pe_subsystem;
|
pe.subsystem = s1->pe_subsystem;
|
||||||
|
|
||||||
/* set default file/section alignment */
|
/* set default file/section alignment */
|
||||||
if (pe.subsystem == 1) {
|
if (pe.subsystem == 1) {
|
||||||
pe.section_align = 0x20;
|
pe.section_align = 0x20;
|
||||||
pe.file_align = 0x20;
|
pe.file_align = 0x20;
|
||||||
} else {
|
} else {
|
||||||
pe.section_align = 0x1000;
|
pe.section_align = 0x1000;
|
||||||
pe.file_align = 0x200;
|
pe.file_align = 0x200;
|
||||||
}
|
}
|
||||||
|
|
||||||
if (s1->section_align != 0)
|
if (s1->section_align != 0)
|
||||||
pe.section_align = s1->section_align;
|
pe.section_align = s1->section_align;
|
|
@ -786,7 +786,7 @@ redo_start:
|
||||||
else if (tok == TOK_LINEFEED)
|
else if (tok == TOK_LINEFEED)
|
||||||
goto redo_start;
|
goto redo_start;
|
||||||
} else if (parse_flags & PARSE_FLAG_ASM_FILE)
|
} else if (parse_flags & PARSE_FLAG_ASM_FILE)
|
||||||
p = parse_line_comment(p);
|
p = parse_line_comment(p);
|
||||||
break;
|
break;
|
||||||
_default:
|
_default:
|
||||||
default:
|
default:
|
||||||
|
@ -1786,7 +1786,7 @@ _line_num:
|
||||||
total_lines += file->line_num - n;
|
total_lines += file->line_num - n;
|
||||||
file->line_num = n;
|
file->line_num = n;
|
||||||
if (s1->do_debug)
|
if (s1->do_debug)
|
||||||
put_stabs(file->filename, N_BINCL, 0, 0, 0);
|
put_stabs(file->filename, N_BINCL, 0, 0, 0);
|
||||||
break;
|
break;
|
||||||
case TOK_ERROR:
|
case TOK_ERROR:
|
||||||
case TOK_WARNING:
|
case TOK_WARNING:
|
||||||
|
@ -2272,7 +2272,7 @@ static void parse_number(const char *p)
|
||||||
if (n & 0xffffffff00000000LL || must_64bit) {
|
if (n & 0xffffffff00000000LL || must_64bit) {
|
||||||
tok = TOK_CLLONG;
|
tok = TOK_CLLONG;
|
||||||
n1 = n >> 32;
|
n1 = n >> 32;
|
||||||
} else {
|
} else {
|
||||||
tok = TOK_CINT;
|
tok = TOK_CINT;
|
||||||
n1 = n;
|
n1 = n;
|
||||||
}
|
}
|
||||||
|
@ -2538,7 +2538,7 @@ maybe_newline:
|
||||||
} else if (c == '.') {
|
} else if (c == '.') {
|
||||||
PEEKC(c, p);
|
PEEKC(c, p);
|
||||||
if (c != '.')
|
if (c != '.')
|
||||||
expect("'.'");
|
expect("'.'");
|
||||||
PEEKC(c, p);
|
PEEKC(c, p);
|
||||||
tok = TOK_DOTS;
|
tok = TOK_DOTS;
|
||||||
} else {
|
} else {
|
|
@ -127,7 +127,7 @@ LIBTCCAPI int tcc_run(TCCState *s1, int argc, char **argv)
|
||||||
for (i=0; i<argc; ++i)
|
for (i=0; i<argc; ++i)
|
||||||
bound_new_region(argv[i], strlen(argv[i]));
|
bound_new_region(argv[i], strlen(argv[i]));
|
||||||
|
|
||||||
errno = 0; /* clean errno value */
|
errno = 0; /* clean errno value */
|
||||||
ret = (*prog_main)(argc, argv);
|
ret = (*prog_main)(argc, argv);
|
||||||
|
|
||||||
/* unmark argv area */
|
/* unmark argv area */
|
||||||
|
@ -139,7 +139,7 @@ LIBTCCAPI int tcc_run(TCCState *s1, int argc, char **argv)
|
||||||
} else
|
} else
|
||||||
#endif
|
#endif
|
||||||
{
|
{
|
||||||
errno = 0; /* clean errno value */
|
errno = 0; /* clean errno value */
|
||||||
ret = (*prog_main)(argc, argv);
|
ret = (*prog_main)(argc, argv);
|
||||||
}
|
}
|
||||||
return ret;
|
return ret;
|
||||||
|
@ -652,7 +652,7 @@ static long __stdcall cpu_exception_handler(EXCEPTION_POINTERS *ex_info)
|
||||||
if (rt_bound_error_msg && *rt_bound_error_msg)
|
if (rt_bound_error_msg && *rt_bound_error_msg)
|
||||||
rt_error(uc, *rt_bound_error_msg);
|
rt_error(uc, *rt_bound_error_msg);
|
||||||
else
|
else
|
||||||
rt_error(uc, "access violation");
|
rt_error(uc, "access violation");
|
||||||
break;
|
break;
|
||||||
case EXCEPTION_STACK_OVERFLOW:
|
case EXCEPTION_STACK_OVERFLOW:
|
||||||
rt_error(uc, "stack overflow");
|
rt_error(uc, "stack overflow");
|
||||||
|
@ -697,12 +697,12 @@ static int rt_get_caller_pc(addr_t *paddr, CONTEXT *uc, int level)
|
||||||
fp = uc->Ebp;
|
fp = uc->Ebp;
|
||||||
#endif
|
#endif
|
||||||
if (level > 0) {
|
if (level > 0) {
|
||||||
for(i = 1; i < level; i++) {
|
for(i=1;i<level;i++) {
|
||||||
/* XXX: check address validity with program info */
|
/* XXX: check address validity with program info */
|
||||||
if (fp <= 0x1000 || fp >= 0xc0000000)
|
if (fp <= 0x1000 || fp >= 0xc0000000)
|
||||||
return -1;
|
return -1;
|
||||||
fp = ((addr_t*)fp)[0];
|
fp = ((addr_t*)fp)[0];
|
||||||
}
|
}
|
||||||
pc = ((addr_t*)fp)[1];
|
pc = ((addr_t*)fp)[1];
|
||||||
}
|
}
|
||||||
*paddr = pc;
|
*paddr = pc;
|
|
@ -331,5 +331,5 @@
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if defined TCC_TARGET_I386 || defined TCC_TARGET_X86_64
|
#if defined TCC_TARGET_I386 || defined TCC_TARGET_X86_64
|
||||||
#include "x86/i386-tok.h"
|
#include "i386-tok.h"
|
||||||
#endif
|
#endif
|
|
@ -2,7 +2,7 @@
|
||||||
# Tiny C Compiler Makefile - tests
|
# Tiny C Compiler Makefile - tests
|
||||||
#
|
#
|
||||||
|
|
||||||
TOP = ../src
|
TOP = ..
|
||||||
include $(TOP)/Makefile
|
include $(TOP)/Makefile
|
||||||
SRCDIR = $(top_srcdir)/tests
|
SRCDIR = $(top_srcdir)/tests
|
||||||
VPATH = $(SRCDIR) $(top_srcdir)
|
VPATH = $(SRCDIR) $(top_srcdir)
|
||||||
|
@ -60,11 +60,11 @@ ifeq ($(TARGETOS),Darwin)
|
||||||
endif
|
endif
|
||||||
|
|
||||||
# run local version of tcc with local libraries and includes
|
# run local version of tcc with local libraries and includes
|
||||||
TCCFLAGS = -B$(TOP)/../lib -I$(TOP) -I$(top_srcdir) -I$(top_srcdir)/../include -L$(TOP)
|
TCCFLAGS = -B$(TOP) -I$(TOP) -I$(top_srcdir) -I$(top_srcdir)/include -L$(TOP)
|
||||||
ifdef CONFIG_WIN32
|
ifdef CONFIG_WIN32
|
||||||
TCCFLAGS = -B$(top_srcdir)/win32 -I$(top_srcdir) -I$(top_srcdir)/../include -L$(TOP)
|
TCCFLAGS = -B$(top_srcdir)/win32 -I$(top_srcdir) -I$(top_srcdir)/include -L$(TOP)
|
||||||
endif
|
endif
|
||||||
XTCCFLAGS = -B$(TOP)/../lib -B$(top_srcdir)/win32 -I$(TOP) -I$(top_srcdir) -I$(top_srcdir)/../include
|
XTCCFLAGS = -B$(TOP) -B$(top_srcdir)/win32 -I$(TOP) -I$(top_srcdir) -I$(top_srcdir)/include
|
||||||
|
|
||||||
TCC = $(TOP)/tcc $(TCCFLAGS)
|
TCC = $(TOP)/tcc $(TCCFLAGS)
|
||||||
RUN_TCC = $(NATIVE_DEFINES) -DONE_SOURCE -run $(top_srcdir)/tcc.c $(TCCFLAGS)
|
RUN_TCC = $(NATIVE_DEFINES) -DONE_SOURCE -run $(top_srcdir)/tcc.c $(TCCFLAGS)
|
||||||
|
@ -73,7 +73,7 @@ DISAS = objdump -d
|
||||||
|
|
||||||
# libtcc test
|
# libtcc test
|
||||||
ifdef LIBTCC1
|
ifdef LIBTCC1
|
||||||
LIBTCC1:=$(TOP)/lib/$(LIBTCC1)
|
LIBTCC1:=$(TOP)/$(LIBTCC1)
|
||||||
endif
|
endif
|
||||||
|
|
||||||
all test : $(TESTS)
|
all test : $(TESTS)
|
||||||
|
|
|
@ -2,7 +2,7 @@
|
||||||
# credits: 01..13.c from the pcc cpp-tests suite
|
# credits: 01..13.c from the pcc cpp-tests suite
|
||||||
#
|
#
|
||||||
|
|
||||||
TCC = ../../src/tcc
|
TCC = ../../tcc
|
||||||
TESTS = $(patsubst %.c,%.test,$(wildcard *.c))
|
TESTS = $(patsubst %.c,%.test,$(wildcard *.c))
|
||||||
|
|
||||||
all test : $(TESTS)
|
all test : $(TESTS)
|
||||||
|
|
|
@ -1,4 +1,4 @@
|
||||||
TOP = ../../src
|
TOP = ../..
|
||||||
include $(TOP)/Makefile
|
include $(TOP)/Makefile
|
||||||
|
|
||||||
# clear CFLAGS and LDFLAGS
|
# clear CFLAGS and LDFLAGS
|
||||||
|
@ -6,9 +6,9 @@ CFLAGS :=
|
||||||
LDFLAGS :=
|
LDFLAGS :=
|
||||||
|
|
||||||
ifdef CONFIG_WIN32
|
ifdef CONFIG_WIN32
|
||||||
TCCFLAGS = -B$(top_srcdir)/win32 -I$(top_srcdir)/../include -L$(TOP)
|
TCCFLAGS = -B$(top_srcdir)/win32 -I$(top_srcdir)/include -L$(TOP)
|
||||||
else
|
else
|
||||||
TCCFLAGS = -B$(TOP)/../lib -I$(top_srcdir)/../include -lm
|
TCCFLAGS = -B$(TOP) -I$(top_srcdir)/include -lm
|
||||||
endif
|
endif
|
||||||
|
|
||||||
ifeq ($(TARGETOS),Darwin)
|
ifeq ($(TARGETOS),Darwin)
|
||||||
|
|
|
@ -21,7 +21,7 @@
|
||||||
#include <stdio.h>
|
#include <stdio.h>
|
||||||
#include <stdlib.h>
|
#include <stdlib.h>
|
||||||
#include <string.h>
|
#include <string.h>
|
||||||
#include "../../src/elf.h"
|
#include "../../elf.h"
|
||||||
|
|
||||||
#ifdef TCC_TARGET_X86_64
|
#ifdef TCC_TARGET_X86_64
|
||||||
# define ELFCLASSW ELFCLASS64
|
# define ELFCLASSW ELFCLASS64
|
||||||
|
|
|
@ -136,7 +136,7 @@ enum {
|
||||||
/******************************************************/
|
/******************************************************/
|
||||||
#else /* ! TARGET_DEFS_ONLY */
|
#else /* ! TARGET_DEFS_ONLY */
|
||||||
/******************************************************/
|
/******************************************************/
|
||||||
#include "../tcc.h"
|
#include "tcc.h"
|
||||||
#include <assert.h>
|
#include <assert.h>
|
||||||
|
|
||||||
ST_DATA const int reg_classes[NB_REGS] = {
|
ST_DATA const int reg_classes[NB_REGS] = {
|
||||||
|
@ -477,17 +477,18 @@ void load(int r, SValue *sv)
|
||||||
gen_modrm(r, VT_LOCAL, sv->sym, fc);
|
gen_modrm(r, VT_LOCAL, sv->sym, fc);
|
||||||
} else if (v == VT_CMP) {
|
} else if (v == VT_CMP) {
|
||||||
orex(0,r,0,0);
|
orex(0,r,0,0);
|
||||||
if ((fc & ~0x100) != TOK_NE)
|
if ((fc & ~0x100) != TOK_NE)
|
||||||
oad(0xb8 + REG_VALUE(r), 0); /* mov $0, r */
|
oad(0xb8 + REG_VALUE(r), 0); /* mov $0, r */
|
||||||
else
|
else
|
||||||
oad(0xb8 + REG_VALUE(r), 1); /* mov $1, r */
|
oad(0xb8 + REG_VALUE(r), 1); /* mov $1, r */
|
||||||
if (fc & 0x100) {
|
if (fc & 0x100)
|
||||||
/* This was a float compare. If the parity bit is
|
{
|
||||||
* set the result was unordered, meaning false for everything
|
/* This was a float compare. If the parity bit is
|
||||||
* except TOK_NE, and true for TOK_NE. */
|
set the result was unordered, meaning false for everything
|
||||||
fc &= ~0x100;
|
except TOK_NE, and true for TOK_NE. */
|
||||||
o(0x037a + (REX_BASE(r) << 8));
|
fc &= ~0x100;
|
||||||
}
|
o(0x037a + (REX_BASE(r) << 8));
|
||||||
|
}
|
||||||
orex(0,r,0, 0x0f); /* setxx %br */
|
orex(0,r,0, 0x0f); /* setxx %br */
|
||||||
o(fc);
|
o(fc);
|
||||||
o(0xc0 + REG_VALUE(r));
|
o(0xc0 + REG_VALUE(r));
|
||||||
|
@ -618,7 +619,7 @@ static void gcall_or_jmp(int is_jmp)
|
||||||
{
|
{
|
||||||
int r;
|
int r;
|
||||||
if ((vtop->r & (VT_VALMASK | VT_LVAL)) == VT_CONST &&
|
if ((vtop->r & (VT_VALMASK | VT_LVAL)) == VT_CONST &&
|
||||||
((vtop->r & VT_SYM) || (vtop->c.ll-4) == (int)(vtop->c.ll-4))) {
|
((vtop->r & VT_SYM) || (vtop->c.ll-4) == (int)(vtop->c.ll-4))) {
|
||||||
/* constant case */
|
/* constant case */
|
||||||
if (vtop->r & VT_SYM) {
|
if (vtop->r & VT_SYM) {
|
||||||
/* relocation case */
|
/* relocation case */
|
||||||
|
@ -1704,7 +1705,7 @@ void gfunc_prolog(CType *func_type)
|
||||||
param_addr = addr;
|
param_addr = addr;
|
||||||
addr += size;
|
addr += size;
|
||||||
break;
|
break;
|
||||||
default: break; /* nothing to be done for x86_64_mode_none */
|
default: break; /* nothing to be done for x86_64_mode_none */
|
||||||
}
|
}
|
||||||
sym_push(sym->v & ~SYM_FIELD, type,
|
sym_push(sym->v & ~SYM_FIELD, type,
|
||||||
VT_LOCAL | VT_LVAL, param_addr);
|
VT_LOCAL | VT_LVAL, param_addr);
|
||||||
|
@ -1716,8 +1717,8 @@ void gfunc_prolog(CType *func_type)
|
||||||
func_bound_offset = lbounds_section->data_offset;
|
func_bound_offset = lbounds_section->data_offset;
|
||||||
func_bound_ind = ind;
|
func_bound_ind = ind;
|
||||||
oad(0xb8, 0); /* lbound section pointer */
|
oad(0xb8, 0); /* lbound section pointer */
|
||||||
o(0xc78948); /* mov %rax,%rdi ## first arg in %rdi, this must be ptr */
|
o(0xc78948); /* mov %rax,%rdi ## first arg in %rdi, this must be ptr */
|
||||||
oad(0xb8, 0); /* call to function */
|
oad(0xb8, 0); /* call to function */
|
||||||
}
|
}
|
||||||
#endif
|
#endif
|
||||||
}
|
}
|
||||||
|
@ -1729,7 +1730,7 @@ void gfunc_epilog(void)
|
||||||
|
|
||||||
#ifdef CONFIG_TCC_BCHECK
|
#ifdef CONFIG_TCC_BCHECK
|
||||||
if (tcc_state->do_bounds_check
|
if (tcc_state->do_bounds_check
|
||||||
&& func_bound_offset != lbounds_section->data_offset)
|
&& func_bound_offset != lbounds_section->data_offset)
|
||||||
{
|
{
|
||||||
addr_t saved_ind;
|
addr_t saved_ind;
|
||||||
addr_t *bounds_ptr;
|
addr_t *bounds_ptr;
|
||||||
|
@ -1753,7 +1754,7 @@ void gfunc_epilog(void)
|
||||||
o(0x5250); /* save returned value, if any */
|
o(0x5250); /* save returned value, if any */
|
||||||
greloc(cur_text_section, sym_data, ind + 1, R_386_32);
|
greloc(cur_text_section, sym_data, ind + 1, R_386_32);
|
||||||
oad(0xb8, 0); /* mov xxx, %rax */
|
oad(0xb8, 0); /* mov xxx, %rax */
|
||||||
o(0xc78948); /* mov %rax,%rdi ## first arg in %rdi, this must be ptr */
|
o(0xc78948); /* mov %rax,%rdi ## first arg in %rdi, this must be ptr */
|
||||||
gen_static_call(TOK___bound_local_delete);
|
gen_static_call(TOK___bound_local_delete);
|
||||||
o(0x585a); /* restore returned value, if any */
|
o(0x585a); /* restore returned value, if any */
|
||||||
}
|
}
|
||||||
|
@ -1805,23 +1806,24 @@ int gtst(int inv, int t)
|
||||||
v = vtop->r & VT_VALMASK;
|
v = vtop->r & VT_VALMASK;
|
||||||
if (v == VT_CMP) {
|
if (v == VT_CMP) {
|
||||||
/* fast case : can jump directly since flags are set */
|
/* fast case : can jump directly since flags are set */
|
||||||
if (vtop->c.i & 0x100)
|
if (vtop->c.i & 0x100)
|
||||||
{
|
{
|
||||||
/* This was a float compare. If the parity flag is set
|
/* This was a float compare. If the parity flag is set
|
||||||
the result was unordered. For anything except != this
|
the result was unordered. For anything except != this
|
||||||
means false and we don't jump (anding both conditions).
|
means false and we don't jump (anding both conditions).
|
||||||
For != this means true (oring both).
|
For != this means true (oring both).
|
||||||
Take care about inverting the test. We need to jump
|
Take care about inverting the test. We need to jump
|
||||||
to our target if the result was unordered and test wasn't NE,
|
to our target if the result was unordered and test wasn't NE,
|
||||||
otherwise if unordered we don't want to jump. */
|
otherwise if unordered we don't want to jump. */
|
||||||
vtop->c.i &= ~0x100;
|
vtop->c.i &= ~0x100;
|
||||||
if (!inv == (vtop->c.i != TOK_NE))
|
if (!inv == (vtop->c.i != TOK_NE))
|
||||||
o(0x067a); /* jp +6 */
|
o(0x067a); /* jp +6 */
|
||||||
else {
|
else
|
||||||
g(0x0f);
|
{
|
||||||
t = psym(0x8a, t); /* jp t */
|
g(0x0f);
|
||||||
}
|
t = psym(0x8a, t); /* jp t */
|
||||||
}
|
}
|
||||||
|
}
|
||||||
g(0x0f);
|
g(0x0f);
|
||||||
t = psym((vtop->c.i - 16) ^ inv, t);
|
t = psym((vtop->c.i - 16) ^ inv, t);
|
||||||
} else if (v == VT_JMP || v == VT_JMPI) {
|
} else if (v == VT_JMP || v == VT_JMPI) {
|
Loading…
Reference in New Issue