From: johanknol <johanknol@4a8a32a2-be11-0410-ad9d-d568d2c75423>
Date: Fri, 4 Apr 2003 12:27:08 +0000 (+0000)
Subject: fixed bug #715076
X-Git-Url: https://git.gag.com/?a=commitdiff_plain;h=784a6b87948d0175947cad8d22613e8f67d3638c;p=fw%2Fsdcc

fixed bug #715076


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

diff --git a/src/SDCCast.c b/src/SDCCast.c
index 91a4f81e..dd7e0de7 100644
--- a/src/SDCCast.c
+++ b/src/SDCCast.c
@@ -3232,7 +3232,6 @@ decorateType (ast * tree)
 	{
 	  werror (E_TYPE_MISMATCH, "assignment", " ");
 	  printFromToType(RTYPE(tree),LTYPE(tree));
-	  //goto errorTreeReturn;
 	}
 
       /* if the left side of the tree is of type void
@@ -3283,12 +3282,15 @@ decorateType (ast * tree)
       if ((options.stackAuto || IFFUNC_ISREENT (LTYPE (tree))) && 
 	  !IFFUNC_ISBUILTIN(LTYPE(tree)))
 	{
-	  //FUNC_ARGS(tree->left->ftype) = 
-	  //reverseVal (FUNC_ARGS(tree->left->ftype));
 	  reverseParms (tree->right);
 	}
 
-      TETYPE (tree) = getSpec (TTYPE (tree) = LTYPE (tree)->next);
+      if (IS_CODEPTR(LTYPE(tree))) {
+	TTYPE(tree) = LTYPE(tree)->next->next;
+      } else {
+	TTYPE(tree) = LTYPE(tree)->next;
+      }
+      TETYPE (tree) = getSpec (TTYPE (tree));
       return tree;
 
       /*------------------------------------------------------------------*/