}
/* make sure the type is complete and sane */
checkTypeSanity(csym->etype, csym->name);
-
- // jwk: if this is a function ptr with a void arg, remove it
- if (IS_DECL(csym->type) && DCL_TYPE(csym->type)==CPOINTER) {
- sym_link *type=csym->type->next;
- if (FUNC_ARGS(type) && SPEC_NOUN(FUNC_ARGS(type)->type)==V_VOID) {
- FUNC_ARGS(type)=NULL;
- }
- }
}
/* prevent overflow of the (r)name buffers */
sym_link *tail;
sym_link *t;
+ if (getenv("SDCC_DEBUG_FUNCTION_POINTERS"))
+ fprintf (stderr, "SDCCsymt.c:addDecl(%s,%d,%p)\n", sym->name, type, p);
+
/* if we are passed a link then set head & tail */
if (p)
{
SPEC_VOLATILE (sym->etype) = SPEC_VOLATILE (DCL_TSPEC (p));
DCL_TSPEC (p) = NULL;
}
+
+ // if there is a function in this type chain
+ if (p && funcInChain(sym->type)) {
+ processFuncArgs (sym);
+ }
+
return;
}
sum += getSize (loop->type);
}
+#if 0 // jwk: this is done now in addDecl()
/* if function then do the arguments for it */
if (funcInChain (loop->type)) {
- processFuncArgs (loop, 1);
+ processFuncArgs (loop);
}
+#endif
loop = loop->next;
DCL_TYPE (val->type) = PPOINTER;
break;
case S_FIXED:
- if (SPEC_OCLS(val->etype)) {
DCL_TYPE(val->type)=PTR_TYPE(SPEC_OCLS(val->etype));
- break;
- }
if (TARGET_IS_DS390)
{
DCL_TYPE (val->type) = FPOINTER;
break;
}
- /* fall through! */
+ break;
case S_AUTO:
case S_DATA:
case S_REGISTER:
/* processFuncArgs - does some processing with function args */
/*-----------------------------------------------------------------*/
void
-processFuncArgs (symbol * func, int ignoreName)
+processFuncArgs (symbol * func)
{
value *val;
int pNum = 1;
sym_link *funcType=func->type;
+ if (getenv("SDCC_DEBUG_FUNCTION_POINTERS"))
+ fprintf (stderr, "SDCCsymt.c:processFuncArgs(%s)\n", func->name);
+
+ // if this is a pointer to a function
+ if (IS_PTR(funcType)) {
+ funcType=funcType->next;
+ }
+
/* if this function has variable argument list */
/* then make the function a reentrant one */
if (IFFUNC_HASVARARGS(funcType))