Alien-TinyCC
view release on metacpan or search on metacpan
src/COPYING view on Meta::CPAN
Otherwise,ifthe work is a derivative of the Library, you maydistribute the object codeforthe work under the terms of Section 6.Any executables containing that work also fall under Section 6,whether or not they are linked directlywiththe Library itself.6. As an exception to the Sections above, you may also combine orlinka"work that uses the Library"withthe Library to produce awork containing portions of the Library, and distribute that workunder terms of your choice, provided that the terms permitengineeringfordebugging such modifications.You must give prominent noticewitheachcopy of the work that thethis License. You must supply a copy of this License. If the workduring execution displays copyright notices, you must include thecopyright noticeforthe Library among them, as well as a referencedirecting the user to the copy of this License. Also, you mustdooneof these things:a) Accompany the workwiththe complete corresponding
src/Changelog view on Meta::CPAN
- removed size limit on strings. Unified string constants handlingwithvariable declarations.- added correct supportfor'\xX'in wchar_t strings.- added supportforbound checking in generated executables- fixed -I include order.- fixed incorrect function displayed in runtime error.version 0.9.9:- fixed preprocessor expression parsingfor#if/#elif.- relocated debug info (.stab section).- relocated bounds info (.bounds section).- fixed cast to char of char constants ('\377'is -1 instead of 255)- fixed implicit castforunary plus.- strings and'__func__'have now'char[]'type instead of'char *'(fixes sizeof()returnvalue).- added __start_xxx and __stop_xxx symbols in linker.- better DLL creation support (option -shared begins to work).- ELF sections and hash tables are resized dynamically.- executables and DLLs are stripped bydefault.
src/Changelog view on Meta::CPAN
version 0.9.3:- better and smaller code generator.- full ISOC99 64 bit'long long'support.- full 32 bit'float', 64 bit'double'and 96 bit'long double'support.- added'-U'option.- added assembly sections support.- even faster startuptimeby mmaping sections instead of mallocing them.- added GNUC __attribute__ keyword support (currently supports'section'and'aligned'attributes).- added ELF file output (only usablefordebugging now)- added debug symbol generation (STABformat).- added integrated runtime error analysis ('-g'option:clearruntimeerror messages instead of"Segmentation fault").- added first version of tiny memory and bound checker ('-b'option).version 0.9.2:- even faster parsing.- various syntax parsing fixes.- fixed external relocation handlingforvariables or functions pointers.- better function pointers type handling.
- betterlocalvariables handling (neededforother targets)Not critical:- C99: fix multiple compound literals inits in blocks (ISOC99normative example - only relevantwhenusing gotos! -> must addboolean variable totellifcompound literal was alreadyinitialized).- add PowerPC or ARM code generator and improve codegenforRISC (need- interactive mode / integrated debugger- fix preprocessor symbol redefinition- better constant opt (&&, ||, ?:)- add portable byte code generator and interpreterforotherunsupported architectures.- C++: variable declaration infor, minimal'class'support.check exception code (exception filter func).- handle void (__attribute__()*ptr)()Fixed (probably):
#define n_zeroes _n._n_n._n_zeroes#define n_offset _n._n_n._n_offset/*------------------------------------------------------------------------*//* Relocatable symbols have a section number of the *//* section in which they aredefined. Otherwise, section *//* numbers have the following meanings: *//*------------------------------------------------------------------------*/#define N_UNDEF 0 /* undefined symbol */#define N_ABS -1 /* value of symbol is absolute */#define N_DEBUG -2 /* special debugging symbol */#define N_TV (unsigned short)-3 /* needs transfer vector (preload) */#define P_TV (unsigned short)-4 /* needs transfer vector (postload) *//*------------------------------------------------------------------------*//* The fundamental type of a symbol packed into the low *//* 4 bits of the word. *//*------------------------------------------------------------------------*/#define _EF ".ef"
src/configure view on Meta::CPAN
--extra-cflags= specify compiler flags [$CFLAGS]--extra-ldflags= specify linker options []--strip-binaries strip symbol tables from resulting binaries--disable-static make libtcc.so instead of libtcc.a--with-libgccuse/lib/libgcc_s.so.1 instead of libtcc.a--enable-mingw32 build windows version on linuxwithmingw32--enable-cygwin build windows version on windowswithcygwin--enable-cross build cross compilers--enable-assert enable debug assertions--sysincludepaths=... specifysysteminclude paths, colon separated--libpaths=... specifysystemlibrary paths, colon separated--crtprefix=... specify locations of crt?.o, colon separated--elfinterp=... specify elf interpreterEOF#echo "NOTE: The object files are build at the place where configure is launched"exit1fi
#define DT_SYMENT 11 /* Size of one symbol table entry */#define DT_INIT 12 /* Address of init function */#define DT_FINI 13 /* Address of termination function */#define DT_SONAME 14 /* Name of shared object */#define DT_RPATH 15 /* Library search path */#define DT_SYMBOLIC 16 /* Start symbol search here */#define DT_REL 17 /* Address of Rel relocs */#define DT_RELSZ 18 /* Total size of Rel relocs */#define DT_RELENT 19 /* Size of one Rel reloc */#define DT_PLTREL 20 /* Type of reloc in PLT */#define DT_DEBUG 21 /* For debugging; unspecified */#define DT_TEXTREL 22 /* Reloc might modify .text */#define DT_JMPREL 23 /* Address of PLT relocs */#define DT_BIND_NOW 24 /* Process relocations of object */#define DT_INIT_ARRAY 25 /* Array with addresses of init fct */#define DT_FINI_ARRAY 26 /* Array with addresses of fini fct */#define DT_INIT_ARRAYSZ 27 /* Size in bytes of DT_INIT_ARRAY */#define DT_FINI_ARRAYSZ 28 /* Size in bytes of DT_FINI_ARRAY */#define DT_NUM 29 /* Number used */#define DT_LOOS 0x60000000 /* Start of OS-specific */#define DT_HIOS 0x6fffffff /* End of OS-specific */
#define SHN_MIPS_SCOMMON 0xff03 /* Small common symbols */#define SHN_MIPS_SUNDEFINED 0xff04 /* Small undefined symbols *//* Legalvaluesforsh_type field of Elf32_Shdr. */#define SHT_MIPS_LIBLIST 0x70000000 /* Shared objects used in link */#define SHT_MIPS_MSYM 0x70000001#define SHT_MIPS_CONFLICT 0x70000002 /* Conflicting symbols */#define SHT_MIPS_GPTAB 0x70000003 /* Global data area sizes */#define SHT_MIPS_UCODE 0x70000004 /* Reserved for SGI/MIPS compilers */#define SHT_MIPS_DEBUG 0x70000005 /* MIPS ECOFF debugging information*/#define SHT_MIPS_REGINFO 0x70000006 /* Register usage information */#define SHT_MIPS_PACKAGE 0x70000007#define SHT_MIPS_PACKSYM 0x70000008#define SHT_MIPS_RELD 0x70000009#define SHT_MIPS_IFACE 0x7000000b#define SHT_MIPS_CONTENT 0x7000000c#define SHT_MIPS_OPTIONS 0x7000000d /* Miscellaneous options. */#define SHT_MIPS_SHDR 0x70000010#define SHT_MIPS_FDESC 0x70000011#define SHT_MIPS_EXTSYM 0x70000012
#define SHT_MIPS_PDESC 0x70000014#define SHT_MIPS_LOCSYM 0x70000015#define SHT_MIPS_AUXSYM 0x70000016#define SHT_MIPS_OPTSYM 0x70000017#define SHT_MIPS_LOCSTR 0x70000018#define SHT_MIPS_LINE 0x70000019#define SHT_MIPS_RFDESC 0x7000001a#define SHT_MIPS_DELTASYM 0x7000001b#define SHT_MIPS_DELTAINST 0x7000001c#define SHT_MIPS_DELTACLASS 0x7000001d#define SHT_MIPS_DWARF 0x7000001e /* DWARF debugging information. */#define SHT_MIPS_DELTADECL 0x7000001f#define SHT_MIPS_SYMBOL_LIB 0x70000020#define SHT_MIPS_EVENTS 0x70000021 /* Event section. */#define SHT_MIPS_TRANSLATE 0x70000022#define SHT_MIPS_PIXIE 0x70000023#define SHT_MIPS_XLATE 0x70000024#define SHT_MIPS_XLATE_DEBUG 0x70000025#define SHT_MIPS_WHIRL 0x70000026#define SHT_MIPS_EH_REGION 0x70000027#define SHT_MIPS_XLATE_OLD 0x70000028
#define ODK_TAGS 6 /* reserve space for desktop tools to write. */#define ODK_HWAND 7 /* HW workarounds. 'AND' bits when merging. */#define ODK_HWOR 8 /* HW workarounds. 'OR' bits when merging. *//* Valuesfor`info' in Elf_OptionsforODK_EXCEPTIONS entries. */#define OEX_FPU_MIN 0x1f /* FPE's which MUST be enabled. */#define OEX_FPU_MAX 0x1f00 /* FPE's which MAY be enabled. */#define OEX_PAGE0 0x10000 /* page zero must be mapped. */#define OEX_SMM 0x20000 /* Force sequential memory mode? */#define OEX_FPDBUG 0x40000 /* Force floating point debug mode? */#define OEX_PRECISEFP OEX_FPDBUG#define OEX_DISMISS 0x80000 /* Dismiss invalid address faults? */#define OEX_FPU_INVAL 0x10#define OEX_FPU_DIV0 0x08#define OEX_FPU_OFLO 0x04#define OEX_FPU_UFLO 0x02#define OEX_FPU_INEX 0x01/* Masksfor`info' in Elf_Optionsforan ODK_HWPATCH entry. */
/* Alpha specific definitions. *//* Legalvaluesfore_flags field of Elf64_Ehdr. */#define EF_ALPHA_32BIT 1 /* All addresses must be < 2GB. */#define EF_ALPHA_CANRELAX 2 /* Relocations for relaxing exist. *//* Legalvaluesforsh_type field of Elf64_Shdr. *//* These two are primerily concernedwithECOFF debugging info. */#define SHT_ALPHA_DEBUG 0x70000001#define SHT_ALPHA_REGINFO 0x70000002/* Legalvaluesforsh_flags field of Elf64_Shdr. */#define SHF_ALPHA_GPREL 0x10000000/* Legalvaluesforst_other field of Elf64_Sym. */#define STO_ALPHA_NOPV 0x80 /* No PV required. */#define STO_ALPHA_STD_GPLOAD 0x88 /* PV only used for initial ldgp. */
src/libtcc.c view on Meta::CPAN
printf("%s: **** new file\n", file->filename);#endifpreprocess_init(s1);cur_text_section = NULL;funcname ="";anon_sym = SYM_FIRST_ANOM;/* file info: full path + filename */section_sym = 0; /* avoid warning */if(s1->do_debug) {section_sym = put_elf_sym(symtab_section, 0, 0,ELFW(ST_INFO)(STB_LOCAL, STT_SECTION), 0,text_section->sh_num, NULL);getcwd(buf, sizeof(buf));#ifdef _WIN32normalize_slashes(buf);#endifpstrcat(buf, sizeof(buf),"/");put_stabs_r(buf, N_SO, 0, 0,text_section->data_offset, text_section, section_sym);
src/libtcc.c view on Meta::CPAN
parse_flags = PARSE_FLAG_PREPROCESS | PARSE_FLAG_TOK_NUM;pvtop = vtop;next();decl(VT_CONST);if(tok != TOK_EOF)expect("declaration");if(pvtop != vtop)tcc_warning("internal compiler error: vstack leak? (%d)", vtop - pvtop);/* end of translation unit info */if(s1->do_debug) {put_stabs_r(NULL, N_SO, 0, 0,text_section->data_offset, text_section, section_sym);}}s1->error_set_jmp_enabled = 0;/*resetdefine stack, but leave -Dsymbols (may be incorrectifthey are undefined) */free_defines(define_start);
src/libtcc.c view on Meta::CPAN
SHT_PROGBITS, SHF_ALLOC);lbounds_section = new_section(s,".lbounds",SHT_PROGBITS, SHF_ALLOC);}#endifif(s->char_is_unsigned) {tcc_define_symbol(s,"__CHAR_UNSIGNED__", NULL);}/* add debug sections */if(s->do_debug) {/* stab symbols */stab_section = new_section(s,".stab", SHT_PROGBITS, 0);stab_section->sh_entsize = sizeof(Stab_Sym);stabstr_section = new_section(s,".stabstr", SHT_STRTAB, 0);put_elf_str(stabstr_section,"");stab_section->link= stabstr_section;/* put first entry */put_stabs("", 0, 0, 0, 0);}
src/libtcc.c view on Meta::CPAN
s->do_bench = 1;break;#ifdef CONFIG_TCC_BACKTRACEcase TCC_OPTION_bt:tcc_set_num_callers(atoi(optarg));break;#endif#ifdef CONFIG_TCC_BCHECKcase TCC_OPTION_b:s->do_bounds_check = 1;s->do_debug = 1;break;#endifcase TCC_OPTION_g:s->do_debug = 1;break;case TCC_OPTION_c:s->output_type = TCC_OUTPUT_OBJ;break;case TCC_OPTION_static:s->static_link = 1;break;case TCC_OPTION_shared:s->output_type = TCC_OUTPUT_DLL;break;
#ifndef __GNU_STAB__/* Indicate the GNU stab.h is inuse. */#define __GNU_STAB__#define __define_stab(NAME, CODE, STRING) NAME=CODE,enum __stab_debug_code{#include "stab.def"LAST_UNUSED_STAB_CODE};#undef __define_stab#endif /* __GNU_STAB_ */
src/tcc-doc.texi view on Meta::CPAN
@item-Wl,-BsymbolicSet DT_SYMBOLIC tag.@endtableDebugger options:@table@option@item-gGenerate runtimedebug information so that you get clear runtimeerror messages:@code{ test.c:68: in function'test5()': dereferencinginvalid pointer} instead of the laconic@code{Segmentationfault}.@item-bGenerate additional support code to checkmemory allocations and array/pointer bounds.@option{-g} is implied. Notethat the generated code is slower and bigger in this case.Note:@option{-b} is only available on i386forthe moment.
src/tcc-doc.texi view on Meta::CPAN
@itembss_sectioncontains uninitialized data@itembounds_section@itemxlbounds_sectionare usedwhenbound checking is activated@itemstab_section@itemxstabstr_sectionare usedwhendebugging is actived to store debug information@itemsymtab_section@itemxstrtab_sectioncontain the exported symbols (currently only usedfordebugging).@endtable@sectionCode generation@cindexcode generation@subsectionIntroductionThe TCC code generator directly generates linked binary code in onepass. It is rather unusual these days (see gccforexample which
" -Ldir add library path 'dir'\n"" -llib link with dynamic or static library 'lib'\n"" -pthread link with -lpthread and -D_REENTRANT (POSIX Linux)\n"" -r generate (relocatable) object file\n"" -rdynamic export all global symbols to dynamic linker\n"" -shared generate a shared library\n"" -soname set name for shared library to be used at runtime\n"" -static static linking\n"" -Wl,-opt[=val] set linker option (see manual)\n""Debugger options:\n"" -g generate runtime debug info\n"#ifdef CONFIG_TCC_BCHECK" -b compile with built-in memory and bounds checker (implies -g)\n"#endif#ifdef CONFIG_TCC_BACKTRACE" -bt N show N callers in stack traces\n"#endif"Misc options:\n"" -nostdinc do not use standard system include paths\n"" -nostdlib do not link with standard crt and libraries\n"" -Bdir use 'dir' as tcc internal library and include path\n"
# define SHT_RELX SHT_REL# define REL_SECTION_FMT ".rel%s"#endif/* target address type */#define addr_t ElfW(Addr)#include "stab.h"#include "libtcc.h"/* parser debug *//*#define PARSE_DEBUG *//* preprocessor debug *//*#define PP_DEBUG *//* include file debug *//*#define INC_DEBUG *//* memory leak debug *//*#define MEM_DEBUG *//* assembler debug *//*#define ASM_DEBUG *//* target selection *//*#define TCC_TARGET_I386 *//* i386 code generator *//*#define TCC_TARGET_ARM *//* ARMv4 code generator *//*#define TCC_TARGET_C67 *//* TMS320C67xx code generator *//*#define TCC_TARGET_X86_64 *//* x86-64 code generator *//*defaulttarget is I386 */#if !defined(TCC_TARGET_I386) && !defined(TCC_TARGET_ARM) && \
intchar_is_unsigned;intleading_underscore;/* warning switches */intwarn_write_strings;intwarn_unsupported;intwarn_error;intwarn_none;intwarn_implicit_function_declaration;intdo_debug;#ifdef CONFIG_TCC_BCHECK/* compilewithbuilt-in memory and bounds checker */intdo_bounds_check;#endifaddr_t text_addr; /* address of text section */inthas_text_addr;unsigned long section_align; /* section alignment */
#ifdef CONFIG_TCC_ASMST_DATA Section*last_text_section; /* to handle .previous asm directive */#endif#ifdef CONFIG_TCC_BCHECK/* bound check related sections */ST_DATA Section*bounds_section; /* contains global data bound description */ST_DATA Section*lbounds_section; /* containslocaldata bound description */#endif/* symbol sections */ST_DATA Section*symtab_section,*strtab_section;/* debug sections */ST_DATA Section*stab_section,*stabstr_section;#define SYM_POOL_NB (8192 / sizeof(Sym))ST_DATA Sym*sym_free_first;ST_DATA void **sym_pools;ST_DATAintnb_sym_pools;ST_DATA Sym*global_stack;ST_DATA Sym*local_stack;ST_DATA Sym*local_label_stack;
ST_DATA CType char_pointer_type, func_old_type, int_type, size_type;ST_DATA SValue __vstack[1+/*tomake bcheck happy*/ VSTACK_SIZE],*vtop;#define vstack (__vstack + 1)ST_DATAintrsym, anon_sym, ind, loc;ST_DATAintconst_wanted; /* trueifconstant wanted */ST_DATAintnocode_wanted; /* trueifnocode generation wantedforan expression */ST_DATAintglobal_expr; /* trueifcompound literals must be allocated globally (used during initializers parsing */ST_DATA CType func_vt; /* current functionreturntype (used byreturninstruction) */ST_DATAintfunc_vc;ST_DATAintlast_line_num, last_ind, func_ind; /* debuglastline number and pc */ST_DATA char*funcname;ST_INLNintis_float(intt);ST_FUNCintieee_finite(double d);ST_FUNC void test_lvalue(void);ST_FUNC void swap(int*p,int*q);ST_FUNC void vpushi(intv);ST_FUNC Sym*external_global_sym(intv, CType*type,intr);ST_FUNC void vset(CType*type,intr,intv);ST_FUNC void vswap(void);
src/tcccoff.c view on Meta::CPAN
// now loop through and determine file pointer locations//forthe line number datafor(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 cansortthe symbol tableStab_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;
src/tcccoff.c view on Meta::CPAN
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 */elsefile_hdr.f_nsyms = 0;file_pointer += file_hdr.f_nsyms * SYMNMLEN;// OK now we are all set towritethe filefwrite(&file_hdr, FILHSZ, 1, f);
src/tcccoff.c view on Meta::CPAN
fwrite(tcc_sect->reloc,coff_sec->s_nreloc * sizeof(struct reloc), 1, f);}}}// group the symbols in order of filename, func1, func2, etc//finallyglobal symbolsif(s1->do_debug)SortSymbolTable();//writelinenodatafor(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 dataStab_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];intincl_index, len, last_line_num;const char*str,*p;
src/tcccoff.c view on Meta::CPAN
gotoadd_incl2;}break;}sym++;}}}//writesymbol tableif(s1->do_debug) {intk;struct syment csym;AUXFUNC auxfunc;AUXBF auxbf;AUXEF auxef;inti;Elf32_Sym*p;const char*name;intnstr;intn = 0;
src/tcccoff.c view on Meta::CPAN
}elseif(p->st_info == 0x12) {// find the function datafor(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 Namecsym.n_value = p->st_value; // physical addresscsym.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);
src/tcccoff.c view on Meta::CPAN
fwrite(&auxfunc, 18, 1, f);n++;n++;}p++;}}if(s1->do_debug) {//writestring table// firstwritethe sizei = pCoff_str_table - Coff_str_table;fwrite(&i, 4, 1, f);// thenwritethe stringsfwrite(Coff_str_table, i, 1, f);tcc_free(Coff_str_table);
src/tcccoff.c view on Meta::CPAN
(char *) symtab_section->link->data + p2->st_name;// find the function dataindexfor(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 overNewTable[n++] =*p2;}}p2++;}
src/tcccoff.c view on Meta::CPAN
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 backp = (Elf32_Sym *) symtab_section->data;for(i = 0; i < nb_syms; i++) {*p++ = NewTable[i];}tcc_free(NewTable);}
src/tccelf.c view on Meta::CPAN
s->reloc = sr;}rel = section_ptr_add(sr, sizeof(ElfW_Rel));rel->r_offset = offset;rel->r_info = ELFW(R_INFO)(symbol, type);#ifdef TCC_TARGET_X86_64rel->r_addend = 0;#endif}/* put stab debug information */ST_FUNC void put_stabs(const char*str,inttype,intother,intdesc,unsigned long value){Stab_Sym*sym;sym = section_ptr_add(stab_section, sizeof(Stab_Sym));if(str) {sym->n_strx = put_elf_str(stabstr_section, str);}else{
src/tccelf.c view on Meta::CPAN
s->sh_info,s->name,s->reloc ? s->reloc->name :"n");#endif/*whengenerating a DLL, we include relocations but we maypatch them */if(file_type == TCC_OUTPUT_DLL &&s->sh_type == SHT_RELX &&!(s->sh_flags & SHF_ALLOC)) {/* //gr: avoid bogus relocsforempty (debug) sections */if(s1->sections[s->sh_info]->sh_flags & SHF_ALLOC)prepare_dynamic_rel(s1, s);elseif(s1->do_debug)s->sh_size = s->data_offset;}elseif(s1->do_debug ||file_type == TCC_OUTPUT_OBJ ||(s->sh_flags & SHF_ALLOC) ||i == (s1->nb_sections - 1)) {/* we output all sectionsifdebug or object file */s->sh_size = s->data_offset;}}/* allocate program segment headers */phdr = tcc_mallocz(phnum * sizeof(ElfW(Phdr)));if(s1->output_format == TCC_OUTPUT_FORMAT_ELF) {file_offset = sizeof(ElfW(Ehdr)) + phnum * sizeof(ElfW(Phdr));}else{
src/tccelf.c view on Meta::CPAN
put_dt(dynamic, DT_JMPREL, rel_addr);put_dt(dynamic, DT_PLTREL, DT_REL);put_dt(dynamic, DT_REL, bss_addr);put_dt(dynamic, DT_RELSZ, bss_size);#elseput_dt(dynamic, DT_REL, rel_addr);put_dt(dynamic, DT_RELSZ, rel_size);put_dt(dynamic, DT_RELENT, sizeof(ElfW_Rel));#endif#endifif(s1->do_debug)put_dt(dynamic, DT_DEBUG, 0);put_dt(dynamic, DT_NULL, 0);}ehdr.e_phentsize = sizeof(ElfW(Phdr));ehdr.e_phnum = phnum;ehdr.e_phoff = sizeof(ElfW(Ehdr));}/* all other sections comeafter*/
src/tccelf.c view on Meta::CPAN
}typedef struct SectionMergeInfo {Section*s; /* corresponding existing section */unsigned long offset; /* offset of the new section in the existing section */uint8_t new_section; /* trueifsection's'was added */uint8_t link_once; /* trueiflinkonce section */} SectionMergeInfo;/* load an object file and merge itwithcurrent files *//* XXX: handle correctly stab (debug) info */ST_FUNCinttcc_load_object_file(TCCState*s1,intfd, unsigned long file_offset){ElfW(Ehdr) ehdr;ElfW(Shdr)*shdr,*sh;intsize, i, j, offset, offseti, nb_syms, sym_index, ret;unsigned char*strsec,*strtab;int*old_to_new_syms;char*sh_name,*name;SectionMergeInfo*sm_table,*sm;
src/tccgen.c view on Meta::CPAN
#ifdef CONFIG_TCC_ASMST_DATA Section*last_text_section; /* to handle .previous asm directive */#endif#ifdef CONFIG_TCC_BCHECK/* bound check related sections */ST_DATA Section*bounds_section; /* contains global data bound description */ST_DATA Section*lbounds_section; /* containslocaldata bound description */#endif/* symbol sections */ST_DATA Section*symtab_section,*strtab_section;/* debug sections */ST_DATA Section*stab_section,*stabstr_section;ST_DATA Sym*sym_free_first;ST_DATA void **sym_pools;ST_DATAintnb_sym_pools;ST_DATA Sym*global_stack;ST_DATA Sym*local_stack;ST_DATA Sym*scope_stack_bottom;ST_DATA Sym*define_stack;ST_DATA Sym*global_label_stack;
src/tccgen.c view on Meta::CPAN
ST_DATAint*vla_sp_loc; /* Pointer to variable holding location to store stack pointer on the stackwhenmodifying stack pointer */ST_DATAintvla_flags; /* VLA_* flags */ST_DATA SValue __vstack[1+VSTACK_SIZE],*vtop;ST_DATAintconst_wanted; /* trueifconstant wanted */ST_DATAintnocode_wanted; /* trueifnocode generation wantedforan expression */ST_DATAintglobal_expr; /* trueifcompound literals must be allocated globally (used during initializers parsing */ST_DATA CType func_vt; /* current functionreturntype (used byreturninstruction) */ST_DATAintfunc_vc;ST_DATAintlast_line_num, last_ind, func_ind; /* debuglastline number and pc */ST_DATA char*funcname;ST_DATA CType char_pointer_type, func_old_type, int_type, size_type;/* ------------------------------------------------------------------------- */static void gen_cast(CType*type);static inline CType*pointed_type(CType*type);staticintis_compatible_types(CType*type1, CType*type2);staticintparse_btype(CType*type, AttributeDef*ad);static void type_decl(CType*type, AttributeDef*ad,int*v,inttd);
src/tccgen.c view on Meta::CPAN
decl(l);}static void block(int*bsym,int*csym,int*case_sym,int*def_sym,intcase_reg,intis_expr){inta, b, c, d;Sym*s,*frame_bottom;/* generate line number info */if(tcc_state->do_debug &&(last_line_num != file->line_num || last_ind != ind)) {put_stabn(N_SLINE, 0, file->line_num, ind - func_ind);last_ind = ind;last_line_num = file->line_num;}if(is_expr) {/*defaultreturnvalue is (void) */vpushi(0);vtop->type.t = VT_VOID;
src/tccgen.c view on Meta::CPAN
restore_parse_state(&saved_parse_state);}/* patch flexible array member size back to -1, *//*forpossible subsequent similar declarations */if(flexible_array)flexible_array->type.ref->c = -1;}no_alloc: ;}static void put_func_debug(Sym*sym){char buf[512];/* stabs info *//* XXX: we put here a dummy type */snprintf(buf, sizeof(buf),"%s:%c1",funcname, sym->type.t & VT_STATIC ?'f':'F');put_stabs_r(buf, N_FUN, 0, file->line_num, 0,cur_text_section, sym->c);/* //gr gdb wants a line at the function */
src/tccgen.c view on Meta::CPAN
intsaved_nocode_wanted = nocode_wanted;nocode_wanted = 0;ind = cur_text_section->data_offset;/* NOTE: we patch the symbol size later */put_extern_sym(sym, cur_text_section, ind, 0);funcname = get_tok_str(sym->v, NULL);func_ind = ind;/* Initialize VLA state */vla_sp_loc =&vla_sp_root_loc;vla_flags = VLA_NEED_NEW_FRAME;/* put debug symbol */if(tcc_state->do_debug)put_func_debug(sym);/*pusha dummy symbol to enablelocalsym storage */sym_push2(&local_stack, SYM_FIELD, 0, 0);gfunc_prolog(&sym->type);rsym = 0;block(NULL, NULL, NULL, NULL, 0, 0);gsym(rsym);gfunc_epilog();cur_text_section->data_offset = ind;label_pop(&global_label_stack, NULL);/*resetlocalstack */scope_stack_bottom = NULL;sym_pop(&local_stack, NULL);/* end of function *//* patch symbol size */((ElfW(Sym) *)symtab_section->data)[sym->c].st_size =ind - func_ind;/* patch symbol weakness (this definition overrules anyprototype) */if(sym->type.t & VT_WEAK)weaken_symbol(sym);if(tcc_state->do_debug) {put_stabn(N_FUN, 0, 0, ind - func_ind);}/* It's better to crash than to generate wrong code */cur_text_section = NULL;funcname =""; /*forsafety */func_vt.t = VT_VOID; /*forsafety */ind = 0; /*forsafety */nocode_wanted = saved_nocode_wanted;}
src/tccpe.c view on Meta::CPAN
#ifdef PE_MERGE_DATAif(c == sec_bss && pe->sec_count && si[-1].cls == sec_data) {/* append .bss to .data */s->sh_addr = addr = ((addr-1) | (s->sh_addralign-1)) + 1;addr += s->data_offset;si[-1].sh_size = addr - si[-1].sh_addr;continue;}#endifif(c == sec_stab && 0 == pe->s1->do_debug)continue;strcpy(si->name, s->name);si->cls = c;si->ord= k;si->sh_addr = s->sh_addr = addr = pe_virtual_align(pe, addr);si->sh_flags = s->sh_flags;if(c == sec_data && NULL == pe->thunk)pe->thunk = s;
src/tccpp.c view on Meta::CPAN
continue;#ifdef INC_DEBUGprintf("%s: including %s\n", file->prev->filename, file->filename);#endif/* update target deps */dynarray_add((void ***)&s1->target_deps,&s1->nb_target_deps,tcc_strdup(buf1));/*pushcurrent file in stack */++s1->include_stack_ptr;/* add include file debug info */if(s1->do_debug)put_stabs(file->filename, N_BINCL, 0, 0, 0);tok_flags |= TOK_FLAG_BOF | TOK_FLAG_BOL;ch = file->buf_ptr[0];gotothe_end;}tcc_error("include file '%s' not found", buf);include_done:break;case TOK_IFNDEF:c = 1;
src/tccpp.c view on Meta::CPAN
/* testifprevious'#endif'wasaftera #ifdef atstart of file */if(tok_flags & TOK_FLAG_ENDIF) {#ifdef INC_DEBUGprintf("#endif %s\n", get_tok_str(file->ifndef_macro_saved, NULL));#endifadd_cached_include(s1, file->filename, file->ifndef_macro_saved);tok_flags &= ~TOK_FLAG_ENDIF;}/* add end of include file debug info */if(tcc_state->do_debug) {put_stabd(N_EINCL, 0, 0);}/*popinclude stack */tcc_close();s1->include_stack_ptr--;p = file->buf_ptr;gotoredo_no_start;}}break;
src/tccrun.c view on Meta::CPAN
{int(*prog_main)(int, char **);intret;if(tcc_relocate(s1, TCC_RELOCATE_AUTO) < 0)return-1;prog_main = tcc_get_symbol_err(s1, s1->runtime_main);#ifdef CONFIG_TCC_BACKTRACEif(s1->do_debug) {set_exception_handler();rt_prog_main = prog_main;}#endif#ifdef CONFIG_TCC_BCHECKif(s1->do_bounds_check) {void (*bound_init)(void);void (*bound_exit)(void);/* set error function */
src/tccrun.c view on Meta::CPAN
/* ------------------------------------------------------------- */#ifdef CONFIG_TCC_BACKTRACEST_FUNC void tcc_set_num_callers(intn){rt_num_callers = n;}/*the position in the source file of PC value'pc'by readingthe stabs debug information */static addr_t rt_printline(addr_t wanted_pc, const char*msg){char func_name[128], last_func_name[128];addr_t func_addr, last_pc, pc;const char*incl_files[INCLUDE_STACK_SIZE];intincl_index, len, last_line_num, i;const char*str,*p;Stab_Sym*stab_sym= NULL,*stab_sym_end,*sym;intstab_len = 0;
src/tccrun.c view on Meta::CPAN
}#ifndef SA_SIGINFO# define SA_SIGINFO 0x00000004u#endif/* Generate a stack backtracewhena CPU exception occurs. */static void set_exception_handler(void){struct sigaction sigact;/* install TCC signal handlers todebug info on fatalruntime errors */sigact.sa_flags = SA_SIGINFO | SA_RESETHAND;sigact.sa_sigaction = sig_error;sigemptyset(&sigact.sa_mask);sigaction(SIGFPE,&sigact, NULL);sigaction(SIGILL,&sigact, NULL);sigaction(SIGSEGV,&sigact, NULL);sigaction(SIGBUS,&sigact, NULL);sigaction(SIGABRT,&sigact, NULL);}
src/tests/tests2/46_grep.c view on Meta::CPAN
#define STAR 7#define PLUS 8#define MINUS 9#define ALPHA 10#define DIGIT 11#define NALPHA 12#define PUNCT 13#define RANGE 14#define ENDPAT 15intcflag=0, fflag=0, nflag=0, vflag=0, nfile=0, debug=0;char*pp, lbuf[LMAX], pbuf[PMAX];char*cclass();char*pmatch();/*** Display a file name *******************************/void file(char*s){
src/tests/tests2/46_grep.c view on Meta::CPAN
/*** Compile the pattern into global pbuf[] ************/void compile(char*source){char*s; /* Source string pointer */char*lp; /* Last pattern pointer */intc; /* Current character */into; /* Temp */char*spp; /* Save beginning of pattern */s = source;if(debug)printf("Pattern = \"%s\"\n", s);pp = pbuf;while(c =*s++) {/** STAR, PLUS and MINUS are special.*/if(c =='*'|| c =='+'|| c =='-') {if(pp == pbuf ||(o=pp[-1]) == BOL ||o == EOL ||
src/tests/tests2/46_grep.c view on Meta::CPAN
if(*s)c =*s++;default:store(CHAR);store(tolower(c));}}store(ENDPAT);store(0); /* Terminate string */if(debug) {for(lp = pbuf; lp < pp;) {if((c = (*lp++ & 0377)) <' ')printf("\\%o ", c);elseprintf("%c ", c);}printf("\n");}}/*** Compile a class (within []) ***********************/
src/tests/tests2/46_grep.c view on Meta::CPAN
{char*l; /* Current line pointer */char*p; /* Current pattern pointer */char c; /* Current character */char*e; /* EndforSTAR and PLUS match */intop; /* Pattern operation */intn; /* Class counter */char*are; /* Start of STAR match */l = line;if(debug > 1)printf("pmatch(\"%s\")\n", line);p = pattern;while((op =*p++) != ENDPAT) {if(debug > 1)printf("byte[%d] = 0%o, '%c', op = 0%o\n",l-line,*l,*l, op);switch(op) {case CHAR:if(tolower(*l++) !=*p++)return(0);break;case BOL:
src/tests/tests2/46_grep.c view on Meta::CPAN
help(documentation);break;case'C':case'c':++cflag;break;case'D':case'd':++debug;break;case'F':case'f':++fflag;break;case'n':case'N':++nflag;
src/tests/tests2/55_lshift_type.c view on Meta::CPAN
#define TEST4(X) \do\{ \TEST3((X),short); \TEST3((X),int); \TEST3((X),long); \TEST3((X),long long); \} \while(0)staticintdebug, nfailed = 0;static void check (const char*s,intarg1,intshift){intfailed = arg1 !=shift;if(debug || failed)printf("%s %d %d\n", s, arg1,shift);nfailed += failed;}intmain (intargc, char **argv){debug = argc > 1;TEST4(1);TEST4(-1);printf("%d test(s) failed\n", nfailed);returnnfailed != 0;}
src/win32/include/winapi/winnt.h view on Meta::CPAN
DWORD e32_impmod;DWORD e32_impmodcnt;DWORD e32_impproc;DWORD e32_pagesum;DWORD e32_datapage;DWORD e32_preload;DWORD e32_nrestab;DWORD e32_cbnrestab;DWORD e32_nressum;DWORD e32_autodata;DWORD e32_debuginfo;DWORD e32_debuglen;DWORD e32_instpreload;DWORD e32_instdemand;DWORD e32_heapsize;BYTE e32_res3[12];DWORD e32_winresoff;DWORD e32_winreslen;WORD e32_devid;WORD e32_ddkver;} IMAGE_VXD_HEADER,*PIMAGE_VXD_HEADER;
src/win32/include/winapi/winnt.h view on Meta::CPAN
#define COMPRESSION_FORMAT_DEFAULT (0x0001)#define COMPRESSION_FORMAT_LZNT1 (0x0002)#define COMPRESSION_ENGINE_STANDARD (0x0000)#define COMPRESSION_ENGINE_MAXIMUM (0x0100)#define COMPRESSION_ENGINE_HIBER (0x0200)#if _DBG_MEMCPY_INLINE_ && !defined(_MEMCPY_INLINE_) && !defined(_CRTBLD)#define _MEMCPY_INLINE___CRT_INLINE PVOID __cdecl memcpy_inline(void*dst,const void*src,size_t size) {if(((char *)dst > (char *)src) && ((char *)dst < ((char *)src + size))) {__debugbreak();}returnmemcpy(dst,src,size);}#define memcpy memcpy_inline#endifNTSYSAPI SIZE_T NTAPI RtlCompareMemory(const VOID*Source1,const VOID*Source2,SIZE_T Length);#define RtlEqualMemory(Destination,Source,Length) (!memcmp((Destination),(Source),(Length)))#define RtlMoveMemory(Destination,Source,Length) memmove((Destination),(Source),(Length))
src/win32/lib/msvcrt.def view on Meta::CPAN
_memicmp_l_mkdir_mkgmtime_mkgmtime32_mkgmtime64_mktemp_mktemp_s_mktime32_mktime64_msize_msize_debug_nextafter_onexit_open_open_osfhandle_osplatform_osver_outp_outpd_outpw_pclose
( run in 1.317 second using v1.01-cache-2.11-cpan-3cd7ad12f66 )