From: johanknol <johanknol@4a8a32a2-be11-0410-ad9d-d568d2c75423>
Date: Wed, 2 Apr 2003 14:13:48 +0000 (+0000)
Subject: fixed the function type in --dumptree
X-Git-Url: https://git.gag.com/?a=commitdiff_plain;h=ed62d872b85763fae40d893033d8e0341e519446;p=fw%2Fsdcc

fixed the function type in --dumptree


git-svn-id: https://sdcc.svn.sourceforge.net/svnroot/sdcc/trunk/sdcc@2462 4a8a32a2-be11-0410-ad9d-d568d2c75423
---

diff --git a/src/SDCCast.c b/src/SDCCast.c
index 644d8fb3..fae7603b 100644
--- a/src/SDCCast.c
+++ b/src/SDCCast.c
@@ -47,7 +47,7 @@ int labelKey = 1;
 
 int noLineno = 0;
 int noAlloc = 0;
-symbol *currFunc;
+symbol *currFunc=NULL;
 static ast *createIval (ast *, sym_link *, initList *, ast *);
 static ast *createIvalCharPtr (ast *, sym_link *, ast *);
 static ast *optimizeCompare (ast *);
@@ -4459,7 +4459,7 @@ void ast_print (ast * tree, FILE *outfile, int indent)
 		value *args=FUNC_ARGS(tree->left->opval.val->type);
 		fprintf(outfile,"FUNCTION (%s=%p) type (", 
 			tree->left->opval.val->name, tree);
-		printTypeChain (tree->ftype,outfile);
+		printTypeChain (tree->left->opval.val->type->next,outfile);
 		fprintf(outfile,") args (");
 		do {
 		  if (arg) {