X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2FSDCCsymt.c;h=7e5e40a5cc6bdd0b54ea67c63912e419249fe01a;hb=3aaea86ff1d81cbb0432170e66afe22222fd9614;hp=0dce6fa4a2e08e20d43c8aa840aef4182c3691fa;hpb=06dc1e51d1f8aafff46e1ccfdd4e72d914e1d3a1;p=fw%2Fsdcc

diff --git a/src/SDCCsymt.c b/src/SDCCsymt.c
index 0dce6fa4..7e5e40a5 100644
--- a/src/SDCCsymt.c
+++ b/src/SDCCsymt.c
@@ -1174,7 +1174,8 @@ checkSClass (symbol * sym, int isProto)
   /* if no other storage class specified */
   if (sym->level == 0 &&
       SPEC_CONST (sym->etype) &&
-      SPEC_SCLS(sym->etype) == S_FIXED) {
+      SPEC_SCLS(sym->etype) == S_FIXED &&
+      !IS_FUNC(sym->type)) {
     SPEC_SCLS (sym->etype) = S_CODE;
   }
   
@@ -1589,23 +1590,8 @@ aggregateToPointer (value * val)
 	  if (SPEC_OCLS(val->etype)) {
 	    DCL_TYPE(val->type)=PTR_TYPE(SPEC_OCLS(val->etype));
 	  } else {
-#if 1
 	    // this happens for (external) function parameters
 	    DCL_TYPE (val->type) = port->unqualified_pointer;
-#else
-	    if (TARGET_IS_DS390) {
-	      /* The AUTO and REGISTER classes should probably
-	       * also become generic pointers, but I haven't yet
-	       * devised a test case for that.
-	       */
-	      DCL_TYPE (val->type) = port->unqualified_pointer;
-	      break;
-	    }
-	    if (options.model==MODEL_LARGE) {
-	      DCL_TYPE (val->type) = FPOINTER;
-	      break;
-	    }
-#endif
 	  }
 	  break;
 	case S_AUTO: