fbc: thiscall, hidden param for returning structs

Author: jayrm

src/compiler/ast-node-call.bas

@@ -231,7 +231,7 @@ function astLoadCALL( byval n as ASTNODE ptr ) as IRVREG ptr
 	if( symbProcReturnsOnStack( proc ) ) then
 		'' Pop hidden ptr if cdecl and target doesn't want the callee
 		'' to do it, despite it being cdecl.
-		if( (symbGetProcMode( proc ) = FB_FUNCMODE_CDECL) and _
+		if( ((symbGetProcMode( proc ) = FB_FUNCMODE_CDECL) or (symbGetProcMode( proc ) = FB_FUNCMODE_THISCALL)) and _
 		    ((env.target.options and FB_TARGETOPT_CALLEEPOPSHIDDENPTR) = 0) ) then
 			bytestopop += env.pointersize
 		end if

src/compiler/symb-proc.bas

@@ -160,7 +160,7 @@ end function
 '' Calculate the number of bytes the procedure needs to pop from stack when returning
 function symbProcCalcBytesToPop( byval proc as FBSYMBOL ptr ) as longint
 	dim as longint bytestopop = 0
-	var notcdecl = (symbGetProcMode( proc ) <> FB_FUNCMODE_CDECL)
+	var notcdecl = (symbGetProcMode( proc ) <> FB_FUNCMODE_CDECL) and (symbGetProcMode( proc ) <> FB_FUNCMODE_THISCALL)
 
 	'' Need to pop parameters in case of stdcall/pascal, but not for cdecl
 	if( notcdecl ) then