Alien-TinyCCx
view release on metacpan or search on metacpan
src/tests/exsymtab/36-two-contexts-typedef-share.csrc/tests/exsymtab/40-two-contexts-func-decl-share.csrc/tests/exsymtab/41-two-contexts-inline-func-share.csrc/tests/exsymtab/42-three-contexts-func-share.csrc/tests/exsymtab/43-three-contexts-inline-func-share.csrc/tests/exsymtab/47-many-consuming-contexts-func-share.csrc/tests/exsymtab/48-many-consuming-contexts-delete.csrc/tests/exsymtab/49-many-consuming-contexts-early-delete.csrc/tests/exsymtab/50-two-contexts-mixup.csrc/tests/exsymtab/51-many-consuming-contexts-with-constants-early-delete.csrc/tests/exsymtab/60-two-contexts-globals.csrc/tests/exsymtab/61-two-contexts-const-globals.csrc/tests/exsymtab/62-two-contexts-static-globals.csrc/tests/exsymtab/63-two-contexts-enum.csrc/tests/exsymtab/70-symtab-use-check.csrc/tests/exsymtab/80-cache-defines.csrc/tests/exsymtab/81-cache-struct.csrc/tests/exsymtab/82-cache-func-decl.csrc/tests/exsymtab/83-cache-func-decl-with-args.csrc/tests/exsymtab/84-cache-func-decl-with-pointer-args.csrc/tests/exsymtab/85-cache-inline-func.csrc/tests/exsymtab/dump-elf-syms.csrc/tests/exsymtab/mytest.pl
inc/My/Build/Windows.pm view on Meta::CPAN
if(not$self->notes('build_state')) {# move into the source directory and invoke the custom Windows buildchdir'src\\win32';system('build-tcc.bat');chdir'..\\..';# check if there was a mishap:$ENV{ERRORLEVEL} anddie'build-tcc.bat failed';# Copy the files to the distribution's share dirFile::Copy::Recursive::rcopy_glob('src\\win32\\*'=>'share\\');# Note that we've built it.$self->notes('build_state','built');}$self->SUPER::ACTION_code;}submy_clean {}
src/Changelog view on Meta::CPAN
- add va_* macro implementationforARM (Thomas Preud'homme)- define __ARM_EABI__, __ARMEL__ and __ARM_PCS_VFP (Thomas Preud'homme)- provide a runtime libraryforARM (Thomas Preud'homme)- vastly improved supportforARM hard float calling convention(Thomas Preud'homme, Daniel Glöckner)- tcc can uses libtcc1 on ARM (Thomas Preud'homme)- simplify startup codeforunix platforms (grischka)- improve ELF generated on ARM (Thomas Preud'homme)- add supportforthumb to ARM relocation (Thomas Preud'homme)- fix globbing to match MSVC on Windows (Thomas Preud'homme)- deprecate FPA and OABI supportforARM (Thomas Preud'homme)-warnabout softfloat not being supported on ARM (Thomas Preud'homme)Bug fixes:- many code clean up (Urs Janssen, grischka)- fixes of other's patches (grischka, Ramsay Jones, Michael Matz)- fix documentation about __TINYC__ (Urs Janssen)- improve build of documentation (Urs Janssen)- improve build instructions (Jov)- switch from texi2html to makeinfo --html to build tcc-doc.html (James Lyon)
src/Changelog view on Meta::CPAN
469: Fix symbol visibility problems in the linker (Vincent Pit)468: Allow && and || involving pointer arguments (Rob Landley)455: Optimize case labelswithnocode in between (Zdenek Pavlas)450: Implement allocaforx86 (grischka)415: Parse unicode escape sequences (Axel Liljencrantz)407: Add a simple va_copy() in stdarg.h (Hasso Tepper)400: Allow typedef names as symbols (Dave Dodge)- Import some changesets from Rob Landley'sfork(part 1):462: Use LGPLwithbcheck.c and il-gen.c458: Fix global compound literals (in unary: case'&':) (Andrew Johnson)456: Usereturncode from tcc_output_file in main() (Michael Somos)442: Fix indirectionswithfunction pointers (***fn)() (grischka)441: Fix LL leftshiftin libtcc1.c:__shldi3 (grischka)440: Pass structures and function ptrs through ?: (grischka)439: Keep rvalue in bit assignment (bit2 = bit1 = x) (grischka)438: Degrade nonportable pointer assignment to warning (grischka)437: Call'saveregs()'beforejumpingwithlogical and/or/not (grischka)435: Putlocalstatic variables into global memory (grischka)432/434: Cast double and ptr to bool (grischka)420: Zero pad x87 tenbyte long doubles (Felix Nawothnig)417: Make'sizeof'unsigned (Rob Landley)397: Fix save_regforlonglongs (Daniel Glöckner)396: Fix"invalid relocation entry"problem on ubuntu - (Bernhard Fischer)- ignore AS_NEEDED ld command- mark executable sections as executablewhenrunning in memory- added supportforwin32 wchar_t (Filip Navara)- segmentoverrideprefix support (Filip Navara)
src/Changelog view on Meta::CPAN
version 0.9.19:-"alacarte"linking (Dave Long)- simpler function call- more strict type checks- added'const'and'volatile'support and associated warnings- added -Werror, -Wunsupported, -Wwrite-strings, -Wall.- added __builtin_types_compatible_p() and __builtin_constant_p()- chars support in assembler (Dave Long)- .string, .globl, .section, .text, .data and .bss asm directivesupport (Dave Long)- man page generated from tcc-doc.texi- fixed macro argument substitution- fixed zero argument macro parsing- changed license to LGPL- added -rdynamic option supportversion 0.9.18:- header fix (time.h)
src/arm-gen.c view on Meta::CPAN
c = vtop->c.i & 0x1f;o(opc|(c<<7)|(fr<<12));}else{fr=intr(gv(RC_INT));c=intr(vtop[-1].r=get_reg_ex(RC_INT,two2mask(vtop->r,vtop[-1].r)));o(opc|(c<<12)|(fr<<8)|0x10);}vtop--;break;case 3:vpush_global_sym(&func_old_type, func);vrott(3);gfunc_call(2);vpushi(0);vtop->r = retreg;break;default:tcc_error("gen_opi %i unimplemented!",op);}}
src/arm-gen.c view on Meta::CPAN
#else}elseif((t & VT_BTYPE) == VT_DOUBLE || (t & VT_BTYPE) == VT_LDOUBLE) {#endiffunc_type =&func_double_type;if(vtop->type.t & VT_UNSIGNED)func=TOK___floatundidf;elsefunc=TOK___floatdidf;}if(func_type) {vpush_global_sym(func_type, func);vswap();gfunc_call(1);vpushi(0);vtop->r=TREG_F0;return;}}tcc_error("unimplemented gen_cvt_itof %x!",vtop->type.t);}
src/arm-gen.c view on Meta::CPAN
#if LDOUBLE_SIZE != 8elseif(r2 == VT_LDOUBLE)func=TOK___fixxfdi;elseif(r2 == VT_DOUBLE)#elseelseif(r2 == VT_LDOUBLE || r2 == VT_DOUBLE)#endiffunc=TOK___fixdfdi;}if(func) {vpush_global_sym(&func_old_type, func);vswap();gfunc_call(1);vpushi(0);if(t == VT_LLONG)vtop->r2 = REG_LRET;vtop->r = REG_IRET;return;}tcc_error("unimplemented gen_cvt_ftoi!");}
src/arm64-gen.c view on Meta::CPAN
o(0xf900001e | r0 << 5); // str x30,[x(r0)] // __stackb2 = ind; o(0x14000000); // b lab2// lab1:write32le(cur_text_section->data + b1, 0x5400000d | (ind - b1) << 3);o(0xb9001c00 | r1 | r0 << 5); // str w(r1),[x(r0),#28] // __vr_offso(0xf9400800 | r1 | r0 << 5); // ldr x(r1),[x(r0),#16] // __vr_topif(hfa == 1 || fsize == 16)o(0x8b3ec000 | r1 | r1 << 5); // add x(r1),x(r1),w30,sxtwelse{// We need to change the layout of this HFA.// Get some space on the stack using global variable"loc":loc = (loc - size) & -(uint32_t)align;o(0x8b3ec000 | 30 | r1 << 5); // add x30,x(r1),w30,sxtwarm64_movimm(r1, loc);o(0x8b0003a0 | r1 | r1 << 16); // add x(r1),x29,x(r1)o(0x4c402bdc | (uint32_t)fsize << 7 |(uint32_t)(hfa == 2) << 15 |(uint32_t)(hfa == 3) << 14); // ld1 {v28.(4s|2d),...},[x30]o(0x0d00801c | r1 << 5 | (fsize == 8) << 10 |(uint32_t)(hfa != 2) << 13 |(uint32_t)(hfa != 3) << 21); // st(hfa) {v28.(s|d),...}[0],[x(r1)]
src/arm64-gen.c view on Meta::CPAN
case'-': func = TOK___subtf3; break;case'/': func = TOK___divtf3; break;case TOK_EQ: func = TOK___eqtf2; cond = 1; break;case TOK_NE: func = TOK___netf2; cond = 0; break;case TOK_LT: func = TOK___lttf2; cond = 10; break;case TOK_GE: func = TOK___getf2; cond = 11; break;case TOK_LE: func = TOK___letf2; cond = 12; break;case TOK_GT: func = TOK___gttf2; cond = 13; break;default: assert(0); break;}vpush_global_sym(&func_old_type, func);vrott(3);gfunc_call(2);vpushi(0);vtop->r = cond < 0 ? REG_FRET : REG_IRET;if(cond < 0)vtop->type = type;else{o(0x7100001f); // cmp w0,#0o(0x1a9f07e0 | (uint32_t)cond << 12); // cset w0,(cond)}
src/arm64-gen.c view on Meta::CPAN
o(0x93407c00 | r | r << 5); // sxtw x(r),w(r)}ST_FUNC void gen_cvt_itof(intt){if(t == VT_LDOUBLE) {intf = vtop->type.t;intfunc = (f & VT_BTYPE) == VT_LLONG ?(f & VT_UNSIGNED ? TOK___floatunditf : TOK___floatditf) :(f & VT_UNSIGNED ? TOK___floatunsitf : TOK___floatsitf);vpush_global_sym(&func_old_type, func);vrott(2);gfunc_call(1);vpushi(0);vtop->type.t = t;vtop->r = REG_FRET;return;}else{intd, n = intr(gv(RC_INT));ints = !(vtop->type.t & VT_UNSIGNED);
src/arm64-gen.c view on Meta::CPAN
l << 31 | n << 5); // [us]cvtf [sd](d),[wx](n)}}ST_FUNC void gen_cvt_ftoi(intt){if((vtop->type.t & VT_BTYPE) == VT_LDOUBLE) {intfunc = (t & VT_BTYPE) == VT_LLONG ?(t & VT_UNSIGNED ? TOK___fixunstfdi : TOK___fixtfdi) :(t & VT_UNSIGNED ? TOK___fixunstfsi : TOK___fixtfsi);vpush_global_sym(&func_old_type, func);vrott(2);gfunc_call(1);vpushi(0);vtop->type.t = t;vtop->r = REG_IRET;return;}else{intd, n = fltr(gv(RC_FLOAT));uint32_t l = ((vtop->type.t & VT_BTYPE) != VT_FLOAT);
src/arm64-gen.c view on Meta::CPAN
intf = vtop[0].type.t;assert(t == VT_FLOAT || t == VT_DOUBLE || t == VT_LDOUBLE);assert(f == VT_FLOAT || f == VT_DOUBLE || f == VT_LDOUBLE);if(t == f)return;if(t == VT_LDOUBLE || f == VT_LDOUBLE) {intfunc = (t == VT_LDOUBLE) ?(f == VT_FLOAT ? TOK___extendsftf2 : TOK___extenddftf2) :(t == VT_FLOAT ? TOK___trunctfsf2 : TOK___trunctfdf2);vpush_global_sym(&func_old_type, func);vrott(2);gfunc_call(1);vpushi(0);vtop->type.t = t;vtop->r = REG_FRET;}else{intx, a;gv(RC_FLOAT);assert(vtop[0].r < VT_CONST);
src/c67-gen.c view on Meta::CPAN
fr = vtop[0].r;vtop--;C67_SHR(fr, r); // arithmeticshiftbreak;case'/':t = TOK__divi;call_func:vswap();/* call generic idiv function */vpush_global_sym(&func_old_type, t);vrott(3);gfunc_call(2);vpushi(0);vtop->r = REG_IRET;vtop->r2 = VT_CONST;break;case TOK_UDIV:case TOK_PDIV:t = TOK__divu;gotocall_func;
src/c67-gen.c view on Meta::CPAN
}else{C67_MPYSP(r, fr); // MPY fr,r,frC67_NOP(3);}vtop--;}elseif(op =='/') {if((ft & VT_BTYPE) == VT_DOUBLE) {// must call intrinsic DP floating point dividevswap();/* call generic idiv function */vpush_global_sym(&func_old_type, TOK__divd);vrott(3);gfunc_call(2);vpushi(0);vtop->r = REG_FRET;vtop->r2 = REG_LRET;}else{// must call intrinsic SP floating point dividevswap();/* call generic idiv function */vpush_global_sym(&func_old_type, TOK__divf);vrott(3);gfunc_call(2);vpushi(0);vtop->r = REG_FRET;vtop->r2 = VT_CONST;}}elseALWAYS_ASSERT(FALSE);
src/conftest.c view on Meta::CPAN
# define TRIPLET_ABI "gnu"#endif#ifdef __GNU__# define TRIPLET TRIPLET_ARCH "-" TRIPLET_ABI#else# define TRIPLET TRIPLET_ARCH "-" TRIPLET_OS "-" TRIPLET_ABI#endif#if defined(_WIN32)int_CRT_glob = 0;#endifintmain(intargc, char*argv[]){switch(argc == 2 ? argv[1][0] : 0) {case'b':{volatile unsigned foo = 0x01234567;puts(*(unsigned char*)&foo== 0x67 ?"no":"yes");break;
#define VER_DEF_NONE 0 /* No version */#define VER_DEF_CURRENT 1 /* Current version */#define VER_DEF_NUM 2 /* Given version number *//* Legalvaluesforvd_flags (version information flags). */#define VER_FLG_BASE 0x1 /* Version definition of file itself */#define VER_FLG_WEAK 0x2 /* Weak version identifier *//* Versym symbolindexvalues. */#define VER_NDX_LOCAL 0 /* Symbol is local. */#define VER_NDX_GLOBAL 1 /* Symbol is global. */#define VER_NDX_LORESERVE 0xff00 /* Beginning of reserved entries. */#define VER_NDX_ELIMINATE 0xff01 /* Symbol is to be eliminated. *//* Auxialiary version information. */typedef struct{Elf32_Word vda_name; /* Version or dependency names */Elf32_Word vda_next; /* Offset in bytes tonextverdauxentry */
#define AT_IGNOREPPC 22 /* Entry should be ignored. */#define AT_SECURE 23 /* Boolean, was exec setuid-like? */#define AT_BASE_PLATFORM 24 /* String identifying real platforms.*/#define AT_RANDOM 25 /* Address of 16 random bytes. */#define AT_EXECFN 31 /* Filename of executable. *//* Pointer to the globalsystempage usedforsystemcalls and othernice things. */#define AT_SYSINFO 32#define AT_SYSINFO_EHDR 33/* Shapes of the caches. Bits 0-3 contains associativity; bits 4-7 containslog2 of line size; mask those to get cache size. */#define AT_L1I_CACHESHAPE 34#define AT_L1D_CACHESHAPE 35#define AT_L2_CACHESHAPE 36#define AT_L3_CACHESHAPE 37
#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 SHT_MIPS_PDR_EXCEPTION 0x70000029/* Legalvaluesforsh_flags field of Elf32_Shdr. */#define SHF_MIPS_GPREL 0x10000000 /* Must be part of global data area */#define SHF_MIPS_MERGE 0x20000000#define SHF_MIPS_ADDR 0x40000000#define SHF_MIPS_STRINGS 0x80000000#define SHF_MIPS_NOSTRIP 0x08000000#define SHF_MIPS_LOCAL 0x04000000#define SHF_MIPS_NAMES 0x02000000#define SHF_MIPS_NODUPE 0x01000000/* Symbol tables. */
} Elf32_RegInfo;/* Entries found in sections of type SHT_MIPS_OPTIONS. */typedef struct{unsigned char kind; /* Determines interpretation of thevariable part of descriptor. */unsigned char size; /* Size of descriptor, including header. */Elf32_Section section; /* Section headerindexof section affected,0forglobal options. */Elf32_Word info; /* Kind-specific information. */} Elf_Options;/* Valuesfor`kind' field in Elf_Options. */#define ODK_NULL 0 /* Undefined. */#define ODK_REGINFO 1 /* Register usage information. */#define ODK_EXCEPTIONS 2 /* Exception processing options. */#define ODK_PAD 3 /* Section padding options. */#define ODK_HWPATCH 4 /* Hardware workarounds performed */
#define R_ARM_THM_MOVW_ABS_NC 47#define R_ARM_THM_MOVT_ABS 48#define R_ARM_TLS_GOTDESC 90#define R_ARM_TLS_CALL 91#define R_ARM_TLS_DESCSEQ 92#define R_ARM_THM_TLS_CALL 93#define R_ARM_GNU_VTENTRY 100#define R_ARM_GNU_VTINHERIT 101#define R_ARM_THM_PC11 102 /* thumb unconditional branch */#define R_ARM_THM_PC9 103 /* thumb conditional branch */#define R_ARM_TLS_GD32 104 /* PC-rel 32 bit for global dynamicthreadlocaldata */#define R_ARM_TLS_LDM32 105 /* PC-rel 32 bit for local dynamicthreadlocaldata */#define R_ARM_TLS_LDO32 106 /* 32 bit offset relative to TLSblock */#define R_ARM_TLS_IE32 107 /* PC-rel 32 bit for GOT entry ofstatic TLS block offset */#define R_ARM_TLS_LE32 108 /* 32 bit offset relative to staticTLS block */#define R_ARM_THM_TLS_DESCSEQ 129
#define R_MN10300_GOTOFF16 14 /* 16-bit offset from GOT. */#define R_MN10300_PLT32 15 /* 32-bit PCrel to PLT entry. */#define R_MN10300_PLT16 16 /* 16-bit PCrel to PLT entry. */#define R_MN10300_GOT32 17 /* 32-bit offset to GOT entry. */#define R_MN10300_GOT24 18 /* 24-bit offset to GOT entry. */#define R_MN10300_GOT16 19 /* 16-bit offset to GOT entry. */#define R_MN10300_COPY 20 /* Copy symbol at runtime. */#define R_MN10300_GLOB_DAT 21 /* Create GOT entry. */#define R_MN10300_JMP_SLOT 22 /* Create PLT entry. */#define R_MN10300_RELATIVE 23 /* Adjust by program base. */#define R_MN10300_TLS_GD 24 /* 32-bit offset for global dynamic. */#define R_MN10300_TLS_LD 25 /* 32-bit offset for local dynamic. */#define R_MN10300_TLS_LDO 26 /* Module-relative offset. */#define R_MN10300_TLS_GOTIE 27 /* GOT offset for static TLS blockoffset. */#define R_MN10300_TLS_IE 28 /* GOT address for static TLS blockoffset. */#define R_MN10300_TLS_LE 29 /* Offset relative to static TLSblock. */#define R_MN10300_TLS_DTPMOD 30 /* ID of module containing symbol. */#define R_MN10300_TLS_DTPOFF 31 /* Offset in module TLS block. */
src/i386-gen.c view on Meta::CPAN
g(val);}else{oad(0xc481, val); /* add$xxx,%esp*/}}static void gen_static_call(intv){Sym*sym;sym = external_global_sym(v,&func_old_type, 0);oad(0xe8, -4);greloc(cur_text_section, sym, ind-4, R_386_PC32);}/*'is_jmp'is'1'ifit is a jump */static void gcall_or_jmp(intis_jmp){intr;if((vtop->r & (VT_VALMASK | VT_LVAL)) == VT_CONST) {intrt;
src/i386-gen.c view on Meta::CPAN
gv(RC_FLOAT);save_reg(TREG_EAX);save_reg(TREG_EDX);gen_static_call(TOK___tcc_cvt_ftol);vtop->r = TREG_EAX; /* mark reg as used */if(t == VT_LLONG)vtop->r2 = TREG_EDX;#elseintbt = vtop->type.t & VT_BTYPE;if(bt == VT_FLOAT)vpush_global_sym(&func_old_type, TOK___fixsfdi);elseif(bt == VT_LDOUBLE)vpush_global_sym(&func_old_type, TOK___fixxfdi);elsevpush_global_sym(&func_old_type, TOK___fixdfdi);vswap();gfunc_call(1);vpushi(0);vtop->r = REG_IRET;vtop->r2 = REG_LRET;#endif}/* convert from one floating point type to another */ST_FUNC void gen_cvt_ftof(intt)
src/i386-gen.c view on Meta::CPAN
case 16: func = TOK___bound_ptr_indir16; break;default:tcc_error("unhandled size when dereferencing bounded pointer");func = 0;break;}/* patch relocation *//* XXX: find a better solution ? */rel = (Elf32_Rel *)(cur_text_section->reloc->data + vtop->c.i);sym = external_global_sym(func,&func_old_type, 0);if(!sym->c)put_extern_sym(sym, NULL, 0, 0);rel->r_info = ELF32_R_INFO(sym->c, ELF32_R_TYPE(rel->r_info));}#endif/* Save the stack pointer onto the stack */ST_FUNC void gen_vla_sp_save(intaddr) {/* mov%esp,addr(%ebp)*/o(0x89);
src/i386-gen.c view on Meta::CPAN
/* Restore the SP from a location on the stack */ST_FUNC void gen_vla_sp_restore(intaddr) {o(0x8b);gen_modrm(TREG_ESP, VT_LOCAL, NULL, addr);}/* Subtract from the stack pointer, andpushthe resulting value onto the stack */ST_FUNC void gen_vla_alloc(CType*type,intalign) {#ifdef TCC_TARGET_PE/* alloca does more than just adjust%rspon Windows */vpush_global_sym(&func_old_type, TOK_alloca);vswap(); /* Move allocarefpast allocation size */gfunc_call(1);#elseintr;r = gv(RC_INT); /* allocation size *//*subr,%rsp*/o(0x2b);o(0xe0 | r);/* We align to 16 bytes rather than align *//* and ~15,%esp*/
src/il-gen.c view on Meta::CPAN
}else{if(fc >= 0 && fc <= 4) {out_op(IL_OP_LDLOC_0 + fc);}elseif(fc <= 0xff) {out_opb(IL_OP_LDLOC_S, fc);}else{out_opi(IL_OP_LDLOC, fc);}}}elseif(v == VT_CONST) {/* XXX: handle globals */out_opi(IL_OP_LDSFLD, 0);}else{if((ft & VT_BTYPE) == VT_FLOAT) {out_op(IL_OP_LDIND_R4);}elseif((ft & VT_BTYPE) == VT_DOUBLE) {out_op(IL_OP_LDIND_R8);}elseif((ft & VT_BTYPE) == VT_LDOUBLE) {out_op(IL_OP_LDIND_R8);}elseif((ft & VT_TYPE) == VT_BYTE)out_op(IL_OP_LDIND_I1);
src/il-gen.c view on Meta::CPAN
out_op(IL_OP_LDIND_U1);elseif((ft & VT_TYPE) == VT_SHORT)out_op(IL_OP_LDIND_I2);elseif((ft & VT_TYPE) == (VT_SHORT | VT_UNSIGNED))out_op(IL_OP_LDIND_U2);elseout_op(IL_OP_LDIND_I4);}}else{if(v == VT_CONST) {/* XXX: handle globals */if(fc >= -1 && fc <= 8) {out_op(IL_OP_LDC_I4_M1 + fc + 1);}else{out_opi(IL_OP_LDC_I4, fc);}}elseif(v == VT_LOCAL) {if(fc >= ARG_BASE) {fc -= ARG_BASE;if(fc <= 0xff) {out_opb(IL_OP_LDARGA_S, fc);
src/il-gen.c view on Meta::CPAN
}else{if(fc >= 0 && fc <= 4) {out_op(IL_OP_STLOC_0 + fc);}elseif(fc <= 0xff) {out_opb(IL_OP_STLOC_S, fc);}else{out_opi(IL_OP_STLOC, fc);}}}elseif(v == VT_CONST) {/* XXX: handle globals */out_opi(IL_OP_STSFLD, 0);}else{if((ft & VT_BTYPE) == VT_FLOAT)out_op(IL_OP_STIND_R4);elseif((ft & VT_BTYPE) == VT_DOUBLE)out_op(IL_OP_STIND_R8);elseif((ft & VT_BTYPE) == VT_LDOUBLE)out_op(IL_OP_STIND_R8);elseif((ft & VT_BTYPE) == VT_BYTE)out_op(IL_OP_STIND_I1);
src/lib/alloca-arm.S view on Meta::CPAN
.text.align 2.global alloca.type alloca,%functionalloca:rsb sp, r0, spbic sp, sp,#7mov r0, spmov pc, lr.size alloca, .-alloca.section .note.GNU-stack,"",%progbits
src/lib/alloca86-bt.S view on Meta::CPAN
/* ---------------------------------------------- *//* alloca86-bt.S */.globl __bound_alloca__bound_alloca:pop%edxpop%eaxmov%eax,%ecxadd $3,%eaxand $-4,%eaxjz p6#ifdef TCC_TARGET_PE
src/lib/alloca86.S view on Meta::CPAN
/* ---------------------------------------------- *//* alloca86.S */.globl allocaalloca:pop%edxpop%eaxadd $3,%eaxand $-4,%eaxjz p3#ifdef TCC_TARGET_PEp1:
src/lib/alloca86_64-bt.S view on Meta::CPAN
/* ---------------------------------------------- *//* alloca86_64.S */.globl __bound_alloca__bound_alloca:#ifdef TCC_TARGET_PE# bound checking is not implementedpop%rdxmov%rcx,%raxadd $15,%raxand $-16,%raxjz p3
src/lib/alloca86_64.S view on Meta::CPAN
/* ---------------------------------------------- *//* alloca86_64.S */.globl allocaalloca:pop%rdx#ifdef TCC_TARGET_PEmov%rcx,%rax#elsemov%rdi,%rax#endifadd $15,%raxand $-16,%rax
src/libtcc.c view on Meta::CPAN
* Lesser General Public Licenseformore details.** You should have received a copy of the GNU Lesser General Public* License alongwiththis library;ifnot,writeto the Free Software* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA*/#include "tcc.h"/********************************************************//* global variables */ST_DATAintgnu_ext = 1;ST_DATAinttcc_ext = 1;/* XXX: get rid of this ASAP */ST_DATA struct TCCState*tcc_state;
src/libtcc.c view on Meta::CPAN
#include "tccpe.c"#endif#endif /* ONE_SOURCE *//********************************************************/#ifndef CONFIG_TCC_ASMST_FUNC void asm_instr(void){tcc_error("inline asm() not supported");}ST_FUNC void asm_global_instr(void){tcc_error("inline asm() not supported");}#endif/********************************************************/#ifdef _WIN32ST_FUNC char*normalize_slashes(char*path){char*p;
src/libtcc.c view on Meta::CPAN
tcc_serialize_extended_symtab(s1->exsymtab, s1->symtab_serialize_outfile);/* Output the symbol names */if(s1->dump_identifier_names_outfile)tcc_dump_identifier_names(s1->exsymtab, s1->dump_identifier_names_outfile);}/*#endif */free_inline_functions(s1);/*resetdefine stack, but keep -D and built-ins */free_defines(define_start);sym_pop(&global_stack, NULL);sym_pop(&local_stack, NULL);returns1->nb_errors != 0 ? -1 : 0;}/*#ifdef CONFIG_TCC_EXSYMTAB */LIBTCCAPIinttcc_compile_string_ex(TCCState*s, const char*str,intlen, const char * filename,intline_num){intret;/* Open the buffer and copy the contents */
src/tcc-doc.texi view on Meta::CPAN
Generate a shared library instead of an executable.@item-soname nameset nameforshared library to be used at runtime@item-staticGenerate a statically linked executable (defaultis a shared linkedexecutable).@item-rdynamicExport global symbols to the dynamic linker. It is usefulwhena libraryopenedwith@code{dlopen()} needs to access executable symbols.@item-rGenerate an object file combining all input files.@item-Wl,-rpath=pathPut custom search pathfordynamic libraries into executable.@item-Wl,--oformat=fmtUse@var{fmt} as outputformat. The supported output formats are:
src/tcc-doc.texi view on Meta::CPAN
@cindexdirectives, assembler@cindexalign directive@cindexskip directive@cindexspace directive@cindexbyte directive@cindexword directive@cindexshort directive@cindexintdirective@cindexlong directive@cindexquad directive@cindexglobl directive@cindexglobal directive@cindexsection directive@cindextext directive@cindexdata directive@cindexbss directive@cindexfill directive@cindexorg directive@cindexprevious directive@cindexstring directive@cindexasciz directive@cindexascii directive
src/tcc-doc.texi view on Meta::CPAN
@itemize@item.align n[,value]@item.skip n[,value]@item.space n[,value]@item.byte value1[,...]@item.word value1[,...]@item.short value1[,...]@item.intvalue1[,...]@item.long value1[,...]@item.quad immediate_value1[,...]@item.globl symbol@item.global symbol@item.section section@item.text@item.data@item.bss@item.fill repeat[,size[,value]]@item.org n@item.previous@item.string string[,...]@item.asciz string[,...]@item.ascii string[,...]
src/tcc-doc.texi view on Meta::CPAN
@table@asis@itemInvalid rangewithstandard string function:@example@{char tab[10];memset(tab, 0, 11);@}@endexample@itemOut of bounds-error in global orlocalarrays:@example@{inttab[10];for(i=0;i<11;i++) @{sum += tab[i];@}@}@endexample@itemOut of bounds-error in malloc'ed data:
src/tcc-doc.texi view on Meta::CPAN
@nodeLibtcc@chapterThe@code{libtcc} librarydynamic code generation.Read the@file{libtcc.h} to have an overview of the API. Read@file{libtcc_test.c} to have a very simple example.The idea consists in giving a C string containing the program you wantto compile directly to@code{libtcc}. Then you can access to any globalsymbol (function or variable)defined.@nodedevel@chapterDeveloper's guideThis chapter gives some hints to understand how TCC works. You can skipitifyoudonot intend to modify the TCC code.@sectionFile reading
src/tcc-doc.texi view on Meta::CPAN
Variablelengtharray typesuse@code{Sym.c} as a location on the stackwhich holds the runtime sizeofforthe type.Four main symbol stacks aredefined:@table@code@itemdefine_stackforthe macros (@code{#define}s).@itemglobal_stackforthe global variables, functions and types.@itemlocal_stackforthelocalvariables, functions and types.@itemglobal_label_stackforthelocallabels (for@code{goto}).@itemlabel_stackforGCC blocklocallabels (see the@code{__label__} keyword).@endtable@code{sym_push()} is used to add a new symbol in thelocalsymbolstack. Ifnolocalsymbol stack is active, it is added in the globalsymbol stack.@code{sym_pop(st,b)} pops symbols from the symbol stack@var{st}untilthe symbol@var{b} is on the top of stack. If@var{b} is NULL, the stackis emptied.@code{sym_find(v)}returnthe symbol associated to the identifier@var{v}. Thelocalstack is searched first from top to bottom, then theglobal stack.@sectionSectionsThe generated code and datas are written in sections. The structure@code{Section} contains all the necessary informationforagivensection.@code{new_section()} creates a new section. ELF file semanticsis assumedforeachsection.The following sections are predefined:
" -Dsym[=val] define 'sym' with value 'val'\n"" -Usym undefine 'sym'\n"" -E preprocess only\n"" -P[1] no / alternative #line output with -E\n"" -dD -dM output #define directives with -E\n""Linker options:\n"" -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
ST_FUNC void cstr_free(CString*cstr);ST_FUNC void cstr_reset(CString*cstr);ST_INLN void sym_free(Sym*sym);ST_FUNC Sym*sym_push2(Sym **ps,intv,intt, long c);ST_FUNC Sym*sym_find2(Sym*s,intv);ST_FUNC Sym*sym_push(intv, CType*type,intr,intc);ST_FUNC void sym_pop(Sym **ptop, Sym*b);ST_INLN Sym*struct_find(intv);ST_INLN Sym*sym_find(intv);ST_FUNC Sym*global_identifier_push(intv,intt,intc);ST_FUNC void tcc_open_bf(TCCState*s1, const char*filename,intinitlen);ST_FUNCinttcc_open(TCCState*s1, const char*filename);ST_FUNC void tcc_close(void);ST_FUNCinttcc_add_file_internal(TCCState*s1, const char*filename,intflags);/* flags: */#define AFF_PRINT_ERROR 0x10 /* print error if file not found */#define AFF_REFERENCED_DLL 0x20 /* load a referenced dll from another dll */#define AFF_PREPROCESS 0x40 /* preprocess file */
return(c >='a'&& c <='z') ? c -'a'+'A': c;}/* ------------ tccgen.c ------------ */#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 Sym*global_label_stack;ST_DATA Sym*define_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,*pvtop;#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_var; /* trueifcurrent function is variadic */ST_DATAintfunc_vc;ST_DATAintlast_line_num, last_ind, func_ind; /* debuglastline number and pc */ST_DATA const char*funcname;ST_FUNC void tccgen_start(TCCState*s1);ST_FUNC void tccgen_end(TCCState*s1);ST_FUNC void free_inline_functions(TCCState*s);ST_FUNC void check_vstack(void);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);ST_FUNC void vpush_global_sym(CType*type,intv);ST_FUNC void vrote(SValue*e,intn);ST_FUNC void vrott(intn);ST_FUNC void vrotb(intn);#ifdef TCC_TARGET_ARMST_FUNCintget_reg_ex(intrc,intrc2);ST_FUNC void lexpand_nr(void);#endifST_FUNC void vpushv(SValue*v);ST_FUNC void save_reg(intr);ST_FUNC void save_reg_upstack(intr,intn);
unsignedintn_value; /* value of symbol */} Stab_Sym;ST_DATA Section*text_section,*data_section,*bss_section; /* predefined sections */ST_DATA Section*cur_text_section; /* current section where function code is generated */#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 */ST_FUNC void tccelf_bounds_new(TCCState*s);#endif/* symbol sections */ST_DATA Section*symtab_section,*strtab_section;/* debug sections */ST_DATA Section*stab_section,*stabstr_section;ST_FUNC void tccelf_new(TCCState*s);ST_FUNC void tccelf_delete(TCCState*s);
/* ------------ tcccoff.c ------------ */#ifdef TCC_TARGET_COFFST_FUNCinttcc_output_coff(TCCState*s1, FILE*f);ST_FUNCinttcc_load_coff(TCCState * s1,intfd);#endif/* ------------ tccasm.c ------------ */ST_FUNC void asm_instr(void);ST_FUNC void asm_global_instr(void);#ifdef CONFIG_TCC_ASMST_FUNCintfind_constraint(ASMOperand*operands,intnb_operands, const char*name, const char **pp);ST_FUNC void asm_expr(TCCState*s1, ExprValue*pe);ST_FUNCintasm_int_expr(TCCState*s1);ST_FUNCinttcc_assemble(TCCState*s1,intdo_preprocess);/* ------------ i386-asm.c ------------ */ST_FUNC void gen_expr32(ExprValue*pe);ST_FUNC void asm_opcode(TCCState*s1,intopcode);ST_FUNC void asm_compute_constraints(ASMOperand*operands,intnb_operands,intnb_outputs, const uint8_t*clobber_regs,int*pout_reg);ST_FUNC void subst_asm_operand(CString*add_str, SValue*sv,intmodifier);
src/tccasm.c view on Meta::CPAN
sym_dot.r = cur_text_section->sh_num;sym_dot.jnext = ind;next();break;default:if(tok >= TOK_IDENT) {/* label case :ifthe label was not found, add one */sym = label_find(tok);if(!sym) {sym = label_push(&s1->asm_labels, tok, 0);/* NOTE: bydefault, the symbol is global */sym->type.t = VT_VOID;}if(sym->r == SHN_ABS) {/*ifabsolute symbol,noneed to put a symbol value */pe->v = sym->jnext;pe->sym = NULL;}else{pe->v = 0;pe->sym = sym;}
src/tccasm.c view on Meta::CPAN
next();/* XXX: handle section symbols too */n = asm_int_expr(s1);if(n < ind)tcc_error("attempt to .org backwards");v = 0;size = n - ind;gotozero_pad;}break;case TOK_ASMDIR_globl:case TOK_ASMDIR_global:case TOK_ASMDIR_weak:case TOK_ASMDIR_hidden:tok1 = tok;do{Sym*sym;next();sym = label_find(tok);if(!sym) {sym = label_push(&s1->asm_labels, tok, 0);
src/tccasm.c view on Meta::CPAN
asm_new_label(s1, asm_get_local_label_name(s1, n), 1);next();skip(':');gotoredo;}elseif(tok >= TOK_IDENT) {/* instruction or label */opcode = tok;next();if(tok ==':') {/* handle"extern void vide(void); __asm__("vide: ret");"as"__asm__("globl vide\nvide: ret");"*/Sym*sym= sym_find(opcode);if(sym && (sym->type.t & VT_EXTERN) && nocode_wanted) {sym = label_find(opcode);if(!sym) {sym = label_push(&s1->asm_labels, opcode, 0);sym->type.t = VT_VOID;}}/* new label */asm_new_label(s1, opcode, 0);
src/tccasm.c view on Meta::CPAN
/* free everything */for(i=0;i<nb_operands;i++) {ASMOperand*op;op =&operands[i];tcc_free(op->constraint);vpop();}cstr_free(&astr1);}ST_FUNC void asm_global_instr(void){CString astr;next();parse_asm_str(&astr);skip(')');/* NOTE: wedonot eat the';'so that we can restore the currenttokenafterthe assembler parsing */if(tok !=';')expect("';'");#ifdef ASM_DEBUGprintf("asm_global: \"%s\"\n", (char *)astr.data);#endifcur_text_section = text_section;ind = cur_text_section->data_offset;/* assemble the stringwithtcc internal assembler */tcc_assemble_inline(tcc_state, astr.data, astr.size - 1);cur_text_section->data_offset = ind;/* restore the current C token */
src/tcccoff.c view on Meta::CPAN
// put relocations dataif(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//finallyglobal symbolsif(s1->do_debug)SortSymbolTable();//writelinenodatafor(i = 1; i < s1->nb_sections; i++) {coff_sec =§ion_header[i];tcc_sect = s1->sections[i];
src/tcccoff.c view on Meta::CPAN
tcc_free(Coff_str_table);}return0;}// group the symbols in order of filename, func1, func2, etc//finallyglobal symbolsvoid SortSymbolTable(void){inti, 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;
src/tccelf.c view on Meta::CPAN
* License alongwiththis library;ifnot,writeto the Free Software* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA*/#include "tcc.h"/* Define this to get some debug output during relocation processing. */#undef DEBUG_RELOC/********************************************************//* global variables */ST_DATA Section*text_section,*data_section,*bss_section; /* predefined sections */ST_DATA Section*cur_text_section; /* current section where function code is generated */#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;/* XXX: avoid static variable */staticintnew_undef_sym = 0; /* Is there a new undefined sym sincelastnew_undef_sym() */
src/tccelf.c view on Meta::CPAN
sym->st_size = size;sym->st_info = info;sym->st_other = other;sym->st_shndx = shndx;sym_index = sym - (ElfW(Sym) *)s->data;hs = s->hash;if(hs) {int*ptr,*base;ptr = section_ptr_add(hs, sizeof(int));base = (int*)hs->data;/* only add global or weak symbols */if(ELFW(ST_BIND)(info) != STB_LOCAL) {/* add another hashing entry */nbuckets = base[0];h = elf_hash((unsigned char *) name) % nbuckets;*ptr= base[2 + h];base[2 + h] = sym_index;base[1]++;/* we resize the hash table */hs->nb_hashed_syms++;if(hs->nb_hashed_syms > 2 * nbuckets) {rebuild_hash(s, 2 * nbuckets);}}else{*ptr= 0;base[1]++;}}returnsym_index;}/* find global ELF symbol'name'andreturnitsindex. Return 0ifnotfound. */ST_FUNCintfind_elf_sym(Section*s, const char*name){ElfW(Sym)*sym;Section*hs;intnbuckets, sym_index, h;const char*name1;hs = s->hash;if(!hs)
src/tccelf.c view on Meta::CPAN
{ElfW(Sym)*esym;intsym_bind, sym_index, sym_type, esym_bind;unsigned char sym_vis, esym_vis, new_vis;sym_bind = ELFW(ST_BIND)(info);sym_type = ELFW(ST_TYPE)(info);sym_vis = ELFW(ST_VISIBILITY)(other);if(sym_bind != STB_LOCAL) {/* we search global or weak symbols */sym_index = find_elf_sym(s, name);if(!sym_index)gotodo_def;esym = &((ElfW(Sym) *)s->data)[sym_index];if(esym->st_shndx != SHN_UNDEF) {esym_bind = ELFW(ST_BIND)(esym->st_info);/* propagate the most constraining visibility *//* STV_DEFAULT(0)<STV_PROTECTED(3)<STV_HIDDEN(2)<STV_INTERNAL(1) */esym_vis = ELFW(ST_VISIBILITY)(esym->st_other);if(esym_vis == STV_DEFAULT) {
src/tccelf.c view on Meta::CPAN
}else{new_vis = (esym_vis < sym_vis) ? esym_vis : sym_vis;}esym->st_other = (esym->st_other & ~ELFW(ST_VISIBILITY)(-1))| new_vis;other = esym->st_other; /* in case we have to patch esym */if(sh_num == SHN_UNDEF) {/* ignore adding of undefined symbolifthecorresponding symbol is alreadydefined*/}elseif(sym_bind == STB_GLOBAL && esym_bind == STB_WEAK) {/* global overrides weak, so patch */gotodo_patch;}elseif(sym_bind == STB_WEAK && esym_bind == STB_GLOBAL) {/* weak is ignoredifalready global */}elseif(sym_bind == STB_WEAK && esym_bind == STB_WEAK) {/* keep first-found weak definition, ignore subsequents */}elseif(sym_vis == STV_HIDDEN || sym_vis == STV_INTERNAL) {/* ignore hidden symbolsafter*/}elseif((esym->st_shndx == SHN_COMMON|| esym->st_shndx == bss_section->sh_num)&& (sh_num < SHN_LORESERVE&& sh_num != bss_section->sh_num)) {/* data symbol gets precedence over common/bss */gotodo_patch;
src/tccelf.c view on Meta::CPAN
put_stabs(NULL, type, other, desc, 0);}/* Browseeachelem of type <type> in section <sec> starting at elem <startoff>using variable <elem> */#define for_each_elem(sec, startoff, elem, type) \for(elem = (type *) sec->data + startoff; \elem < (type *) (sec->data + sec->data_offset); elem++)/* In an ELF file symbol table, thelocalsymbols must appear belowthe global and weak ones. Since TCC cannotsortitwhilegeneratingthe code, we mustdoitafter. All the relocation tables are alsomodified to take into account the symbol table sorting */static void sort_syms(TCCState*s1, Section*s){int*old_to_new_syms;ElfW(Sym)*new_syms;intnb_syms, i;ElfW(Sym)*p,*q;ElfW_Rel*rel;Section*sr;
src/tccelf.c view on Meta::CPAN
sym->st_info, 0, sym->st_shndx, name);}elseif(esym->st_shndx == SHN_UNDEF) {/* weak symbols can stay undefined */if(ELFW(ST_BIND)(esym->st_info) != STB_WEAK)tcc_warning("undefined dynamic symbol '%s'", name);}}}/* Export all nonlocalsymbols (forshared libraries) */static void export_global_syms(TCCState*s1){intnb_syms, dynindex,index;const char*name;ElfW(Sym)*sym;nb_syms = symtab_section->data_offset / sizeof(ElfW(Sym));s1->symtab_to_dynsym = tcc_mallocz(sizeof(int) * nb_syms);for_each_elem(symtab_section, 1, sym, ElfW(Sym)) {if(ELFW(ST_BIND)(sym->st_info) != STB_LOCAL) {name = (char *) symtab_section->link->data + sym->st_name;
src/tccelf.c view on Meta::CPAN
if(file_type == TCC_OUTPUT_EXE) {bind_exe_dynsyms(s1);if(s1->nb_errors) {ret = -1;gotothe_end;}bind_libs_dynsyms(s1);}else/* shared library case: simply export all global symbols */export_global_syms(s1);build_got_entries(s1);/* add a list of needed dlls */for(i = 0; i < s1->nb_loaded_dlls; i++) {DLLReference*dllref= s1->loaded_dlls[i];if(dllref->level == 0)put_dt(dynamic, DT_NEEDED, put_elf_str(dynstr, dllref->name));}
src/tccexsymtab.c view on Meta::CPAN
if(curr_sym->type.t & VT_CONSTANT) fprintf(out_fh,"constant ");/* type */btype = curr_sym->type.t & VT_BTYPE;fprintf(out_fh,"%s\n", type_lookup_table[btype]);}fclose(out_fh);}/* tcc_get_next_extended_symbol_name: a simple mechanismforgetting the names* of all of the global symbols known to the extended symbol table. */char * tcc_get_next_extended_symbol_name(extended_symtab * symtab,int* poffset){/* Increment the counter to get to thenextTokenSym */for((*poffset)++; symtab->tokenSym_list +*poffset< symtab->tokenSym_last; (*poffset)++){TokenSym * ts = symtab->tokenSym_list[*poffset];if(ts->sym_identifier)returnts->str;}
src/tccexsymtab.c view on Meta::CPAN
Sym * get_new_symtab_pointer (Sym * old, ram_hash * rh){void ** Sym_ref;Sym * to_return;intbtype;/* Handle the null case up-front */if(old == NULL)returnNULL;/* Check the global symbol stack. */Sym_ref = ram_hash_get_ref(rh, old);to_return =*Sym_ref;if(NULL != to_return)returnto_return;/* Create new sym. Note that mallocz sets lots of things to null*forme. :-) */to_return =*Sym_ref= tcc_mallocz(sizeof(Sym));/* See tcc.haroundline 425fordescriptions of some of the fields.* See also tccgen.c line 5987 to see what needs to happenforfunction
src/tccexsymtab.c view on Meta::CPAN
to_return->r = old->r;/* Set the type. Judging by the constants in tcc.h and code that* uses this field, I'm pretty sure that the low bits in the .t field* tells tcc how to load the data into a register. The high bits seem to* indicate storage details, such as VT_EXTERN. Since that is not* something that can be extended at runtime, I should be able to copy* the value as-is and add an extern flagforvariables and functions. */to_return->type.t = old->type.t;/* After compilation, functions and global variables point to hard* locations in memory. Consuming contexts should think of these as* having external storage, which is reflected in the VT_EXTERN bit of* the type.t field. */btype = old->type.t & VT_BTYPE;if(btype == VT_FUNC || to_return->r & (VT_SYM | VT_LVAL))to_return->type.t |= VT_EXTERN;/* Remove static indicator from functions */if((btype == VT_FUNC) && (old->type.t & VT_STATIC))to_return->type.t &= ~VT_STATIC;
src/tccexsymtab.c view on Meta::CPAN
/* Copy the c field, the"associated number."According to tcc-doc.texi* as well as the comments just above the definition of put_extern_sym2,* the c field will (forsome Syms) point to an external symbol in an* associated section. But this is not trueforall Syms. For structs,* this is the size (in bytes), andforstruct members it is the byte* offset of the member, according to the end of struct_decl(). For* variablelengtharrays, this is "the location on the stack that holds* the runtime sizeofforthe type." For functions, I believe this is* one of FUNC_NEW, FUNC_OLD, or FUNC_ELLIPSIS. At any rate, everything* seems to workifI simply set it to zeroforfunctions and global* variables and copy it otherwise, so I'm goingwiththat. This probably* needs to be more nuanced. */if(btype == VT_FUNC || to_return->r & (VT_SYM | VT_LVAL))to_return->c = 0;elseto_return->c = old->c;/* Copy thenextsymbol field. Labels and gotos are tracked in a* separate stack, soforthese Symbols we focus onnext, not* jnext. Thenextfield (I seem to recall) is used in storing
src/tccgen.c view on Meta::CPAN
* Lesser General Public Licenseformore details.** You should have received a copy of the GNU Lesser General Public* License alongwiththis library;ifnot,writeto the Free Software* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA*/#include "tcc.h"/********************************************************//* global variables *//* loc :localvariableindexind : output codeindexrsym:returnsymbolanon_sym: anonymous symbolindex*/ST_DATAintrsym, anon_sym, ind, loc;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*define_stack;ST_DATA Sym*global_label_stack;ST_DATA Sym*local_label_stack;staticintlocal_scope;staticintin_sizeof;staticintsection_sym;ST_DATAintvlas_in_scope; /* number of VLAs that are currently in scope */ST_DATAintvla_sp_root_loc; /* vla_sp_locforSPbeforeany VLAs were pushed */ST_DATAintvla_sp_loc; /* Pointer to variable holding location to store stack pointer on the stackwhenmodifying stack pointer */ST_DATA SValue __vstack[1+VSTACK_SIZE],*vtop,*pvtop;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_var; /* trueifcurrent function is variadic (used byreturninstruction) */ST_DATAintfunc_vc;ST_DATAintlast_line_num, last_ind, func_ind; /* debuglastline number and pc */ST_DATA const char*funcname;ST_DATA CType char_pointer_type, func_old_type, int_type, size_type;ST_DATA struct switch_t {struct case_t {
src/tccgen.c view on Meta::CPAN
if(local_stack)ps =&local_stack;else{/*#ifdef CONFIG_TCC_EXSYMTAB *//* Global symbol stack. This is OKforthelocalsymbol stack, but don't allow* thisforsymbols that are in the extended symbol stack. There seem to be* some issues associatedwithcopying*all* TokenSyms, so this needs to be* ironed out. For now, I'm removing the check. */////if(v & SYM_EXTENDED) {// tcc_error("Cannot use name '%s' as a global variable, it is already in the "//"extended symbol table.", get_tok_str(v, 0));// }/*#endif */ps =&global_stack;}/*#ifdef CONFIG_TCC_EXSYMTAB */v &= ~SYM_EXTENDED;/*#endif */s = sym_push2(ps, v, type->t, c);s->type.ref= type->ref;s->r = r;/* don't record fields or anonymous symbols *//* XXX: simplify */if(!(v & SYM_FIELD) && (v & ~SYM_STRUCT) < SYM_FIRST_ANOM) {
src/tccgen.c view on Meta::CPAN
s->prev_tok =*ps;*ps= s;s->scope = local_scope;if(s->prev_tok && s->prev_tok->scope == s->scope)tcc_error("redeclaration of '%s'",get_tok_str(v & ~SYM_STRUCT, NULL));}returns;}/*pusha global identifier */ST_FUNC Sym*global_identifier_push(intv,intt,intc){Sym*s, **ps;s = sym_push2(&global_stack, v, t, c);/* don't record anonymous symbol *//*#ifdef CONFIG_TCC_EXSYMTAB */if((v & ~SYM_EXTENDED) < SYM_FIRST_ANOM) {ps =&table_ident[(v & ~SYM_EXTENDED) - TOK_IDENT]->sym_identifier;/*#elseif(v < SYM_FIRST_ANOM) {ps =&table_ident[v - TOK_IDENT]->sym_identifier;#endif *//* modify the top mostlocalidentifier, so thatsym_identifier will point to's'whenpopped */while(*ps!= NULL)ps = &(*ps)->prev_tok;s->prev_tok = NULL;*ps= s;}/*#ifdef CONFIG_TCC_EXSYMTAB */if(v & SYM_EXTENDED) {tcc_warning("pushing global identifier with name from extended symbol table '%s'",get_tok_str(v, 0));}/*#endif */returns;}/*popsymbolsuntiltop reaches'b'*/ST_FUNC void sym_pop(Sym **ptop, Sym*b){Sym*s,*ss, **ps;
src/tccgen.c view on Meta::CPAN
vtop->sym = sym;}/* Return a static symbol pointing to a section */ST_FUNC Sym*get_sym_ref(CType*type, Section*sec, unsigned long offset, unsigned long size){intv;Sym*sym;v = anon_sym++;sym = global_identifier_push(v, type->t | VT_STATIC, 0);sym->type.ref= type->ref;sym->r = VT_CONST | VT_SYM;put_extern_sym(sym, sec, offset, size);returnsym;}/*pusha reference to a section offset by adding a dummy symbol */static void vpush_ref(CType*type, Section*sec, unsigned long offset, unsigned long size){vpushsym(type, get_sym_ref(type, sec, offset, size));}/* define a new external reference to a symbol'v'of type'u'*/ST_FUNC Sym*external_global_sym(intv, CType*type,intr){Sym*s;s = sym_find(v);if(!s) {/*pushforward reference */s = global_identifier_push(v, type->t | VT_EXTERN, 0);s->type.ref= type->ref;s->r = r | VT_CONST | VT_SYM;}returns;}/* define a new external reference to a symbol'v'*/static Sym*external_sym(intv, CType*type,intr){Sym*s;
src/tccgen.c view on Meta::CPAN
/* Merge some storage attributes. */if(type->t & VT_WEAK)weaken_symbol(s);if(type->t & VT_VIS_MASK)apply_visibility(s, type);returns;}/*pusha reference to global symbol v */ST_FUNC void vpush_global_sym(CType*type,intv){vpushsym(type, external_global_sym(v, type, 0));}ST_FUNC void vset(CType*type,intr,intv){CValue cval;cval.i = v;vsetc(type, r,&cval);}
src/tccgen.c view on Meta::CPAN
gotogen_mod_func;case TOK_UMOD:func = TOK___umoddi3;gen_mod_func:#ifdef TCC_ARM_EABIreg_iret = TREG_R2;reg_lret = TREG_R3;#endifgen_func:/* call generic long long function */vpush_global_sym(&func_old_type, func);vrott(3);gfunc_call(2);vpushi(0);vtop->r = reg_iret;vtop->r2 = reg_lret;break;case'^':case'&':case'|':case'*':
src/tccgen.c view on Meta::CPAN
/* generic itofforunsigned long long case */static void gen_cvt_itof1(intt){#ifdef TCC_TARGET_ARM64gen_cvt_itof(t);#elseif((vtop->type.t & (VT_BTYPE | VT_UNSIGNED)) ==(VT_LLONG | VT_UNSIGNED)) {if(t == VT_FLOAT)vpush_global_sym(&func_old_type, TOK___floatundisf);#if LDOUBLE_SIZE != 8elseif(t == VT_LDOUBLE)vpush_global_sym(&func_old_type, TOK___floatundixf);#endifelsevpush_global_sym(&func_old_type, TOK___floatundidf);vrott(2);gfunc_call(1);vpushi(0);vtop->r = reg_fret(t);}else{gen_cvt_itof(t);}#endif}#endif
src/tccgen.c view on Meta::CPAN
{#ifdef TCC_TARGET_ARM64gen_cvt_ftoi(t);#elseintst;if(t == (VT_LLONG | VT_UNSIGNED)) {/* not handled natively */st = vtop->type.t & VT_BTYPE;if(st == VT_FLOAT)vpush_global_sym(&func_old_type, TOK___fixunssfdi);#if LDOUBLE_SIZE != 8elseif(st == VT_LDOUBLE)vpush_global_sym(&func_old_type, TOK___fixunsxfdi);#endifelsevpush_global_sym(&func_old_type, TOK___fixunsdfdi);vrott(2);gfunc_call(1);vpushi(0);vtop->r = REG_IRET;vtop->r2 = REG_LRET;}else{gen_cvt_ftoi(t);}#endif}
src/tccgen.c view on Meta::CPAN
size = type_size(&vtop->type,&align);/* destination */vswap();vtop->type.t = VT_PTR;gaddrof();/* address of memcpy() */#ifdef TCC_ARM_EABIif(!(align & 7))vpush_global_sym(&func_old_type, TOK_memcpy8);elseif(!(align & 3))vpush_global_sym(&func_old_type, TOK_memcpy4);else#endif/* Use memmove, rather than memcpy, as dest and src may be same: */vpush_global_sym(&func_old_type, TOK_memmove);vswap();/* source */vpushv(vtop - 2);vtop->type.t = VT_PTR;gaddrof();/* type size */vpushi(size);gfunc_call(3);}else{
src/tccgen.c view on Meta::CPAN
break;case'(':next();/* cast ? */if(parse_btype(&type,&ad)) {type_decl(&type,&ad,&n, TYPE_ABSTRACT);skip(')');/* check ISOC99 compound literal */if(tok =='{') {/* data is allocated locally bydefault*/if(global_expr)r = VT_CONST;elser = VT_LOCAL;/* all except arrays are lvalues */if(!(type.t & VT_ARRAY))r |= lvalue_type(type.t);memset(&ad, 0, sizeof(AttributeDef));decl_initializer_alloc(&type,&ad, r, 1, 0, 0);}else{if(sizeof_caller) {
src/tccgen.c view on Meta::CPAN
skip(')');vpushi(classify_x86_64_va_arg(&type));}break;#endif#endif#ifdef TCC_TARGET_ARM64case TOK___va_start: {if(nocode_wanted)tcc_error("statement in global scope");next();skip('(');expr_eq();skip(',');expr_eq();skip(')');//xx check typesgen_va_start();vpushi(0);vtop->type.t = VT_VOID;break;}case TOK___va_arg: {CType type;if(nocode_wanted)tcc_error("statement in global scope");next();skip('(');expr_eq();skip(',');parse_type(&type);skip(')');//xx check typesgen_va_arg(&type);vtop->type = type;break;
src/tccgen.c view on Meta::CPAN
break;case TOK_LAND:if(!gnu_ext)gototok_identifier;next();/* allow to take the address of a label */if(tok < TOK_UIDENT)expect("label identifier");s = label_find(tok);if(!s) {s = label_push(&global_label_stack, tok, LABEL_FORWARD);}else{if(s->r == LABEL_DECLARED)s->r = LABEL_FORWARD;}if(!s->type.t) {s->type.t = VT_VOID;mk_pointer(&s->type);s->type.t |= VT_STATIC;}vpushsym(&s->type, s);
src/tccgen.c view on Meta::CPAN
/*forsimple function calls, we tolerate undeclaredexternal reference toint() function */if(tcc_state->warn_implicit_function_declaration#ifdef TCC_TARGET_PE/* people must be warned about using undeclared WINAPI functions(which usually startwithuppercase letter) */|| (name[0] >='A'&& name[0] <='Z')#endif)tcc_warning("implicit declaration of function '%s'", name);s = external_global_sym(t,&func_old_type, 0);}if((s->type.t & (VT_STATIC | VT_INLINE | VT_BTYPE)) ==(VT_STATIC | VT_INLINE | VT_FUNC)) {/*ifreferencing an inline function, then we generate asymbol to itifnot already done. It will have theeffect to generate codeforit at the end of thecompilation unit. Inline function as alwaysgenerated in the text section. */if(!s->c)put_extern_sym(s, text_section, 0, 0);
src/tccgen.c view on Meta::CPAN
/* computedgoto*/next();gexpr();if((vtop->type.t & VT_BTYPE) != VT_PTR)expect("pointer");ggoto();}elseif(tok >= TOK_UIDENT) {s = label_find(tok);/* put forward definitionifneeded */if(!s) {s = label_push(&global_label_stack, tok, LABEL_FORWARD);}else{if(s->r == LABEL_DECLARED)s->r = LABEL_FORWARD;}vla_sp_restore_root();if(s->r & LABEL_FORWARD)s->jnext = gjmp(s->jnext);elsegjmp_addr(s->jnext);next();
src/tccgen.c view on Meta::CPAN
b = is_label();if(b) {/* label case */s = label_find(b);if(s) {if(s->r == LABEL_DEFINED)tcc_error("duplicate label '%s'", get_tok_str(s->v, NULL));gsym(s->jnext);s->r = LABEL_DEFINED;}else{s = label_push(&global_label_stack, b, LABEL_DEFINED);}s->jnext = ind;vla_sp_restore();/* weacceptthis, but it is a mistake */block_after_label:if(tok =='}') {tcc_warning("deprecated use of label at end of compound statement");}else{if(is_expr)vpop();
src/tccgen.c view on Meta::CPAN
dst += elem_size;memcpy(dst, src, elem_size);}}}#define EXPR_VAL 0#define EXPR_CONST 1#define EXPR_ANY 2/* store a value or an expression directly in global data or inlocalarray */static void init_putv(CType*type, Section*sec, unsigned long c,intv,intexpr_type){intsaved_global_expr, bt, bit_pos, bit_size;void*ptr;unsigned long long bit_mask;CType dtype;switch(expr_type) {case EXPR_VAL:vpushi(v);break;case EXPR_CONST:/* compound literals must be allocated globally in this case */saved_global_expr = global_expr;global_expr = 1;expr_const1();global_expr = saved_global_expr;/* NOTE: symbols are accepted */if((vtop->r & (VT_VALMASK | VT_LVAL)) != VT_CONST)tcc_error("initializer element is not constant");break;case EXPR_ANY:expr_eq();break;}dtype =*type;
src/tccgen.c view on Meta::CPAN
vswap();vstore();vpop();}}/* put zerosforvariable based init */static void init_putz(CType*t, Section*sec, unsigned long c,intsize){if(sec) {/* nothing todobecause globals are already set to zero */}else{vpush_global_sym(&func_old_type, TOK_memset);vseti(VT_LOCAL, c);#ifdef TCC_TARGET_ARMvpushs(size);vpushi(0);#elsevpushi(0);vpushs(size);#endifgfunc_call(3);}
src/tccgen.c view on Meta::CPAN
elsecstr_len = tokc.str.size / sizeof(nwchar_t);cstr_len--;nb = cstr_len;if(n >= 0 && nb > (n - array_length))nb = n - array_length;if(!size_only) {if(cstr_len > nb)tcc_warning("initializer-string for array is too long");/* in order to go fasterforcommon case (charstring in global variable, we handle itspecifically */if(sec && tok == TOK_STR && size1 == 1) {memcpy(sec->data + c + array_length, tokc.str.data, nb);}else{for(i=0;i<nb;i++) {if(tok == TOK_STR)ch = ((unsigned char *)tokc.str.data)[i];elsech = ((nwchar_t *)tokc.str.data)[i];init_putv(t1, sec, c + (array_length + i) * size1,
src/tccgen.c view on Meta::CPAN
elseif(tok =='{')parlevel1++;elseif(tok =='}') {if(parlevel == 0 && parlevel1 == 0)break;parlevel1--;}next();}}else{(may changeforscripting case) */expr_type = EXPR_CONST;if(!sec)expr_type = EXPR_ANY;init_putv(type, sec, c, 0, expr_type);}}/* parse an initializerfortype't'if'has_init'is non zero, andallocate space inlocalor global data space ('r'is eitherVT_LOCAL or VT_CONST). If'v'is non zero, then an associatedvariable'v'of scope'scope'is declaredbeforeinitializersare parsed. If'v'is zero, then a reference to the new objectis put in the value stack. If'has_init'is 2, a special parsingis done to handle string constants. */static void decl_initializer_alloc(CType*type, AttributeDef*ad,intr,inthas_init,intv,intscope){intsize, align, addr, data_offset;intlevel;
src/tccgen.c view on Meta::CPAN
while(field->next)field = field->next;if(field->type.t & VT_ARRAY && field->type.ref->c < 0)flexible_array = field;}}size = type_size(type,&align);/* If unknown size, we must evaluate itbeforeevaluating initializers becauseinitializers can generate global data too(e.g. string pointers or ISOC99 compoundliterals). It also simplifieslocalinitializers handling */if(size < 0 || (flexible_array && has_init)) {if(!has_init)tcc_error("unknown type size");/* get all init string */init_str = tok_str_alloc();if(has_init == 2) {/* only get strings */
src/tccgen.c view on Meta::CPAN
/*ifthe variable is extern, it was not allocated */sym->type.t &= ~VT_EXTERN;/* set array sizeifit was omitted in externdeclaration */if((sym->type.t & VT_ARRAY) &&sym->type.ref->c < 0 &&type->ref->c >= 0)sym->type.ref->c = type->ref->c;}else{/* weacceptseveral definitions of the sameglobal variable. this is tricky, because wemust playwiththe SHN_COMMON type of the symbol *//* XXX: should checkifthe variable was alreadyinitialized. It is incorrect to initialized ittwice *//*noinit data, we won't add more to the symbol */if(!has_init)gotono_alloc;}}}
src/tccgen.c view on Meta::CPAN
if(!sec) {if(has_init)sec = data_section;elseif(tcc_state->nocommon)sec = bss_section;}if(sec) {data_offset = sec->data_offset;data_offset = (data_offset + align - 1) & -align;addr = data_offset;/* very important to increment global pointer at thistimebecause initializers themselves can create new initializers */data_offset += size;#ifdef CONFIG_TCC_BCHECK/* add paddingifbound check */if(tcc_state->do_bounds_check)data_offset++;#endifsec->data_offset = data_offset;/* allocate section space to put the data */if(sec->sh_type != SHT_NOBITS &&
src/tccgen.c view on Meta::CPAN
put_extern_sym(sym, sec, addr, size);}else{ElfW(Sym)*esym;/* put a common area */put_extern_sym(sym, NULL, align, size);/* XXX: find a nicer way */esym = &((ElfW(Sym) *)symtab_section->data)[sym->c];esym->st_shndx = SHN_COMMON;}}else{/*pushglobal reference */sym = get_sym_ref(type, sec, addr, size);vpushsym(type, sym);}/* patch symbol weakness */if(type->t & VT_WEAK)weaken_symbol(sym);apply_visibility(sym, type);#ifdef CONFIG_TCC_BCHECK/* handles bounds now because the symbol must bedefinedbeforeforthe relocation */if(tcc_state->do_bounds_check) {addr_t*bounds_ptr;greloc(bounds_section, sym, bounds_section->data_offset, R_DATA_PTR);/* then add global bound info */bounds_ptr = section_ptr_add(bounds_section, 2 * sizeof(addr_t));bounds_ptr[0] = 0; /* relocated */bounds_ptr[1] = size;}#endif}if(has_init || (type->t & VT_VLA)) {decl_initializer(type, sec, addr, 1, 0);/* patch flexible array member size back to -1, *//*forpossible subsequent similar declarations */
src/tccgen.c view on Meta::CPAN
sym_push2(&local_stack, SYM_FIELD, 0, 0);local_scope = 1; /*forfunction parameters */gfunc_prolog(&sym->type);local_scope = 0;rsym = 0;block(NULL, NULL, 0);gsym(rsym);gfunc_epilog();cur_text_section->data_offset = ind;label_pop(&global_label_stack, NULL);/*resetlocalstack */local_scope = 0;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);
src/tccgen.c view on Meta::CPAN
if(is_for_loop_init)return0;/* skip redundant';'*//* XXX: find more elegant solution */if(tok ==';') {next();continue;}if(l == VT_CONST &&(tok == TOK_ASM1 || tok == TOK_ASM2 || tok == TOK_ASM3)) {/* global asm block */asm_global_instr();continue;}/* special testforold K&Rprotos without explicitinttype. Only acceptedwhendefining global data */if(l == VT_LOCAL || tok < TOK_UIDENT)break;btype.t = VT_INT;}if(((btype.t & VT_BTYPE) == VT_ENUM ||(btype.t & VT_BTYPE) == VT_STRUCT) &&tok ==';') {if((btype.t & VT_BTYPE) == VT_STRUCT) {intv = btype.ref->v;if(!(v & SYM_FIELD) && (v & ~SYM_STRUCT) >= SYM_FIRST_ANOM)
src/tccgen.c view on Meta::CPAN
if(!is_compatible_types(&sym->type,&type)) {func_error1:tcc_error("incompatible types for redefinition of '%s'",get_tok_str(v, NULL));}type.ref->a.func_proto = 0;/*ifsymbol is alreadydefined, then put complete type */sym->type = type;}else{/* put function symbol */sym = global_identifier_push(v, type.t, 0);sym->type.ref= type.ref;}/* static inline functions are just recorded as a kindof macro. Their code will be emitted at the end ofthe compilation unit onlyifthey are used */if((type.t & (VT_INLINE | VT_STATIC)) ==(VT_INLINE | VT_STATIC)) {intblock_level;struct InlineFunc*fn;
src/tccgen.c view on Meta::CPAN
/* not lvalueifarray */r |= lvalue_type(type.t);}has_init = (tok =='=');if(has_init && (type.t & VT_VLA))tcc_error("Variable length array cannot be initialized");if((btype.t & VT_EXTERN) || ((type.t & VT_BTYPE) == VT_FUNC) ||((type.t & VT_ARRAY) && (type.t & VT_STATIC) &&!has_init && l == VT_CONST && type.ref->c < 0)) {/* external variable or function *//* NOTE: as GCC, uninitialized global staticarrays of null size are considered asextern */sym = external_sym(v,&type, r);sym->asm_label = ad.asm_label;if(ad.alias_target) {Section tsec;Elf32_Sym*esym;Sym*alias_target;
src/tccpp.c view on Meta::CPAN
* Lesser General Public Licenseformore details.** You should have received a copy of the GNU Lesser General Public* License alongwiththis library;ifnot,writeto the Free Software* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA*/#include "tcc.h"/********************************************************//* global variables */ST_DATAinttok_flags;ST_DATAintparse_flags;ST_DATA struct BufferedFile*file;ST_DATAintch, tok;ST_DATA CValue tokc;ST_DATA constint*macro_ptr;ST_DATA CString tokcstr; /* current parsed string,ifany */
src/tccpp.c view on Meta::CPAN
ST_FUNC Sym*label_push(Sym **ptop,intv,intflags){Sym*s, **ps;/*#ifdef CONFIG_TCC_EXSYMTAB */v &= ~SYM_EXTENDED;/*#endif */s = sym_push2(ptop, v, 0, 0);s->r = flags;ps =&table_ident[v - TOK_IDENT]->sym_label;if(ptop ==&global_label_stack) {/* modify the top mostlocalidentifier, so thatsym_identifier will point to's'whenpopped */while(*ps!= NULL)ps = &(*ps)->prev_tok;}s->prev_tok =*ps;*ps= s;returns;}
src/tcctok.h view on Meta::CPAN
DEF_ASMDIR(byte) /* must be first directive */DEF_ASMDIR(word)DEF_ASMDIR(align)DEF_ASMDIR(p2align)DEF_ASMDIR(skip)DEF_ASMDIR(space)DEF_ASMDIR(string)DEF_ASMDIR(asciz)DEF_ASMDIR(ascii)DEF_ASMDIR(file)DEF_ASMDIR(globl)DEF_ASMDIR(global)DEF_ASMDIR(weak)DEF_ASMDIR(hidden)DEF_ASMDIR(ident)DEF_ASMDIR(size)DEF_ASMDIR(type)DEF_ASMDIR(text)DEF_ASMDIR(data)DEF_ASMDIR(bss)DEF_ASMDIR(previous)DEF_ASMDIR(fill)
src/tests/asmtest.S view on Meta::CPAN
call 0x1000call L4#ifdef __i386__call *%eax#elsecall *%rax#endifcall *0x1000call func1.global L5,L6L5:L6:#ifdef __i386__lcall $0x100, $0x1000#elselcall *0x100lcall *(%rax)#endif
src/tests/exsymtab/60-two-contexts-globals.c view on Meta::CPAN
/** Declare a global variable in one context and access it in another context.*//* uncomment to enable diagnostic output *///#define DIAG(...) diag(__VA_ARGS__)#include "test_setup.h"char first_code[] ="unsigned int test_var;\n""unsigned int get_test_var () {\n"
src/tests/exsymtab/60-two-contexts-globals.c view on Meta::CPAN
intmain(intargc, char **argv){/* ---- Compile the first code string and setup the callback data ---- */TCCState*s1= tcc_new();extended_symtab_p my_symtab;setup_and_compile_s1(my_symtab, first_code);SETUP_SECOND_CALLBACK_DATA();/* ---- Make sure the getter and setter actually modify global state ---- */unsignedint(*first_get)() = tcc_get_symbol(s1,"get_test_var");void (*first_set)(unsignedint) = tcc_get_symbol(s1,"set_test_var");first_set(42);is_i(first_get(), 42,"first_set/first_get work");first_set(439);is_i(first_get(), 439,"first_set/first_get really work");/* ---- Compile code string that depends on the function and global variable ---- */TCCState*s2= tcc_new();setup_and_compile_second_state(s2, second_code);relocate_second_state(s2);/* ---- Check indirect getter and setter ---- */unsignedint(*indirect_get)() = tcc_get_symbol(s2,"indirect_get");void (*indirect_set)(unsignedint) = tcc_get_symbol(s2,"indirect_set");is_i(indirect_get(), 439,"indirect_get seems to work");indirect_set(276);
src/tests/exsymtab/61-two-contexts-const-globals.c view on Meta::CPAN
/** Declare a global variable in one context and access it in another context.*//* uncomment to enable diagnostic output *///#define DIAG(...) diag(__VA_ARGS__)#include "test_setup.h"char first_code[] ="const unsigned int test_var = 42;\n""unsigned int get_test_var () {\n"
src/tests/exsymtab/61-two-contexts-const-globals.c view on Meta::CPAN
intmain(intargc, char **argv){/* ---- Compile the first code string and setup the callback data ---- */TCCState*s1= tcc_new();extended_symtab_p my_symtab;setup_and_compile_s1(my_symtab, first_code);SETUP_SECOND_CALLBACK_DATA();/* ---- Make sure the getter and setter actually modify global state ---- */unsignedint(*first_get)() = tcc_get_symbol(s1,"get_test_var");is_i(first_get(), 42,"first_set/first_get work");/* ---- Compile code string that depends on the function and global variable ---- */TCCState*s2= tcc_new();setup_and_compile_second_state(s2, second_code);relocate_second_state(s2);/* ---- Check indirect getter and setter ---- */unsignedint(*indirect_get)() = tcc_get_symbol(s2,"indirect_get");is_i(indirect_get(), 42,"indirect_get seems to work");/* ---- Check direct getter and setter ---- */
src/tests/exsymtab/62-two-contexts-static-globals.c view on Meta::CPAN
/** Declare a global variable in one context and access it in another context.*//* uncomment to enable diagnostic output *///#define DIAG(...) diag(__VA_ARGS__)#include "test_setup.h"#include <string.h>/* Create a custom error handler that merely tracks that the correct* error was thrown. */
src/tests/exsymtab/62-two-contexts-static-globals.c view on Meta::CPAN
intmain(intargc, char **argv){/* ---- Compile the first code string and setup the callback data ---- */TCCState*s1= tcc_new();extended_symtab_p my_symtab;setup_and_compile_s1(my_symtab, first_code);SETUP_SECOND_CALLBACK_DATA();/* ---- Make sure the getter and setter actually modify global state ---- */unsignedint(*first_get)() = tcc_get_symbol(s1,"get_test_var");is_i(first_get(), 42,"first_set/first_get work");/* ---- Checkforerrors during dependent compilation ---- */TCCState*s2= tcc_new();if(!s2)return1;if(argc == 2 && !memcmp(argv[1],"lib_path=",9))tcc_set_lib_path(s2, argv[1]+9);elsetcc_set_lib_path(s2,"../..");tcc_set_output_type(s2, TCC_OUTPUT_MEMORY);tcc_set_error_func(s2, my_error_func, my_error_func);callback_data.second_context = s2;tcc_set_extended_symtab_callbacks(s2,&lookup_by_name,&sym_used,&prep_table,&callback_data);tcc_compile_string(s2, second_code);tcc_relocate(s2, TCC_RELOCATE_AUTO);/* Seeifthe error was thrown */is_i(error_thrown, 1,"Static global variables do not bleed scope");/* ---- clean up the memory ---- */tcc_delete_extended_symbol_table(my_symtab);tcc_delete(s1);tcc_delete(s2);pass("cleanup");returndone_testing();}
( run in 0.801 second using v1.01-cache-2.11-cpan-9b1e4054eb1 )