github-repos/tinycc
1
0
Fork 0
mirror of https://github.com/mirror/tinycc.git synced 2025-04-01 12:30:08 +08:00
Code Issues Packages Projects Releases Wiki Activity

win32: structure return GCC compatible (ret 4 with cdecl)

Browse Source
This commit is contained in:
grischka 2009-06-17 02:11:13 +02:00
parent ec54c34b9e
commit 610fd47510
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
i386-gen.c
View File

@ -402,6 +402,11 @@ void gfunc_call(int nb_args)
} }
} }
gcall_or_jmp(0); gcall_or_jmp(0);
#ifdef TCC_TARGET_PE
if ((func_sym->type.t & VT_BTYPE) == VT_STRUCT)
args_size -= 4;
#endif
if (args_size && func_call != FUNC_STDCALL) if (args_size && func_call != FUNC_STDCALL)
gadd_sp(args_size); gadd_sp(args_size);
vtop--; vtop--;
@ -426,6 +431,8 @@ void gfunc_prolog(CType *func_type)
func_call = FUNC_CALL(sym->r); func_call = FUNC_CALL(sym->r);
addr = 8; addr = 8;
loc = 0; loc = 0;
func_vc = 0;
if (func_call >= FUNC_FASTCALL1 && func_call <= FUNC_FASTCALL3) { if (func_call >= FUNC_FASTCALL1 && func_call <= FUNC_FASTCALL3) {
fastcall_nb_regs = func_call - FUNC_FASTCALL1 + 1; fastcall_nb_regs = func_call - FUNC_FASTCALL1 + 1;
fastcall_regs_ptr = fastcall_regs; fastcall_regs_ptr = fastcall_regs;
@ -478,6 +485,10 @@ void gfunc_prolog(CType *func_type)
/* pascal type call ? */ /* pascal type call ? */
if (func_call == FUNC_STDCALL) if (func_call == FUNC_STDCALL)
func_ret_sub = addr - 8; func_ret_sub = addr - 8;
#ifdef TCC_TARGET_PE
else if (func_vc)
func_ret_sub = 4;
#endif
/* leave some room for bound checking code */ /* leave some room for bound checking code */
if (tcc_state->do_bounds_check) { if (tcc_state->do_bounds_check) {